7 lines
343 B
Text
7 lines
343 B
Text
C *--> FROM SCOMMON.SUERRX
|
|
C ERROR, WARNING AND RUN STATISICS COMMON BLOCK
|
|
COMMON /SUERRX/ IOERR,NWARN,NERR,NTWARN,NTERR,ICMCDE,KLCODE,
|
|
* MPGWRN,NPGWRN,LPGWRN(500),MPGERR,NPGERR,LPGERR(500),
|
|
* ISTDAY,ISTHMS,KLSTOP,IRNCDE,IELDAY,IELHMS,NRWARN,NRERR
|
|
INTEGER*2 LPGWRN,LPGERR
|
|
C
|