00001 #if 0
00002 * This pilot patch was created from kernhpx.car patch _khpx
00003 * external names with underscore
00004 * IEEE floating point
00005 * Hollerith constants exist
00006 * EQUIVALENCE Hollerith/Character ok
00007 * Orthodox Hollerith storage left to right
00008 * Internal double-precision
00009 * ISA standard routines, ISHFT, IOR, etc
00010 * MIL standard routines, IBITS, MVBITS, etc
00011 #endif
00012 #ifndef CERNLIB_QMHPX
00013 #define CERNLIB_QMHPX
00014 #endif
00015 #if !defined(CERNLIB_QXNO_SC)
00016 #ifndef CERNLIB_QX_SC
00017 #define CERNLIB_QX_SC
00018 #endif
00019 #endif
00020 #ifndef CERNLIB_QIEEE
00021 #define CERNLIB_QIEEE
00022 #endif
00023 #ifndef CERNLIB_QORTHOLL
00024 #define CERNLIB_QORTHOLL
00025 #endif
00026 #ifndef CERNLIB_INTDOUBL
00027 #define CERNLIB_INTDOUBL
00028 #endif
00029 #ifndef CERNLIB_QISASTD
00030 #define CERNLIB_QISASTD
00031 #endif
00032 #ifndef CERNLIB_QMILSTD
00033 #define CERNLIB_QMILSTD
00034 #endif
00035 #ifndef CERNLIB_QS_UNIX
00036 #define CERNLIB_QS_UNIX
00037 #endif
00038 #ifndef CERNLIB_QGETCWD
00039 #define CERNLIB_QGETCWD
00040 #endif
00041 #ifndef CERNLIB_QSIGPOSIX
00042 #define CERNLIB_QSIGPOSIC
00043 #endif
00044 #ifndef CERNLIB_QINTZERO
00045 #define CERNLIB_QINTZERO
00046 #endif
