C     from CGENE.INC   
C     GENER module common
      COMMON/SCRTCH/MESSU,MSGFL,GENRNO,DELT,NDAY,YR,MON,DAY,HR,MIN,
     $              NDAYS,SPAFP,SPAKND,SPIVL,SPOPNO,SPOUT,SPNUND,
     $              UUNITS,OPCODE,NTERMS,K,SUM,IVL,IVL1,DSFP1,DSFP2,
     $              DSFP3,DUMGEN
      INTEGER       MESSU,MSGFL,GENRNO,NDAY(12),YR,MON,DAY,HR,MIN,
     $              NDAYS,SPAFP,SPAKND,SPIVL,SPOPNO,SPOUT,SPNUND,
     $              UUNITS,OPCODE,NTERMS,IVL,IVL1,DSFP1,DSFP2,DSFP3
      REAL          DELT,K(7),SUM
      INTEGER       DUMGEN(17956)
C
      EQUIVALENCE   (ASVEC,MESSU),(DATIM,YR)
      INTEGER       ASVEC(1),DATIM(5)
C     end byte:  72000 word:18000
