CIPRIME CNUDM                                                           CNUDM       1
      COMMON /UDM1/ JUDE(NXUDB),KUDE(NXUDB),VALOUT(NXUDB),VALIN(80)     CNUDM       2
     &,INPUTS(NXLEN),GAINS(NXLEN),SSMAT(NXLEN),DELT(NDLEN)              CNUDM       3
     &,DELH(NXDEL,NDLEN),UDAT(NXUDB**2)                                 CNUDM       4
     &,KINPU,IDEL,IUDCM,JLSS,KERUDM,BASERT                              CNUDM       5
C                                                                       CNUDM       6
      DIMENSION IUDAT(NXUDB**2)                                         CNUDM       7
      EQUIVALENCE (UDAT(1),IUDAT(1))                                    CNUDM       8
C                                                                       CNUDM       9
      COMMON /UDM2/ JE0,JE1,JE2,JE3,JEB,JE4,JE5,JE6,JE7                 CNUDM      10
     &,NRBUS,NRLIN,NUDB,INTUD,INPUD                                     CNUDM      11
C                                                                       CNUDM      12
      CHARACTER*4 BLNAM1,BLNAM2                                         CNUDM      13
      CHARACTER*3 BLTYP                                                 CNUDM      14
      COMMON /UDM3/ BLNAM1,BLNAM2,BLTYP                                 CNUDM      15
      INTEGER*4 NBINT1,NBINT2                                           CNUDM      16
      EQUIVALENCE (NBINT1,BLNAM1)                                       CNUDM      17
      EQUIVALENCE (NBINT2,BLNAM2)                                       CNUDM      18
