MINICERN/packlib/zebra/fq/fzdaeof.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:08  mclareni
   6 * Zebra
   7 *
   8 *
   9 *              EoF on direct-access file
  10 *
  11 * fzdaeof.inc
  12 *
  13 #if defined(CERNLIB_QMAPO)
  14       PARAMETER    (IOSEOF = 84148232)
  15 #elif defined(CERNLIB_QMCRY)
  16       PARAMETER    (IOSEOF = 5)
  17 #elif (defined(CERNLIB_QMCV64))&&(!defined(CERNLIB_QIEEE))
  18       PARAMETER    (IOSEOF = 134)
  19 #elif (defined(CERNLIB_QMCV32))&&(!defined(CERNLIB_QIEEE))
  20       PARAMETER    (IOSEOF = 134)
  21 #elif (defined(CERNLIB_QMCV32))&&(defined(CERNLIB_QIEEE))
  22       PARAMETER    (IOSEOF = 134)
  23 #elif defined(CERNLIB_QMHPX)
  24       PARAMETER    (IOSEOF = 922)
  25 #elif defined(CERNLIB_QMIRT)
  26 ***   PARAMETER    (IOSEOF = 10)     !*  for xlf 2.2
  27 ***   PARAMETER    (IOSEOF = 122)    !*  for xlf 2.3
  28       PARAMETER    (IOSEOF = 1)      !*  for xlf 3.2
  29 #elif defined(CERNLIB_QMIRTD)
  30 ***   PARAMETER    (IOSEOF = 10)     !*  for xlf 2.2
  31 ***   PARAMETER    (IOSEOF = 122)    !*  for xlf 2.3
  32       PARAMETER    (IOSEOF = 1)      !*  for xlf 3.2
  33 #elif defined(CERNLIB_QMLNX)
  34       PARAMETER    (IOSEOF = 36)
  35 #elif defined(CERNLIB_QMOS9)
  36       PARAMETER    (IOSEOF = 326)
  37 #elif defined(CERNLIB_QMSGI)
  38       PARAMETER    (IOSEOF = 27)
  39 #elif defined(CERNLIB_QMVAX)
  40       PARAMETER    (IOSEOF = 36)
  41 #elif defined(CERNLIB_QMVMI)
  42       PARAMETER    (IOSEOF = 36)
  43 #elif defined(CERNLIB_WINDOWS)
  44 *    only valid for dec fortran (e.g. not f2c + microsoft c)
  45       PARAMETER    (IOSEOF = 36)
  46 #elif 1
  47       PARAMETER    (IOSEOF = -1)
  48 #endif