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 for Windows NT for Microsoft Powersation Fortran v.4.0 
0003 #endif
0004 
0005 #ifdef CERNLIB_WINNT
0006 #ifndef CERNLIB_QS_WNT
0007 #define CERNLIB_QS_WNT
0008 #endif
0009 #endif
0010 
0011 #ifndef CERNLIB_QS_DOS
0012 #define CERNLIB_QS_DOS
0013 #endif
0014 
0015 #ifndef CERNLIB_QMDOS
0016 #define CERNLIB_QMDOS
0017 #endif
0018 
0019 #ifndef CERNLIB_QIEEE
0020 #define CERNLIB_QIEEE
0021 #endif
0022 
0023 #ifndef CERNLIB_QISASTD
0024 #define CERNLIB_QISASTD
0025 #endif
0026 
0027 #ifndef CERNLIB_QMILSTD
0028 #define CERNLIB_QMILSTD
0029 #endif
0030 
0031 #ifdef CERNLIB_QORTHOLL
0032 #undef CERNLIB_QORTHOLL
0033 #endif
0034 
0035 #ifndef CERNLIB_F77TRARG
0036 #define CERNLIB_F77TRARG
0037 #endif
0038 
0039 #ifndef CERNLIB_QCFIO
0040 #define CERNLIB_QCFIO
0041 #endif
0042 
0043 #ifndef CERNLIB_QGETCWD
0044 #define CERNLIB_QGETCWD
0045 #endif
0046 
0047 #ifndef CERNLIB_QINTCOPY
0048 #define CERNLIB_QINTCOPY
0049 #endif
0050 
0051 #ifndef CERNLIB_QINTZERO
0052 #define CERNLIB_QINTZERO
0053 #endif
0054 
0055 #include "fortranc.h"