MINICERN/packlib/zebra/qutil/izbcd.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.3  1998/09/25 09:33:20  mclareni
   6 * Modifications for the Mklinux port flagged by CERNLIB_PPC
   7 *
   8 * Revision 1.2  1996/09/23 12:10:20  cernlib
   9 * add linux
  10 *
  11 * Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
  12 * Zebra
  13 *
  14 *
  15 #include "zebra/pilot.h"
  16 #if defined(CERNLIB_Z32)
  17 #include "qutyz32/izbcd.F"
  18 #elif (defined(CERNLIB_VAXVMS))||(defined(CERNLIB_QMVMI)) \
  19     ||(defined(CERNLIB_QMDOS))||(defined(CERNLIB_TMO)) \
  20     ||((defined(CERNLIB_QMLNX) && !defined(CERNLIB_PPC)))
  21 #include "qutyinv/izbcd.F"
  22 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
  23 #include "not_cern/qutycvx/izbcd.F"
  24 #elif defined(CERNLIB_CRAY)
  25 #include "not_cern/qutycry/izbcd.F"
  26 #elif defined(CERNLIB_CDC)
  27 #include "not_cern/qutycdc/izbcd.F"
  28 #elif defined(CERNLIB_PDP)
  29 #include "not_cern/qutypdp/izbcd.F"
  30 #else
  31       FUNCTION IZBCD (CHAR)
  32
  33 C-    This is a very slow stop-gap solution only  !!!
  34
  35 #include "zebra/zbcd.inc"
  36 C--------------    END CDE                             --------------
  37       INTEGER      CHAR(9)
  38
  39
  40       IZBCD = IUCOMP (CHAR(1),IQLETT(1),63)
  41       IF (IZBCD.EQ.0)  IZBCD=57
  42       RETURN
  43       END
  44 *      ==================================================
  45 #include "zebra/qcardl.inc"
  46 #endif