Return to calling text
#ifdef comments
C Processor defined to be IBM-PC running DOS LAHEY compiler
C
#endif
#define io_keyboard 5
#ifdef comments
C Keyboard input from FORTRAN I/O unit 5
C
#endif
#define io_print 8
#ifdef comments
C Printer output to FORTRAN I/O unit 8
C Change if required
C
#endif
#define io_screen 6
#ifdef comments
C Screen output to FORTRAN I/O unit 6
C
#endif
#define io_1 1
#ifdef comments
C Scratch I/O is FORTRAN unit 1
C Change if required
C
#endif
#define io_12 12
#ifdef comments
C Scratch I/O is also FORTRAN unit 12
C Change if required
C
#endif
#define io_13 13
#ifdef comments
C Scratch I/O is also FORTRAN unit 13
C Change if required
C
#endif
#define array_size 52
#ifdef comments
C Maximum number of parameters currently set to 52
C Change if required - was originally 20
C
#endif
#define data_size 52000
#ifdef comments
C Maximum size of data array currently set to 52000
C Change if required - was originally 20000
C
#endif
#ifdef pc_lahey
#define virtual dimension
#define VIRTUAL dimension
#define byte integer*2
#define BYTE integer*2
#endif
#ifdef pc_micro
#define virtual dimension
#define VIRTUAL dimension
#define byte integer*1
#define BYTE integer*1
#endif
Return to calling text