CIPRIME CNSPC1                                                          CNSPC1      1
*IF -MI2                                                                CNSPC1      2
      INTEGER*2 ICUR,IVREQ,IVREQ2,NLBUS,ICZLB,IVADD                     CNSPC1      3
*ENDIF                                                                  CNSPC1      4
      COMMON /SPC1/ NCUR,NVREQ,NVREQ2,KLBUS,NCZLB,NVADD                 CNSPC1      5
     &             ,ICUR(NDEV),IVREQ(NDEV),IVREQ2(NDEV),NLBUS(NZL)      CNSPC1      6
     &             ,ICZLB(NB*2/3),IVADD(NB/4)                           CNSPC1      7
