      REAL*8 ITG(50)
      COMMON/DDFCOM/SSC,FCC,NCHA,NTG,NCHN,A1,DIR,ITG,MAXDT,BBLANK,LEAD,
     $NCHB,BB,NFIRST,NCH1,MAXTG,LFT,CSC,FT,RMK,NCHM,LTG
      INTEGER SSC,FCC,CSC
      LOGICAL*1 LEAD(19),A1(2046),DIR(500),BB(2046),BBLANK,FT,RMK
