COMMON /MAFREC/HEADER,SCAN
!
      BYTE HEADER(404),SCAN(1592)
!
      INTEGER*2 WORDS,BLOCKFCTR,BYTES,NADCORFLAG,IMSYNCVERS,XS3CHARS(2),
     &   SCOFFSET,XS3NAMES(4)
      BYTE RESERVED(8),ASCNAME(8)
      INTEGER*4 FTYPE,YEAR,DAY,MSEC,PHOTID,FWVOLT,FWCODE,FWTEMP,
     &   FIRSTMLC,LASTMLC,LINES,PIXINMAF,MAXPIXINLINE,DIN(5),GRAYDIN(2),
     &   DIGHSKPG(2),MMC,ANLGSUBCM(4),ORBIT,SCPOS(3),SPINVCTR(3),
     &   NORMAL(3),UIPROCTIME,VEL(3),SUN(3),SPINRATE,OAMSEC,SPINPERIOD,
     &   MINSPIN,MAXSPIN
!
      EQUIVALENCE (HEADER( 1),       WORDS), (HEADER( 97),         MMC),
     &            (HEADER( 3),   BLOCKFCTR), (HEADER(101),ANLGSUBCM(1)),
     &            (HEADER( 5),       BYTES), (HEADER(117),       ORBIT),
     &            (HEADER( 9),       FTYPE), (HEADER(121),    SCPOS(1)),
     &            (HEADER(13),        YEAR), (HEADER(133), SPINVCTR(1)),
     &            (HEADER(17),         DAY), (HEADER(145),   NORMAL(1)),
     &            (HEADER(21),        MSEC), (HEADER(157),  UIPROCTIME),
     &            (HEADER(25),      PHOTID), (HEADER(161),      VEL(1)),
     &            (HEADER(29),      FWVOLT), (HEADER(173),      SUN(1)),
     &            (HEADER(33),      FWCODE), (HEADER(185),    SPINRATE),
     &            (HEADER(37),      FWTEMP), (HEADER(189),      OAMSEC),
     &            (HEADER(41),    FIRSTMLC), (HEADER(193),  SPINPERIOD),
     &            (HEADER(45),     LASTMLC), (HEADER(197),     MINSPIN),
     &            (HEADER(49),       LINES), (HEADER(201),     MAXSPIN),
     &            (HEADER(53),    PIXINMAF), (HEADER(205),  NADCORFLAG),
     &            (HEADER(57),MAXPIXINLINE), (HEADER(373), RESERVED(1)),
     &            (HEADER(61),      DIN(1)), (HEADER(381),  ASCNAME(1)),
     &            (HEADER(81),  GRAYDIN(1)), (HEADER(389),  IMSYNCVERS),
     &            (HEADER(89), DIGHSKPG(1)), (HEADER(391), XS3CHARS(1)),
     &					     (HEADER(395),    SCOFFSET),
     &					     (HEADER(397), XS3NAMES(1))
!
      INTEGER*4 LMSEC
      INTEGER*2 LWORDS,LBYTES,DCU,PIXOFFSET,NADCOR(3),ORDERNC
      BYTE MLC,ANMIRLOC,ANFWPOS,SUBCOMNO,PIXEL(1568)
!
      EQUIVALENCE (SCAN( 1),   LWORDS),      (SCAN(12), SUBCOMNO),
     &            (SCAN( 3),   LBYTES),      (SCAN(13),      DCU),
     &            (SCAN( 5),    LMSEC),      (SCAN(15),PIXOFFSET),
     &            (SCAN( 9),      MLC),      (SCAN(17),NADCOR(1)),
     &            (SCAN(10), ANMIRLOC),      (SCAN(23),  ORDERNC),
     &            (SCAN(11),  ANFWPOS),      (SCAN(25), PIXEL(1))