728       subroutine ramg_dump(rarray,rn1,rfname)  argument
733       real(kind=8),dimension(rn1) ::  rarray  local
746          write(264,*)i,rarray(i)
752       subroutine ramg_dump_ic(rarray,rn1,rn2,rfname)  argument
757       integer,dimension(rn1,rn2) ::  rarray  local
770          write(264,*)j,(rarray(i,j),i=1,rn1)
775       subroutine ramg_dump_i(rarray,rn1,rn2,rfname)
780       integer,dimension(rn1,rn2) ::  rarray  variable
793          write(264,*)i,(rarray(i,j),j=1,rn2)
799       subroutine ramg_dump_ir(iarray,rarray,rn1,rn2,rfname)  argument
805       real(kind=8),dimension(rn1,rn2) ::  rarray  local
822      &   i,iarray(i),(rarray(i,j),j=1,rn2)
828       subroutine ramg_dump_rn_map(rarray,rn1,rn2,rfname)  argument
834       real(kind=8),dimension(rn1,rn2) ::  rarray  local
854          write(264,mformat)ii,(rarray(i,j),j=1,rn2)
859       subroutine ramg_dump_rn(rarray,rn1,rn2,rfname)  argument
864       real(kind=8),dimension(rn1,rn2) ::  rarray  local
879          write(264,mformat)i,(rarray(i,j),j=1,rn2)