CIPRIME CNMASK                                                          CNMASK      1
C                                                                       CNMASK      2
C-- COMMON BLOCK FOR MASK BUS TIES                                      CNMASK      3
C                                                                       CNMASK      4
*IF -MI2                                                                CNMASK      5
      INTEGER*2 IMSK,MSK,MSKOLD,MSKNEW,NZFROM,NZTO,NZTOB,               CNMASK      6
     +          LSTOFF,NEQBLT,NZFELI,NZNELI,NZFENO,NZEVP,NZEVB,         CNMASK      7
     +          NZSWIT                                                  CNMASK      8
*ENDIF                                                                  CNMASK      9
      CHARACTER*2 NZCID                                                 CNMASK     10
      COMPLEX NZYOFF                                                    CNMASK     11
      COMMON /MASK/IMSK(NB),MSK(NB),MSKOLD(NB/40),MSKNEW(NB/40)         CNMASK     12
     +             ,NZFROM(NB/40),NZTO(NB/40),NZLPO(NB/40)              CNMASK     13
     +             ,NZSWIT(NB/40),NZFELI(NB)                            CNMASK     14
     +             ,NZNELI(NB/20),NZFENO(NB/20),NZEVP(NB/80)            CNMASK     15
     +             ,NZEVB(NB/40),NZTOB(NB/10),NEQBLT(NB/40)             CNMASK     16
     +             ,GEQB(NB/40),BEQB(NB/40),LSTOFF(NB/10)               CNMASK     17
     +             ,NZLINE,NBACTL,NELB,NZEP,NZEB,KOFF                   CNMASK     18
      COMMON /MASK1/NZCID(NB/40)                                        CNMASK     19
      COMMON /MASK2/NZYOFF(NB/10)                                       CNMASK     20
C                                                                       CNMASK     21
