3 * This pilot patch was created from kernos9.car patch _kos9
4 * This directory was created from kernos9.car patch qmos9
5 * This directory was created from kernfor.car patch qmos9
6 * external names with underscore
8 * Hollerith constants exist
9 * EQUIVALENCE Hollerith/Character ok
10 * Internal double-precision
11 * Orthodox Hollerith storage left to right
12 * ISA standard routines, ISHFT, IOR, etc
13 * MIL standard routines, IBITS, MVBITS, etc
19 #if !defined(CERNLIB_QXNO_SC)
27 #ifndef CERNLIB_QORTHOLL
28 #define CERNLIB_QORTHOLL
30 #ifndef CERNLIB_INTDOUBL
31 #define CERNLIB_INTDOUBL
33 #ifndef CERNLIB_QISASTD
34 #define CERNLIB_QISASTD
36 #ifndef CERNLIB_QMILSTD
37 #define CERNLIB_QMILSTD
39 #ifdef CERNLIB_NOGETWD
40 #undef CERNLIB_NOGETWD
42 #ifndef CERNLIB_QS_UNIX
43 #define CERNLIB_QS_UNIX
45 #ifndef CERNLIB_QINTZERO
46 #define CERNLIB_QINTZERO