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