CIPRIME CNUDMA                                                          CNUDMA      1
      COMMON /SCRAT5/ AXB(NXUDB2,NXUDB2),BUB(NXUDB2,NXUDB2)             CNUDMA      2
     &,BUI(NXUDB2,LOUTP),BUV(NXUDB2,LOUTP),BUVR(NXUDB2,120)             CNUDMA      3
     &,BUIF(NXUDB2),BUTM(NXUDB2),BUVS(NXUDB2),BUVU(NXUDB2),BUREF(NXUDB2)CNUDMA      4
     &,BUW(NXUDB2),CXB(NXUDB,NXUDB2),DUB(NXUDB,NXUDB2),CYB(NXUDB2,NXUDB)CNUDMA      5
     &,DU0(NXUDB2,20),DUR0(NXUDB2,60),XUI(20,LOUTP),XUV(20,LOUTP)       CNUDMA      6
     &,XUY(20,NXUDB),XUTM(20),XUIF(20),XUW(20),XUVS(20),XUVU(20)        CNUDMA      7
     &,XUREF(20),DUI(NXUDB2,LOUTP),DUV(NXUDB2,LOUTP),DUVR(NXUDB2,120)   CNUDMA      8
     &,DUIF(NXUDB2),DUTM(NXUDB2),DUW(NXUDB2),DUVS(NXUDB2),DUVU(NXUDB2)  CNUDMA      9
     &,DUREF(NXUDB2),CYO(4,NXUDB),CYX(4,NXUDB2),CYI(4,LOUTP)            CNUDMA     10
     &,CYV(4,LOUTP),CYVR(4,60),CYIF(4),CYW(4),CYTM(4),CYVS(4),CYVU(4)   CNUDMA     11
     &,CYREF(4),MBUSR(70),KORD,IUB,IYB                                  CNUDMA     12
