4 lines
148 B
Text
4 lines
148 B
Text
C *--> FROM CMS(UPRIMX)
|
|
C COMMON BLOCK USED BY ROUTINE UPRIMO
|
|
COMMON /UPRIMX/ LPNCH1,LPNCH2
|
|
C
|