C                                           *--> FROM COMMON.FLD51
      COMMON/FLD51/NFLD,ISTRT,LEN,ITYPE,NREP,INTEGR,REAL,
     *   NCHAR,CHAR(25),LLPAR,LRPAR,LASK,LATSGN,LAMPS,LEQUAL,ISTAT,
     *   NCARD,USEDUP
      LOGICAL USEDUP
C