CIPRIME CNCPT3                                                          CNCPT3      1
      COMMON /H1/ NLF,IPFA,IQFA,IGEN,ISAT,JEXC,IVTN,JSTAB,JGOV,JFLTN,   CNCPT3      2
     &            JTEB,IRMBUS,IOHTYP,IRMBU1,IOHTY1,IM,IN                CNCPT3      3
      COMMON /GENX/ RA,XD,XQ,XL,XPD,XPQ,XPPD,XPPQ,TPDO,TPQO,TPPDO,TPPQO CNCPT3      4
      COMMON /GENS/ ASAT,BSAT,UL,UH                                     CNCPT3      5
      COMMON /GENH/ HM,DAMP,CMTL,BASPR,BASVR                            CNCPT3      6
      COMMON /GENC/ EXC(J9E1D),EXS(J9S1D),EXF(J9S2D),EXG(J9V1D),EXB(4), CNCPT3      7
     +              IEXG(2)                                             CNCPT3      8
      CHARACTER KCCT*1,NGRI*4,BUSNAM*12                                 CNCPT3      9
      COMMON /DEVID/ NGRI,BUSNAM,KCCT                                   CNCPT3     10
