Searched refs:rn2 (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 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
[all …]
|