CIPRIME GRDC01                                                          GRDC01      1
      LOGICAL       BDIND,BZIND,QINV                                    GRDC01      2
      COMMON /DCDATA/ ALPMAX(NDCC), ALPMIN(NDCC), AMAXTP(NDCC),         GRDC01      3
     1 BDIND(NDCC),BZIND(NDCC),ICDC,LCDC,NUMGRP,NUMNOD,QINV(NDCC),      GRDC01      4
     2 ISIZEC,AMINTP(NDCC), BIASO(NDCC), CNVMVA(NDCC),                  GRDC01      5
     3 DCPMAX(NDCC), DCPMIN(NDCC), DCQMAX(NDCC),                        GRDC01      6
     4 DCQMIN(NDCC), GAMMIN(NDCC), TAPNOM(NDCC),                        GRDC01      7
     5 TAPSTP(NDCC), USERD(2,NDCC), VABASE(NDCC),                       GRDC01      8
     6 XCOHMS(NDCC), IDC(NDCC),IDCFRE(NDCC),NSBRDG(NDCC),               GRDC01      9
     7 NODIDX(NDCC), NONODR, GAINKC(NDCC), ICTYPE(NDCC),XLOHMS(NDCC)    GRDC01     10
C                                                                       GRDC01     11
      CHARACTER*29  DCCNAM,DCCNMR                                       GRDC01     12
      CHARACTER*12  DCCNA2                                              GRDC01     13
      CHARACTER*8   IDCNOD                                              GRDC01     14
      CHARACTER*4   SPTYPE                                              GRDC01     15
      CHARACTER*3   CNGRP,GROUP                                         GRDC01     16
      CHARACTER*2   CNZONE,SPTYP3                                       GRDC01     17
C                                                                       GRDC01     18
      COMMON /DCDATC/ CNZONE(NDCC),CNGRP(NDCC),DCCNAM(NDCC),DCCNA2(NDCC)GRDC01     19
     1              ,GROUP(NDCC),IDCNOD(NDCC),SPTYPE(NDCC),SPTYP3(NDCC) GRDC01     20
     2              ,DCCNMR(NDCC)                                       GRDC01     21
C                                                                       GRDC01     22
      CHARACTER*17  DCLNAM,DCLNMR                                       GRDC01     23
      CHARACTER*3   DLGRP,DLOWN                                         GRDC01     24
      CHARACTER*2   DLZONE                                              GRDC01     25
      COMMON /DCLINE/ CDCA(NDCL),CDCB(NDCL) ,DCIMAX(NDCL),XLDC(NDCL)    GRDC01     26
     1                ,RDCOHM(NDCL),IDCFRL(NDCL),IDCL(NDCL),ILDC,ISIZEL GRDC01     27
     2                                                                  GRDC01     28
C                                                                       GRDC01     29
      COMMON/DCLINC/  DCLNAM(NDCL),DLGRP(NDCL),DLOWN(NDCL),             GRDC01     30
     1                DLZONE(NDCL),DCLNMR(NDCL)                         GRDC01     31
C                                                                       GRDC01     32
      CHARACTER*17  DCBNAM,DCBNMR                                       GRDC01     33
      CHARACTER*3   DBGRP,DBOWN                                         GRDC01     34
      CHARACTER*2   DBZONE                                              GRDC01     35
C                                                                       GRDC01     36
      COMMON/DCBRKR/  IBSTAT(NDCB),IBDC,IDCB(NDCB),                     GRDC01     37
     1                IDCFRB(NDCB),ISIZEB                               GRDC01     38
C                                                                       GRDC01     39
      COMMON/DCBKRC/  DBGRP(NDCB),DBOWN(NDCB),DBZONE(NDCB),             GRDC01     40
     1                DCBNAM(NDCB),DCBNMR(NDCB)                         GRDC01     41
C                                                                       GRDC01     42
      COMMON/DCMISC/  PABASE,PDBASE,VDBASE                              GRDC01     43
