12 lines
418 B
Text
12 lines
418 B
Text
|
C *--> FROM CMS(UFREEX)
|
||
|
|
C FREE FORMAT INPUT COMMON BLOCK
|
||
|
|
COMMON /UFREEX/ NFIELD,
|
||
|
|
* IFTYPE(50),IFCNT(50),IFSTRT(50),IFSTOP(50),
|
||
|
|
* ICDBUF,ICDSTR,ICDSTP,NRDCRD,IPRBLN,IPRCRD,MAXFLD,IPRMPT,
|
||
|
|
* NPUCRD,PFCOMA,IPRTCD,ICKDAT,ICDTMP,IOPREP,ICDSPC,
|
||
|
|
* ICDQTE,NFLDNQ,CMTCHR
|
||
|
|
LOGICAL PFCOMA
|
||
|
|
CHARACTER*1 CMTCHR
|
||
|
|
CHARACTER*100 ICDBUF
|
||
|
|
C
|