1 /* $Id: units.h,v 1.6 2020-09-21 21:46:52 phil Exp $ */ 2 3 #define NUNITS 256 /* XXX set at runtime? */ 4 5 /* 6 * "external" unit numbers (one-based) 7 * (modern FORTRAN seems to use unit zero for stderr!) 8 */ 9 #define UNITI 5 /* INPUT: stdin */ 10 #define UNITO 6 /* OUTPUT: stdout */ 11 #define UNITP 7 /* TERMINAL output: stderr */ 12 #define UNITT 8 /* TERMINAL input */ 13 14 /* names associated with UNITI, UNITO, UNITP(!), UNITT */ 15 #define STDIN_NAME "stdin" /* XXX "-" ? */ 16 #define STDOUT_NAME "stdout" /* XXX "-" ? */ 17 #define STDERR_NAME "stderr" 18 #define TERMIN_NAME "termin" /* terminal input */ 19