CIPRIME CNGSRC                                                          CNGSRC      1
*IF -MI2                                                                CNGSRC      2
*ENDIF                                                                  CNGSRC      3
      REAL    GSRCD                                                     CNGSRC      4
      CHARACTER*2 XGEID                                                 CNGSRC      5
      COMMON /GSRC/ LFGEN(NB/3),NSORDE(NB/3),IGENST(NB/3),GSRCD(8,NB/3) CNGSRC      6
      COMMON /GSRCC/  XGEID(NB/3)                                       CNGSRC      7
