Back to home page

EIC code displayed by LXR

 
 

    


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

0001 #if 0
0002 * This pilot patch was created from kerngen.car patch _kerngen
0003 * This directory was created from kernfor.car patch qdefault
0004 *   Character set is ASCII
0005 *  Internal double-precision
0006 *            copy vectors as floating normally
0007 #endif
0008 #if defined(CERNLIB_MSDOS)
0009 #include "kdos.h"
0010 #endif
0011 #if defined(CERNLIB_WINNT)
0012 #include "kwnt.h"
0013 #endif
0014 #if (defined(CERNLIB_DECS))&&(!defined(CERNLIB_QMVAOS))
0015 #include "kvmi.h"
0016 #endif
0017 #if (defined(CERNLIB_DECS))&&(defined(CERNLIB_QMVAOS))
0018 #include "kvaos.h"
0019 #endif
0020 #if defined(CERNLIB_HPUX)
0021 #include "khpx.h"
0022 #endif
0023 #if defined(CERNLIB_IBMRT)
0024 #include "kirt.h"
0025 #endif
0026 #if defined(CERNLIB_LINUX)
0027 #include "klnx.h"
0028 #endif
0029 #if defined(CERNLIB_MACMPW)
0030 #include "kmpw.h"
0031 #endif
0032 #if defined(CERNLIB_OS9)
0033 #if 0
0034 * Added at release 94B
0035 #endif
0036 #include "kos9.h"
0037 #endif
0038 #if defined(CERNLIB_SGI)
0039 #include "kerngen/ksgi.h"
0040 #endif
0041 #if defined(CERNLIB_SUN)
0042 #include "ksun.h"
0043 #endif
0044 #if (defined(CERNLIB_VAXVMS))&&(!defined(CERNLIB_QMALPH))
0045 #include "kvax.h"
0046 #endif
0047 #if (defined(CERNLIB_VAXVMS))&&(defined(CERNLIB_QMALPH))
0048 #include "kalph.h"
0049 #endif
0050 #ifndef CERNLIB_A4
0051 #define CERNLIB_A4
0052 #endif
0053 #ifndef CERNLIB_B32
0054 #define CERNLIB_B32
0055 #endif
0056 #ifndef CERNLIB_HEX
0057 #define CERNLIB_HEX
0058 #endif
0059 #if !defined(CERNLIB_QEBCDIC)
0060 #ifndef CERNLIB_QASCII
0061 #define CERNLIB_QASCII
0062 #endif
0063 #endif
0064 #if defined(CERNLIB_B32)||defined(CERNLIB_B36)
0065 #ifndef CERNLIB_INTDOUBL
0066 #define CERNLIB_INTDOUBL
0067 #endif
0068 #endif
0069 #if defined(CERNLIB_QX_SC)
0070 #ifdef CERNLIB_QXNO_SC
0071 #undef CERNLIB_QXNO_SC
0072 #endif
0073 #endif
0074 #if defined(CERNLIB_QXNO_SC)
0075 #ifdef CERNLIB_QX_SC
0076 #undef CERNLIB_QX_SC
0077 #endif
0078 #endif
0079 #if defined(CERNLIB_QXNO_SC)||defined(CERNLIB_QX_SC)
0080 #ifdef CERNLIB_QXCAPT
0081 #undef CERNLIB_QXCAPT
0082 #endif
0083 #endif
0084 #if (!defined(CERNLIB_QXNO_SC))&&(!defined(CERNLIB_QXCAPT))
0085 #ifndef CERNLIB_QX_SC
0086 #define CERNLIB_QX_SC
0087 #endif
0088 #endif
0089 #if defined(CERNLIB_SHIFT)
0090 #ifndef CERNLIB_PROJSHIFT
0091 #define CERNLIB_PROJSHIFT
0092 #endif
0093 #endif
0094 
0095 #ifndef type_of_call
0096 #define type_of_call
0097 #endif
0098