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