MINICERN/packlib/kernlib/kerngen/tcgen/sungs/floarg.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:58  mclareni
   6 * Kernlib
   7 *
   8 *
   9       FUNCTION FLOARG (ARGM)
  10 C
  11 C CERN PROGLIB# M250    FLOARG          .VERSION KERNSUN  1.00  880922
  12 C ORIG. 22/09/88, JZ
  13 C
  14 C
  15       DIMENSION    ARGM(9)
  16       EQUIVALENCE  (A,IA)
  17 C
  18 C
  19       A   = ARGM(1)
  20       JCH = RSHIFT (IA,23)
  21       IF (JCH.EQ.0)          GO TO 36
  22       IF (JCH.EQ.-1)         GO TO 36
  23       FLOARG = A
  24       RETURN
  25 C
  26    36 FLOARG = IA
  27       RETURN
  28       END