CIPRIME CNUDIC                                                          CNUDIC      1
      COMMON /UDIC/ NVALUS,NVALUR,NVALUT,NVALUB,NVALIU,NVALOU           CNUDIC      2
     &,VALIUD(80*NUDCM),VALOUD(NXUDB*NUDCM)                             CNUDIC      3
