CIPRIME CNINTE                                                          CNINTE      1
      CHARACTER*4 KNTERF                                                CNINTE      2
      COMMON /INTER/ KNTERF(6,NITERF)                                   CNINTE      3
