8e80217e59
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]] Former-commit-id:06a8b51d6dFormer-commit-id:3360eb6c5f
8 lines
357 B
Text
8 lines
357 B
Text
C *--> FROM SCOMMON.SUFREX
|
|
C FREE FORMAT INPUT COMMON BLOCK
|
|
COMMON /SUFREX/ NFIELD,IFTYPE(50),IFCNT(50),IFSTRT(50),IFSTOP(50),
|
|
* IBUF(100),ICDSTR,ICDSTP,NRDCRD,IPRBLN,IPRCRD,MAXFLD,IPRMPT,
|
|
* ICPNCH,NPUCRD,PFCOMA,IPRTCD,ICKDAT,ICDTMP,IOPREP,ICDSPC,
|
|
* ICDQTE,NFLDNQ
|
|
LOGICAL PFCOMA
|
|
C
|