MINICERN/packlib/zebra/zebra/zceta.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:46:52  mclareni
   6 * Zebra
   7 *
   8 *
   9 #ifndef CERNLIB_ZEBRA_ZCETA_INC
  10 #define CERNLIB_ZEBRA_ZCETA_INC
  11 *
  12 *                CETA values in internal order
  13 *
  14 * zceta.inc
  15 *
  16 #if defined (CERNLIB_CDC)
  17       PARAMETER     (NQTCET=64)
  18       COMMON /ZCETA/ IQCETA(64), IQTCET(64)
  19
  20 #elif defined (CERNLIB_PDP)
  21       PARAMETER     (NQTCET=128)
  22       COMMON /ZCETA/ IQCETA(128),IQTCET(128)
  23
  24 #elif defined (CERNLIB_QMUNO)
  25       PARAMETER     (NQTCET=512)
  26       COMMON /ZCETA/ IQCETA(512),IQTCET(512)
  27
  28 #elif 1
  29       PARAMETER     (NQTCET=256)
  30       COMMON /ZCETA/ IQCETA(256),IQTCET(256)
  31
  32 #endif
  33
  34 #endif