5 lines
246 B
Text
5 lines
246 B
Text
|
C *--> FROM CMS(UPDAIO)
|
||
|
|
C COMMON UPDAIO CONTAINS I/O UNIT NUMBERS FOR UP... ROUTINES
|
||
|
|
COMMON /UPDAIO/ UR,UW,UTR,UTW,UE,UU,UPRECL,MUPRECL
|
||
|
|
INTEGER UR,UW,UTR,UTW,UE,UU,UPRECL(256)
|