CIPRIME UDCA                                                            UDCA        1
C                                                                       UDCA        2
      LOGICAL       COMFAL, DCCHNG, DEBUG,                              UDCA        3
     1              FRSTAC, FRSTDC, HIST, MODCHG, NEGCUR, SDBG,         UDCA        4
     2              SOLDC, STAND, THEVIN                                UDCA        5
C                                                                       UDCA        6
      COMMON/UDCFG/     COMFAL,        DCCHNG,        DEBUG,            UDCA        7
     1                  FRSTAC,        FRSTDC,        HIST,             UDCA        8
     2                  MODCHG,        NEGCUR,        SDBG,             UDCA        9
     3                  SOLDC,         STAND,         THEVIN            UDCA       10
C                                                                       UDCA       11
      CHARACTER*72  STARS                                               UDCA       12
      COMMON/UDSTAR/    STARS                                           UDCA       13
C                                                                       UDCA       14
      LOGICAL       UDPRNT                                              UDCA       15
      COMMON/UDCAD/      IADDI,         IADDP,         IADDR,           UDCA       16
     1    IADDS,         IUDC,          LASTI,         LASTP,           UDCA       17
     2    LASTR,         LASTS,         NEXTI,         NEXTP,           UDCA       18
     3    NEXTR,         NEXTS,         IPRLIS(NUDC),  IPRNUM,          UDCA       19
     4    IUDBNM(NUDC),  JUDBNM(NUDC),  IUDIFR,        IUDINT(NUDC5),   UDCA       20
     5    IUDINV(NUDC),  IUDINX(NUDC5), IUNIPT(NUDC),  IUDLEN(NUDC),    UDCA       21
     6    IUDOFR,        UDOLD(NUDC5),  UDOLST(NUDC5), IUDONX(NUDC5),   UDCA       22
     7    IUDOPT(NUDC),  UDPARM(NUDC5), IUDPFR,        IUDPNX(NUDC5),   UDCA       23
     8    IUDPPT(NUDC),  IUDPRM(NUDC),  UDPRM1(NUDC),  UDPRM2(NUDC),    UDCA       24
     9    UDPRNT(NUDC),  IUDRFR,        IUDRNX(NUDC5),  IUDRPT(NUDC),   UDCA       25
     1    IUDSFR,        IUDSNX(NUDC5), IUDSPT(NUDC), IUDSUB(NUDC),     UDCA       26
     2    IUDTYP(NUDC),  UDVAL(NUDC),   UDVA3(NUDC)                     UDCA       27
C                                                                       UDCA       28
      CHARACTER*72       UDCCHR                                         UDCA       29
      COMMON /UDCCH/     IUDCFR,  IUDCNX(NUDCC), IUDCPT(NUDC)           UDCA       30
      COMMON /UDCCHC/    UDCCHR(NUDCC)                                  UDCA       31
C                                                                       UDCA       32
      CHARACTER*17   UDBLK1,UDBLK2,UDNAME,UIDENT                        UDCA       33
      CHARACTER*8    UDOU2,UDOU4,UDRELA,UDRKW                           UDCA       34
      COMMON /UDCAC1/ UDBLK1(NUDC5)                                     UDCA       35
      COMMON /UDCAC2/ UDBLK2(NUDC5)                                     UDCA       36
      COMMON /UDCAC3/ UDNAME(NUDC)                                      UDCA       37
      COMMON /UDCAC4/ UIDENT(NUDC5)                                     UDCA       38
      COMMON /UDCAC5/ UDOU2(NUDC), UDOU4(NUDC)                          UDCA       39
      COMMON /UDCAC6/ UDRELA(NUDC5)                                     UDCA       40
      COMMON /UDCAC7/ UDRKW(NUDC5)                                      UDCA       41
C                                                                       UDCA       42
      CHARACTER*8        SBACSY,SBBIN,SBBRKR,SBFORT,                    UDCA       43
     1                   SBFRAC,SBFRDC,SBLIMT,SBLOGC,                   UDCA       44
     2                   SBMLTP,SBOTHR,SBSBLK,SBSETP,                   UDCA       45
     3                   SBSRCE,SBSTRC,SBSUBS,SBUNA,                    UDCA       46
     4                   SBPRT, TPNAME                                  UDCA       47
      COMMON /UDCA2C/ SBACSY(18), SBBIN(5), SBBRKR(2), SBFORT(20),      UDCA       48
     1                SBFRAC(6), SBFRDC(26), SBLIMT(4), SBLOGC(10),     UDCA       49
     2                SBMLTP(4), SBOTHR(12), SBSBLK(2), SBSETP(5),      UDCA       50
     3                SBSRCE(7), SBSTRC(20), SBSUBS(5), SBUNA(13),      UDCA       51
     4                SBPRT(1),  TPNAME(19)                             UDCA       52
C                                                                       UDCA       53
      COMMON/UDCA2D/     MXFORT,NMFORT,NMSTRC,ISBFNU(20)                UDCA       54
C                                                                       UDCA       55
