CIPRIME GRDC03                                                          GRDC03      1
C                                                                       GRDC03      2
      COMMON/DCSOLN/ CALPHA(NDCC), CGAMMA(NDCC), XACURR(NDCC),          GRDC03      3
     1               XDCONV(NDCC), XDNODE(NDCN), PAHVDC(NDCC),          GRDC03      4
     2               PHIDC(NDCC),  QAHVDC(NDCC), TAPPOS(NDCC),          GRDC03      5
     3               VDCNOD(NDCN), VDCONV(NDCC), Q2HVDC(NDCC),          GRDC03      6
     4               PIHVDC(NDCC), QIHVDC(NDCC)                         GRDC03      7
