MINICERN/packlib/zebra/qutil/izchav.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10 #if (defined(CERNLIB_Z32))&&(defined(CERNLIB_EQUHOLCH))
  11 #include "qutyz32/izchav.F"
  12 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
  13 #include "not_cern/qutycvx/izchav.F"
  14 #elif defined(CERNLIB_CRAY)
  15 #include "not_cern/qutycry/izchav.F"
  16 #elif defined(CERNLIB_CDC)
  17 #include "not_cern/qutycdc/izchav.F"
  18 #else
  19       SUBROUTINE IZCHAV (NP)
  20
  21 #include "zebra/zceta.inc"
  22 #include "zebra/zkrakcc.inc"
  23 C--------------    END CDE                             --------------
  24       DIMENSION    NP(9)
  25
  26
  27       N = NP(1)
  28
  29       DO 29  JCE=1,N
  30       JV = ICHAR (CQHOLK(JCE:JCE))
  31    29 IQCETK(JCE) = IQCETA(JV+1)
  32       RETURN
  33       END
  34 *      ==================================================
  35 #include "zebra/qcardl.inc"
  36 #endif