CIPRIME UDCD                                                            UDCD        1
C                                                                       UDCD        2
C                                                                       UDCD        3
      COMMON/UDCDD/     IFXFRE,        FXHIGH(NUDC),  FXINCR(NUDC),     UDCD        4
     1    FXINIT(NUDC), IFINUM(NUDC),  IFXINT,        FXLOW(NUDC),      UDCD        5
     2    IFXLST,       IFXLSR,        IFXNEX(NUDC),  IFXNUM(NUDC),     UDCD        6
     3    JFXNUM(NUDC), IFXRMO,        IFXSTR,        IFXSUB,           UDCD        7
     4    FXTOL(NUDC),  FXVAL(NUDC),   IFXOUT(NUDC)                     UDCD        8
C                                                                       UDCD        9
      CHARACTER*17  FXINAM, FXNAM1, FXNAM2                              UDCD       10
      COMMON/UDCDC/ FXINAM(NUDC),FXNAM1(NUDC),FXNAM2(NUDC)              UDCD       11
C                                                                       UDCD       12
