Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by cnh, Thu Apr 23 20:56:54 1998 UTC | revision 1.4 by cnh, Wed Aug 19 13:57:42 1998 UTC | |
---|---|---|
# | Line 147 C-- Report contents of parameter file | Line 147 C-- Report contents of parameter file |
147 | STOP 'ABNORMAL END: S/R EESET_PARMS' | STOP 'ABNORMAL END: S/R EESET_PARMS' |
148 | 4 CONTINUE | 4 CONTINUE |
149 | ||
150 | C-- Execution Environment parameter file read | |
151 | CLOSE(iUnit) | |
152 | ||
153 | Cdbg eeDataUnit = 42 | Cdbg eeDataUnit = 42 |
154 | Cdbg OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO) | Cdbg OPEN(UNIT=eeDataUnit,FILE='eedata',STATUS='OLD',IOSTAT=errIO) |
155 | Cdbg IF ( errIO .LT. 0 ) GOTO 11 | Cdbg IF ( errIO .LT. 0 ) GOTO 11 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |