7 lines
307 B
Text
7 lines
307 B
Text
C *--> FROM PPPCOMMON.PPUNTS
|
|
C PARAMETRIC DATA BASE FILE UNIT NUMBERS COMMON BLOCK
|
|
COMMON /PPUNTS/ KPPIDX,KPPRM1,KPPRM2,KPPRM3,KPPRM4,KPPRM5,KPPRM6,
|
|
* KPPRM7,KPPRM8,KPPRM9,MXPPPF,NMPPPF
|
|
DIMENSION KPPRMU(9)
|
|
EQUIVALENCE (KPPRM1,KPPRMU(1))
|
|
C
|