File indexing completed on 2025-02-21 10:04:38
0001 #if 0
0002 * This pilot patch was created from kernhpx.car patch _khpx
0003 * external names with underscore
0004 * IEEE floating point
0005 * Hollerith constants exist
0006 * EQUIVALENCE Hollerith/Character ok
0007 * Orthodox Hollerith storage left to right
0008 * Internal double-precision
0009 * ISA standard routines, ISHFT, IOR, etc
0010 * MIL standard routines, IBITS, MVBITS, etc
0011 #endif
0012 #ifndef CERNLIB_QMHPX
0013 #define CERNLIB_QMHPX
0014 #endif
0015 #if !defined(CERNLIB_QXNO_SC)
0016 #ifndef CERNLIB_QX_SC
0017 #define CERNLIB_QX_SC
0018 #endif
0019 #endif
0020 #ifndef CERNLIB_QIEEE
0021 #define CERNLIB_QIEEE
0022 #endif
0023 #ifndef CERNLIB_QORTHOLL
0024 #define CERNLIB_QORTHOLL
0025 #endif
0026 #ifndef CERNLIB_INTDOUBL
0027 #define CERNLIB_INTDOUBL
0028 #endif
0029 #ifndef CERNLIB_QISASTD
0030 #define CERNLIB_QISASTD
0031 #endif
0032 #ifndef CERNLIB_QMILSTD
0033 #define CERNLIB_QMILSTD
0034 #endif
0035 #ifndef CERNLIB_QS_UNIX
0036 #define CERNLIB_QS_UNIX
0037 #endif
0038 #ifndef CERNLIB_QGETCWD
0039 #define CERNLIB_QGETCWD
0040 #endif
0041 #ifndef CERNLIB_QSIGPOSIX
0042 #define CERNLIB_QSIGPOSIC
0043 #endif
0044 #ifndef CERNLIB_QINTZERO
0045 #define CERNLIB_QINTZERO
0046 #endif
