7 lines
278 B
Text
7 lines
278 B
Text
C *--> FROM PRDCOMMON.PUNITS
|
|
C PROCESSED DATA BASE FILE UNITS COMMON BLOCK
|
|
COMMON /PUNITS/ KMAPTS,KGENTS,KFMPTS,KFUTTS,KFCTTS,KINDEX,KRFCPR,
|
|
* MXPRDF,NMPRDF
|
|
DIMENSION KPRDTU(5)
|
|
EQUIVALENCE (KPRDTU(1),KMAPTS)
|
|
C
|