4 lines
246 B
Text
4 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)
|