705       subroutine ramg_readin_i(iarray,rn1,rfname)
711       character*10     rfname  variable
717       mfname = trim(rfname)//'.dat'//cname(myrank+1)
728       subroutine ramg_dump(rarray,rn1,rfname)  argument
734       character*10     rfname  local
740       mfname = trim(rfname)//'.dat'//cname(myrank+1)
752       subroutine ramg_dump_ic(rarray,rn1,rn2,rfname)  argument
758       character*10     rfname  local
764       mfname = trim(rfname)//'.dat'//cname(myrank+1)
775       subroutine ramg_dump_i(rarray,rn1,rn2,rfname)
781       character*10     rfname  variable
787       mfname = trim(rfname)//'.dat'//cname(myrank+1)
799       subroutine ramg_dump_ir(iarray,rarray,rn1,rn2,rfname)  argument
806       character*10     rfname  local
814       mfname = trim(rfname)//'.dat'//cname(myrank+1)
828       subroutine ramg_dump_rn_map(rarray,rn1,rn2,rfname)  argument
835       character*10     rfname  local
842       mfname = trim(rfname)//'.dat'//cname(myrank+1)
859       subroutine ramg_dump_rn(rarray,rn1,rn2,rfname)  argument
865       character*10     rfname  local
872       mfname = trim(rfname)//'.dat'//cname(myrank+1)