MICROCERN/kerngen/khpx.h

   1 #if 0
   2 * This pilot patch was created from kernhpx.car patch _khpx
   3 *    external names with underscore
   4 *                 IEEE floating point
   5 *                 Hollerith constants exist
   6 *              EQUIVALENCE Hollerith/Character ok
   7 *              Orthodox Hollerith storage left to right
   8 *              Internal double-precision
   9 *               ISA standard routines, ISHFT, IOR, etc
  10 *               MIL standard routines, IBITS, MVBITS, etc
  11 #endif
  12 #ifndef CERNLIB_QMHPX
  13 #define CERNLIB_QMHPX
  14 #endif
  15 #if !defined(CERNLIB_QXNO_SC)
  16 #ifndef CERNLIB_QX_SC
  17 #define CERNLIB_QX_SC
  18 #endif
  19 #endif
  20 #ifndef CERNLIB_QIEEE
  21 #define CERNLIB_QIEEE
  22 #endif
  23 #ifndef CERNLIB_QORTHOLL
  24 #define CERNLIB_QORTHOLL
  25 #endif
  26 #ifndef CERNLIB_INTDOUBL
  27 #define CERNLIB_INTDOUBL
  28 #endif
  29 #ifndef CERNLIB_QISASTD
  30 #define CERNLIB_QISASTD
  31 #endif
  32 #ifndef CERNLIB_QMILSTD
  33 #define CERNLIB_QMILSTD
  34 #endif
  35 #ifndef CERNLIB_QS_UNIX
  36 #define CERNLIB_QS_UNIX
  37 #endif
  38 #ifndef CERNLIB_QGETCWD
  39 #define CERNLIB_QGETCWD
  40 #endif
  41 #ifndef CERNLIB_QSIGPOSIX
  42 #define CERNLIB_QSIGPOSIC
  43 #endif
  44 #ifndef CERNLIB_QINTZERO
  45 #define CERNLIB_QINTZERO
  46 #endif