2 * This pilot patch was created from kernhpx.car patch _khpx
3 * external names with underscore
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
15 #if !defined(CERNLIB_QXNO_SC)
23 #ifndef CERNLIB_QORTHOLL
24 #define CERNLIB_QORTHOLL
26 #ifndef CERNLIB_INTDOUBL
27 #define CERNLIB_INTDOUBL
29 #ifndef CERNLIB_QISASTD
30 #define CERNLIB_QISASTD
32 #ifndef CERNLIB_QMILSTD
33 #define CERNLIB_QMILSTD
35 #ifndef CERNLIB_QS_UNIX
36 #define CERNLIB_QS_UNIX
38 #ifndef CERNLIB_QGETCWD
39 #define CERNLIB_QGETCWD
41 #ifndef CERNLIB_QSIGPOSIX
42 #define CERNLIB_QSIGPOSIC
44 #ifndef CERNLIB_QINTZERO
45 #define CERNLIB_QINTZERO