CIPRIME CNTGED                                                          CNTGED      1
C                                                                       CNTGED      2
      INTEGER IPQFA(2,NDYG)                                             CNTGED      3
      REAL    PQGEN                                                     CNTGED      4
      COMMON /SCRAT7/ NGEBUS(NDYG),NTHGEN(NB+1),NEXGEN(NDYG),           CNTGED      5
     +                IDSTAT(NDYG),PQGEN(2,NDYG),NTHGSR(NDYG)           CNTGED      6
      EQUIVALENCE (IPQFA(1,1),PQGEN(1,1))                               CNTGED      7
      CHARACTER*4 GENID,INDMID,SVCID                                    CNTGED      8
      COMMON /TEMPC/ GENID(NDYG),INDMID(NMT),SVCID(NSR)                 CNTGED      9
C                                                                       CNTGED     10
