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"