CIPRIME UDCI                                                            UDCI        1
C                                                                       UDCI        2
      LOGICAL DEFINE, EXPAND, SRDONE, TRACE, DTREAD                     UDCI        3
      COMMON/UDCID/      IBKFRE,        IBKLAS,        IBKELN(NUDC),    UDCI        4
     1    IBKNEX(NUDC),  IBKSUB(NUDC),  IBKTOP(NUDC),  IBKTYP(NUDC),    UDCI        5
     2    DEFINE,        IDTFRE,        IDTIDA(NUDC*5), IDTLAS,         UDCI        6
     3    IDTNEX(NUDC*5), DTREAD(NUDC*5), DTRDAT(NUDC*5), EXPAND,       UDCI        7
     4    SRDONE,        ISRLEN,        ISRNUM,         ISRTOP(20),     UDCI        8
     5    TRACE                                                         UDCI        9
C                                                                       UDCI       10
      CHARACTER*17  SRNAME,BKNAME                                       UDCI       11
      CHARACTER*128  DTCDAT                                             UDCI       12
      CHARACTER*4   DTTYPE                                              UDCI       13
      COMMON/UDCIC1/ DTCDAT(NUDC5)                                      UDCI       14
      COMMON/UDCIC2/ BKNAME(NUDC5),SRNAME                               UDCI       15
      COMMON/UDCIC3/ DTTYPE(NUDC5)                                      UDCI       16
C                                                                       UDCI       17
