CIPRIME GRPDCS                                                          GRPDCS      1
C                                                                       GRPDCS      2
      DOUBLE PRECISION  VTWI, VTWR                                      GRPDCS      3
C                                                                       GRPDCS      4
      LOGICAL       ACCHNG, DCEXST, TMINUS, TPLUS, UDEXST               GRPDCS      5
C                                                                       GRPDCS      6
      COMMON/GRPDCL/ ACCHNG,DCEXST,TMINUS,TPLUS,UDEXST                  GRPDCS      7
      COMMON/GRPDCS/ PTHVDC(NDCC),QTHVDC(NDCC),VTWR(NDCC),VTWI(NDCC)    GRPDCS      8
