CIPRIME UDCB                                                            UDCB        1
C                                                                       UDCB        2
C                                                                       UDCB        3
      COMMON/ UDCBD/  LPFREE,LPFRST(NUDC),LPLAST(NUDC), LPLEAD(NUDC),   UDCB        4
     1              LPMAX,LPNEXT(NUDC*5),LPNUM(NUDC*5), LPSUBS(NUDC),   UDCB        5
     2              LPTOP(NUDC),XLPTOL                                  UDCB        6
C                                                                       UDCB        7
      CHARACTER*17  LPNAME(NUDC*5)                                      UDCB        8
      COMMON/UDCBC/     LPNAME                                          UDCB        9
C                                                                       UDCB       10
