[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / epdfix.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:18  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE EPDFIX(N,NS)
C
C      SETS NS = 0 IF N=0
C                1 IF N IS FIXED POINT NUMBER
C                -1 IF N IS FLOATING POINT NUMBER
C      N.B. THIS VERSION ASSUMES FIXED POINT NUMBER IS KNOWN TO BE LESS
C      THAN 256
C
      IF(N)3,4,3
    4 NS=0
      RETURN
    3 IF(ABS(N)-255)5,5,6
    5 NS=1
      RETURN
    6 NS=-1
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:18 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	SUBROUTINE EPDFIX(N,NS)
	11	C
	12	C SETS NS = 0 IF N=0
	13	C 1 IF N IS FIXED POINT NUMBER
	14	C -1 IF N IS FLOATING POINT NUMBER
	15	C N.B. THIS VERSION ASSUMES FIXED POINT NUMBER IS KNOWN TO BE LESS
	16	C THAN 256
	17	C
	18	IF(N)3,4,3
	19	4 NS=0
	20	RETURN
	21	3 IF(ABS(N)-255)5,5,6
	22	5 NS=1
	23	RETURN
	24	6 NS=-1
	25	RETURN
	26	END