10 lines
387 B
Text
10 lines
387 B
Text
C *--> FROM CMS(UERORX)
|
|
C ERROR AND WARNING COMMON BLOCK
|
|
COMMON /UERORX/ MAXCDE,IERPRT,ICDPRT,
|
|
* MXUERR,LUEROR(256),
|
|
* MAXERR,NERR(256),NTERR(256),
|
|
* MPGWRN(256),NPGWRN(256),LPGWRN(256,1000),
|
|
* MAXWRN,NWRN(256),NTWRN(256),
|
|
* MPGERR(256),NPGERR(256),LPGERR(256,1000)
|
|
INTEGER*2 LPGWRN,LPGERR
|
|
C
|