CIPRIME CNB8                                                            CNB8        1
*IF -MI2                                                                CNB8        2
      INTEGER*2 ICONTA,KPGEN,KCGEN                                      CNB8        3
*ENDIF                                                                  CNB8        4
      COMMON /B81/ ICONTA(16,NM),JCONTA(12,NM),KPGEN(2,NM),KCGEN(2,NM)  CNB8        5
