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

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:49  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if defined(CERNLIB_QMSUN)
  11 #include "sungs/iumode.F"
  12 #elif defined(CERNLIB_QMVAX)
  13 #include "vaxgs/iumode.F"
  14 #else
  15       FUNCTION IUMODE (WORD)
  16 C
  17 C CERN PROGLIB# M506    IUMODE          .VERSION KERNFOR  4.23  891215
  18 C ORIG. 14/04/79 JZ
  19 C
  20 C     RETURN ZERO IF WORD CONTAINS AN INTEGER
  21 C     PROGRAM WRITTEN 27-APR-79, JZ
  22 C
  23       INTEGER   WORD
  24 C
  25 #if defined(CERNLIB_QMCV64)
  26       PARAMETER    (JEX=53, NEX=12, NEG=4095 )
  27 #endif
  28 #if defined(CERNLIB_QMCRY)
  29       PARAMETER    (JEX=49, NEX=16, NEG=65535)
  30 #endif
  31 #if defined(CERNLIB_QMCDC)
  32       PARAMETER    (JEX=49, NEX=12, NEG=4095 )
  33 #endif
  34 #if defined(CERNLIB_QMUNI)||defined(CERNLIB_QMUNO)
  35       PARAMETER    (JEX=28, NEX= 9, NEG= 511 )
  36 #endif
  37 #if defined(CERNLIB_QMPDP)
  38       PARAMETER    (JEX=28, NEX= 9, NEG= 511 )
  39 #endif
  40 #if defined(CERNLIB_QMDGE)||defined(CERNLIB_QMIBM)
  41       PARAMETER    (JEX=25, NEX= 8, NEG= 255 )
  42 #endif
  43 #if (defined(CERNLIB_QIEEE))&&(defined(CERNLIB_B32))
  44       PARAMETER    (JEX=24, NEX= 9, NEG= 511 )
  45 #endif
  46 #if defined(CERNLIB_QMND3)
  47       PARAMETER    (JEX=23, NEX=10, NEG=1023 )
  48 #endif
  49 C
  50 #include "kerngen/q_jbit.inc"
  51 C
  52       J = JBYT (WORD,JEX,NEX)
  53       IF (J.EQ.NEG)  J=0
  54       IUMODE= J
  55       RETURN
  56       END
  57 #endif