752       subroutine ramg_dump_ic(rarray,rn1,rn2,rfname)  argument
756       integer rn1,rn2  local
757       integer,dimension(rn1,rn2) ::  rarray
768       write(264,*)rn2
769       do j=1,rn2
775       subroutine ramg_dump_i(rarray,rn1,rn2,rfname)
779       integer rn1,rn2  variable
780       integer,dimension(rn1,rn2) ::  rarray
793          write(264,*)i,(rarray(i,j),j=1,rn2)
799       subroutine ramg_dump_ir(iarray,rarray,rn1,rn2,rfname)  argument
803       integer rn1,rn2  local
805       real(kind=8),dimension(rn1,rn2) ::  rarray
816       write(mformat,'((A6)(I1)(A7))')'((2I)(',rn2,'E14.3))'
822      &   i,iarray(i),(rarray(i,j),j=1,rn2)
828       subroutine ramg_dump_rn_map(rarray,rn1,rn2,rfname)  argument
833       integer rn1,rn2  local
834       real(kind=8),dimension(rn1,rn2) ::  rarray
846       write(mformat,'((A6)(I1)(A7))')'((1I)(',rn2,'E14.4))'
854          write(264,mformat)ii,(rarray(i,j),j=1,rn2)
859       subroutine ramg_dump_rn(rarray,rn1,rn2,rfname)  argument
863       integer rn1,rn2  local
864       real(kind=8),dimension(rn1,rn2) ::  rarray
876       write(mformat,'((A6)(I1)(A7))')'((1I)(',rn2,'E14.4))'
879          write(264,mformat)i,(rarray(i,j),j=1,rn2)