7 lines
323 B
Text
7 lines
323 B
Text
C *--> FROM COMMON/FCSEGN
|
|
C OLD SEGMENT DEFINITION INFORMATION
|
|
COMMON /FCSEGN/ IRSEG,IDSEGN(2),IUPSEG(2,5),IDNSEG(2,2),IPREC,
|
|
* IWOCRY,IFGID(2),ICGID(2),SGDSCR(5),ICRDTE(5),MINDT,XLAT,
|
|
* XLONG,NC,ND,NT,NTS,NP,NCOPS,INCSEG(20),IDEFSG,IEREC,
|
|
* IWKLOC,OPEN
|
|
C
|