CIPRIME CNB6                                                            CNB6        1
*IF -MI2                                                                CNB6        2
      INTEGER*2 NLTYPE,NLCOMP                                           CNB6        3
*ENDIF                                                                  CNB6        4
      COMMON /B6/JDNLL(NZL*4),NLCOMP(2,NZL),JTCDAT(NZL),JXTSC(NZL)      CNB6        5
     *,NLTYPE(NZL*4)                                                    CNB6        6
