7 lines
271 B
Text
7 lines
271 B
Text
|
C *--> FROM COMMON.XRE26
|
||
|
|
COMMON/XRE26/IEVSW,EDISTN(24),LOCRTS,LOCETS,HREA,READLQ,
|
||
|
|
. NRAEV,REDORE,LPTADL,LPTAEL,LPTARA,LRETS,LRECO,
|
||
|
|
. WRADLQ,LTSADQ,ADDHT,AREA1
|
||
|
|
LOGICAL REDORE,WRADLQ
|
||
|
|
C
|