CIPRIME CNSPC0                                                          CNSPC0      1
*IF -MI2                                                                CNSPC0      2
      INTEGER*2 IBUSO,NODIA,INODIA,NODIAY,ISLBUS,ISLBU1                 CNSPC0      3
*ENDIF                                                                  CNSPC0      4
      COMMON /SPC0/ ISLAND,ISLBUS(100),ISLBU1(100),IBUSO(NB),NODIA(NB)  CNSPC0      5
     &,INODIA(NB),NODIAY(NB)                                            CNSPC0      6
