CIPRIME UDCG                                                            UDCG        1
C                                                                       UDCG        2
      COMMON/UDCGD/     ALPHAT,        ALPHAL,         ALPHAC,          UDCG        3
     1     DELAY(LEND), DTIME,         STIME,          CTIME,           UDCG        4
     2     TIME,        IDELFR,        NDSTEP,         NCSTEP,          UDCG        5
     3     NDPSTP,      NCPSTP,        NCTP,           NDTP,            UDCG        6
     4     NINTF                                                        UDCG        7
