CIPRIME CNUDMB                                                          CNUDMB      1
      COMMON /SCRAT4/ AX(NXUDB*LOUTP,NXUDB*LOUTP),BXI(NXUDB*LOUTP,LOUTP)CNUDMB      2
     &,BXV(NXUDB*LOUTP,LOUTP+120),BREF(NXUDB*LOUTP,LOUTP/2+1)           CNUDMB      3
     &,BXW(NXUDB2),BXIF(NXUDB2),BXTM(NXUDB2),BXVS(NXUDB2),BXVU(NXUDB2)  CNUDMB      4
     &,CX(LOUTP,NXUDB*LOUTP),CREF(LOUTP,LOUTP/2+1),YDEVS(LOUTP,LOUTP)   CNUDMB      5
     &,YDEVR(LOUTP,120),ADEV(LOUTP,LOUTP),CXW,CXIF,CXTM,CXVS,CXVU       CNUDMB      6
