MINICERN/packlib/kernlib/kerngen/kerngen/qnatch.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:14  mclareni
   6 * Kernlib
   7 *
   8 *
   9 *  Siemens compiler
  10 *
  11 * qnatch.inc
  12 *
  13 #if defined(CERNLIB_QMIBM)
  14 #if defined(CERNLIB_QF_SIEM)
  15       COMMON /QNATCH/ NATCH(256)
  16       INTEGER*2       NATCH
  17 #else
  18       INTEGER*2       NATCH(256)
  19 #endif
  20 #include "qnatchdata.inc"
  21 #endif