CIPRIME CNAUTO                                                          CNAUTO      1
      CHARACTER*132 ECARD                                               CNAUTO      2
      COMMON /ECARDX/ ECARD                                             CNAUTO      3
      DIMENSION IADATA(MADATA)                                          CNAUTO      4
      EQUIVALENCE (ADATA(1),IADATA(1))                                  CNAUTO      5
*IF -MI2                                                                CNAUTO      6
      INTEGER*2 IATYPE                                                  CNAUTO      7
*ENDIF                                                                  CNAUTO      8
      COMMON /AUTO1/ IASWCT,NAWR,NALAST,NASCHM,JLNA                     CNAUTO      9
     &,NUFVDB,NUFREQ,NGUFRE,NVDLDR,NSCGRE,NUFLTR,NDISTR,NRCPRA,NRESTD   CNAUTO     10
     &,NDPDA,NDLSO,NSLBOR,NDCOSR,NOCRE,NDCSI                            CNAUTO     11
      COMMON /AUTO/IATYPE(MAXCHM),IDATPT(MAXSET),ADATA(MADATA)          CNAUTO     12
      COMMON /RCLSE/RCLSE(MAXCHM*5)                                     CNAUTO     13
