CIPRIME UDCJ                                                            UDCJ        1
C                                                                       UDCJ        2
      DOUBLE PRECISION  GMATRX(NDCN,NDCN),XINJVE(NDCN)                  UDCJ        3
      LOGICAL       FILLED, SORTED                                      UDCJ        4
      COMMON/UDCJD/ ICONRE(NDCC,2),GMATRX,XJ1(NDCL),                    UDCJ        5
     1GMSAVE(NDCN,NDCN),IDCSRT(NDCC),XHIST1(NDCL),XHIST2(NDCL),         UDCJ        6
     2XHIST3(NDCL),XIMAGI(NDCC),XINJSA(NDCN),XINJVE,XCCONV(NDCC),       UDCJ        7
     3XJ2(NDCL),XJ3(NDCL),XK1(NDCL),IUCBRE(NDCC),VHIST2(NDCL),ISIZEG,   UDCJ        8
     4XK2(NDCL),XK3(NDCL),XK4(NDCL),XK5(NDCL),XK6(NDCL),USETPT(NDCC),   UDCJ        9
     5USETP2(NDCC),LINREF(NDCL,2),NCFIND(NDCC),NDFIND(NDCC),            UDCJ       10
     6NXFIND(NDCC),IDBPTR,PASUM(NDCC),QASUM(NDCC),REALI(NDCC),          UDCJ       11
     7IBRKRE(NDCB,2),VHIST3(NDCL),REQ(NDCL),REQ2(NDCL),REQ3(NDCL),      UDCJ       12
     8IUBBRE(NDCB),VHIST1(NDCL),ISIZEV,SORTED,UBCURR(NDCB),             UDCJ       13
     9IDBSRT(NDCB),FILLED,IDCPTR                                        UDCJ       14
C                                                                       UDCJ       15
      CHARACTER*8   CONTYP,UMODE,UMOD2                                  UDCJ       16
      CHARACTER*3   LINTYP                                              UDCJ       17
      COMMON/UDCJC/ CONTYP(NDCC),LINTYP(NDCL),UMODE(NDCC),UMOD2(NDCC)   UDCJ       18
C                                                                       UDCJ       19
