MINICERN/packlib/kernlib/kerngen/tcgen/intarg.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:48  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if defined(CERNLIB_QMSUN)
  11 #include "sungs/intarg.F"
  12 #elif defined(CERNLIB_QMVAX)
  13 #include "vaxgs/intarg.F"
  14 #else
  15       FUNCTION INTARG (ARGM)
  16 C
  17 C CERN PROGLIB# M250    INTARG          .VERSION KERNFOR  4.23  891215
  18 C ORIG. 01/8/82  ADAPTED FROM UFLINT
  19 C
  20 C
  21       DIMENSION    ARGM(9)
  22       EQUIVALENCE  (A,IA)
  23 C
  24 #if defined(CERNLIB_QMCV64)
  25       PARAMETER    (JEX=53, NEX=12, NEG=4095 )
  26 #endif
  27 #if defined(CERNLIB_QMCRY)
  28       PARAMETER    (JEX=49, NEX=16, NEG=65535)
  29 #endif
  30 #if defined(CERNLIB_QMCDC)
  31       PARAMETER    (JEX=49, NEX=12, NEG=4095 )
  32 #endif
  33 #if defined(CERNLIB_QMUNI)||defined(CERNLIB_QMUNO)
  34       PARAMETER    (JEX=28, NEX= 9, NEG= 511 )
  35 #endif
  36 #if defined(CERNLIB_QMPDP)
  37       PARAMETER    (JEX=28, NEX= 9, NEG= 511 )
  38 #endif
  39 #if defined(CERNLIB_QMDGE)||defined(CERNLIB_QMIBM)
  40       PARAMETER    (JEX=25, NEX= 8, NEG= 255 )
  41 #endif
  42 #if (defined(CERNLIB_QIEEE))&&(defined(CERNLIB_B32))
  43       PARAMETER    (JEX=24, NEX= 9, NEG= 511 )
  44 #endif
  45 #if defined(CERNLIB_QMND3)
  46       PARAMETER    (JEX=23, NEX=10, NEG=1023 )
  47 #endif
  48 C
  49 #include "kerngen/q_jbit.inc"
  50 C
  51 C
  52       A   = ARGM(1)
  53       JCH = JBYT (IA,JEX,NEX)
  54       IF (JCH.EQ.0)          GO TO 36
  55       IF (JCH.EQ.NEG)        GO TO 36
  56       INTARG = A
  57       RETURN
  58 C
  59    36 INTARG = IA
  60       RETURN
  61       END
  62 #endif