CIPRIME CDCPT2                                                          CDCPT2      1
C                                                                       CDCPT2      2
      DATA GENMOD/                                                      CDCPT2      3
     1'GENCLS  ','GENROU  ','GENSAL  ','GENTRA  '/                      CDCPT2      4
C      DATA IGNNUM/                                                     CDCPT2      5
C     1     2,       14,        12,         9/                          CDCPT2      6
C      DATA IGNICO/                                                     CDCPT2      7
C     1     0,        0,         0,         0/                          CDCPT2      8
C                                                                       CDCPT2      9
      DATA EXCMOD/                                                      CDCPT2     10
     1'EXAC1   ','OEX3    ','EXST1   ','IEEET1  ','IEEET3  ','IEEET4  ',CDCPT2     11
     2'IEEEX1  ','IEEEX4  ','SCRX    ','SEXS    ','OEX12   ','EXDC2   ',CDCPT2     12
     3'IEEET5  ','EXAC3   ','EXST2   ','IEEX2A  ','IEET5A  ','IEEEX3  ',CDCPT2     13
     4'MNEXL1  ','EXST3   ','EXAC4   ','IEET1S  ','EXAC2   ','IEEET2  ',CDCPT2     14
     5'IEEEX2  ','EXAC1A  ','EXST2A  ','IEET1A  '/                      CDCPT2     15
C                                                                       CDCPT2     16
C      DATA IEXNUM/                                                     CDCPT2     17
C     1   17,       20,         12,        14,       12,         11,    CDCPT2     18
C     2   16,       11,          8,         6,       29,         16,    CDCPT2     19
C     3   10,       22,         13,        30,       13,         12,    CDCPT2     20
C     4   23,       18,         10,        8,        23,         14,    CDCPT2     21
C     5   16,       17,         13,        0/                           CDCPT2     22
C                                                                       CDCPT2     23
C      DATA IEXICO/                                                     CDCPT2     24
C     1    0,        0,          0,         0,        0,          0,    CDCPT2     25
C     2    0,        0,          0,         0,        0,          0,    CDCPT2     26
C     3    0,        0,          0,         0,        0,          0,    CDCPT2     27
C     4    0,        0,          0,         0,        0,          0,    CDCPT2     28
C     5    0,        0,          0,         0/                          CDCPT2     29
C                                                                       CDCPT2     30
      DATA EVCMOD/                                                      CDCPT2     31
     1'IEEEVC  ','COMP    ','REMCMP'/                                   CDCPT2     32
C                                                                       CDCPT2     33
C      DATA IVCNUM/                                                     CDCPT2     34
C     1   17,       20,         0/                                      CDCPT2     35
C                                                                       CDCPT2     36
C      DATA IVCICO/                                                     CDCPT2     37
C     1    0,        0,         0/                                      CDCPT2     38
C                                                                       CDCPT2     39
      DATA STBMOD/                                                      CDCPT2     40
     1'STAB1   ','IEEEST  ','OSTAB2  ','OSTAB5  ','ST2CUT  ','STAB3   ',CDCPT2     41
     2'STAB4   ','IEE2ST  '/                                            CDCPT2     42
C                                                                       CDCPT2     43
C      DATA ISTNUM/                                                     CDCPT2     44
C     1    6,       17,         20,        20,     16,         5,       CDCPT2     45
C     2    11,      16/                                                 CDCPT2     46
C                                                                       CDCPT2     47
C      DATA ISTICO/                                                     CDCPT2     48
C     1    0,        2,          0,         0,      4,          0,      CDCPT2     49
C     2    0,        4/                                                 CDCPT2     50
C                                                                       CDCPT2     51
      DATA GOVMOD/                                                      CDCPT2     52
     1'CRCMGV  ','HYGOV   ','HYGOV2  ','IEEEG1  ','IEEEG2  ','IEEEG3  ',CDCPT2     53
     2'IEESGO  ','TGOV1   ','TGOV2   ','TGOV3   ','GAST    '/           CDCPT2     54
C                                                                       CDCPT2     55
C      DATA IGVNUM/                                                     CDCPT2     56
C     1   16,       12,         16,        20,        7,         14,    CDCPT2     57
C     2   11,        7,         11,        18,        9/                CDCPT2     58
C                                                                       CDCPT2     59
C      DATA IGVICO/                                                     CDCPT2     60
C    1    0,        0,          0,         0,        0,          0,     CDCPT2     61
C    2    0,        0,          0,         0,        0/                 CDCPT2     62
C                                                                       CDCPT2     63
      DATA SVCMOD/                                                      CDCPT2     64
     1'CSVGN1  ','TSVGN1  ','CSVGN4  ','TSVGN4  ','CSVGN3  ','TSVGN3  '/CDCPT2     65
C                                                                       CDCPT2     66
C      DATA ISVNUM/                                                     CDCPT2     67
C     1   10,       10,         11,       11,      11,      11/         CDCPT2     68
C                                                                       CDCPT2     69
C      DATA ISVICO/                                                     CDCPT2     70
C     1    0,        0,          1,        1,       0,       0/         CDCPT2     71
