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