MINICERN/packlib/zebra/qutil/izbcdv.F

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