705       subroutine ramg_readin_i(iarray,rn1,rfname)
709       integer rn1  variable
710       integer,dimension(rn1) ::  iarray
721       do i=1,rn1
728       subroutine ramg_dump(rarray,rn1,rfname)  argument
732       integer rn1  local
733       real(kind=8),dimension(rn1) ::  rarray
744       do i=1,rn1
752       subroutine ramg_dump_ic(rarray,rn1,rn2,rfname)  argument
756       integer rn1,rn2  local
757       integer,dimension(rn1,rn2) ::  rarray
770          write(264,*)j,(rarray(i,j),i=1,rn1)
775       subroutine ramg_dump_i(rarray,rn1,rn2,rfname)
779       integer rn1,rn2  variable
780       integer,dimension(rn1,rn2) ::  rarray
791       write(264,*)rn1
792       do i=1,rn1
799       subroutine ramg_dump_ir(iarray,rarray,rn1,rn2,rfname)  argument
803       integer rn1,rn2  local
804       integer,dimension(rn1) ::  iarray
805       real(kind=8),dimension(rn1,rn2) ::  rarray
820       do i=1,rn1
828       subroutine ramg_dump_rn_map(rarray,rn1,rn2,rfname)  argument
833       integer rn1,rn2  local
834       real(kind=8),dimension(rn1,rn2) ::  rarray
848       do i=1,rn1
859       subroutine ramg_dump_rn(rarray,rn1,rn2,rfname)  argument
863       integer rn1,rn2  local
864       real(kind=8),dimension(rn1,rn2) ::  rarray
878       do i=1,rn1