CIPRIME CNB1                                                            CNB1        1
*IF -MI2                                                                CNB1        2
      INTEGER*2 IPFG,IQFG                                               CNB1        3
*ENDIF                                                                  CNB1        4
      CHARACTER*4 NDGC,NDMC,NSVCID                                      CNB1        5
      COMMON /B1/ IPFG(MP),IQFG(MP),GENPQ(2,MP),SVCQ(NSR)               CNB1        6
      COMMON /B1C/ NDGC(MP),NDMC(NMT),NSVCID(NSR)                       CNB1        7
      DIMENSION IGENPQ(2,MP)                                            CNB1        8
      EQUIVALENCE (IGENPQ(1,1),GENPQ(1,1))                              CNB1        9
