7 lines
333 B
Text
7 lines
333 B
Text
C *--> FROM COMMON/FCSGNN
|
|
C NEW SEGMENT DEFINITION INFORMATION
|
|
COMMON /FCSGNN/ JRSEG,JDSEGN(2),JUPSEG(2,5),JDNSEG(2,2),JPREC,
|
|
* JWOCRY,JFGID(2),JCGID(2),SGDSCJ(5),JCRDTE(5),JMINDT,XLATJ,
|
|
* XLONGJ,JNC,JND,JNT,JNTS,JNP,JNCOPS,JNCSEG(20),JDEFSG,JEREC,
|
|
* JWKLOC,JOPEN
|
|
C
|