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