CIPRIME CNUDMK                                                          CNUDMK      1
      COMMON /UDMK/ YKUDM(NUDCM*16),KYUDM                               CNUDMK      2
