7 lines
339 B
Text
7 lines
339 B
Text
C *--> FROM COMMON/FCTSGN
|
|
C TEMPORARY SEGMENT DEFINITION INFORMATION
|
|
COMMON /FCTSGN/ KRSEG,KDSEGN(2),KUPSEG(2,5),KDNSEG(2,2),KPREC,
|
|
* KWOCRY,KFGID(2),KCGID(2),SGDSCK(5),KCRDTE(5),KMINDT,XLATK,
|
|
* XLONGK,KNC,KND,KNT,KNTS,KNP,KNCOPS,KNCSEG(20),KDEFSG,KEREC,
|
|
* KWKLOC,KOPEN
|
|
C
|