CIPRIME CNSELI                                                          CNSELI      1
*IF -MI2                                                                CNSELI      2
      INTEGER*2 LCONE,NEXTSL                                            CNSELI      3
      CHARACTER*2 CCONE(6,MSEL/4),CNEXTS(3,MSEL)                        CNSELI      4
*ENDIF                                                                  CNSELI      5
*IF MI2                                                                 CNSELI      6
*ENDIF                                                                  CNSELI      8
      COMMON /SELI/ LCONE(6,MSEL/4),EQPI(18,MSEL/4),NEXTSL(3,MSEL)      CNSELI      9
     &,PSELIN(6,MSEL)                                                   CNSELI     10
      EQUIVALENCE (LCONE(1,1),CCONE(1,1)),                              CNSELI     11
     &            (NEXTSL(1,1),CNEXTS(1,1))                             CNSELI     12
