CIPRIME CNSPC2                                                          CNSPC2      1
*IF -MI2                                                                CNSPC2      2
      INTEGER*2 KORNO                                                   CNSPC2      3
*ENDIF                                                                  CNSPC2      4
      COMMON /SPC2/ KORNO(NPL3)                                         CNSPC2      5
