Back to home page

EIC code displayed by LXR

 
 

    


File indexing completed on 2025-02-21 10:04:38

0001 #if 0
0002 *       for VAX
0003 * This pilot patch was created from kernvax.car patch _kalph
0004 * This directory was created from kernvax.car patch vaxalpha
0005 * This directory was created from kernvax.car patch qmvax
0006 * This directory was created from kernfor.car patch qmvax
0007 *               CC assumed available
0008 *     external names without underscores
0009 *     ISA standard routines, ISHFT, IOR, etc
0010 *     MIL standard routines, IBITS, MVBITS, ISHFTC
0011 *       Hollerith constants exist
0012 *    EQUIVALENCE Hollerith/Character ok
0013 *       Hollerith storage not orthodox
0014 #endif
0015 #ifndef CERNLIB_QMALPH
0016 #define CERNLIB_QMALPH
0017 #endif
0018 #ifndef CERNLIB_QMVAXCC
0019 #define CERNLIB_QMVAXCC
0020 #endif
0021 #ifndef CERNLIB_QMVAX
0022 #define CERNLIB_QMVAX
0023 #endif
0024 #ifndef CERNLIB_QXNO_SC
0025 #define CERNLIB_QXNO_SC
0026 #endif
0027 #ifndef CERNLIB_QISASTD
0028 #define CERNLIB_QISASTD
0029 #endif
0030 #ifndef CERNLIB_QMILSTD
0031 #define CERNLIB_QMILSTD
0032 #endif
0033 #ifdef CERNLIB_QORTHOLL
0034 #undef CERNLIB_QORTHOLL
0035 #endif
0036 #ifndef CERNLIB_QINTZERO
0037 #define CERNLIB_QINTZERO
0038 #endif