CIPRIME CNLKN1                                                          CNLKN1      1
*IF -MI2                                                                CNLKN1      2
      INTEGER*2 KTNO                                                    CNLKN1      3
*ENDIF                                                                  CNLKN1      4
      COMMON /SCRAT0/ LBRI(NB),NELI(NPL2),KTNO(NPL2)                    CNLKN1      5
