This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / d / epdfix.F
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