| /phasta/phSolver/AMG/ |
| H A D | ramg_coarse.f | 561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, argument
573 integer,intent(in),dimension(anshg+1) :: acolm local
616 do j=acolm(i)+1,acolm(i+1)-1
635 do j=acolm(i)+1,acolm(i+1)-1
664 do j=acolm(i),acolm(i+1)-1
700 do j=acolm(i),acolm(i+1)-1
760 do j=acolm(m),acolm(m+1)-1
771 do i = acolm(k),acolm(k+1)-1
830 do j=acolm(i)+1,acolm(i+1)-1
|
| H A D | ramg_smoother.f | 95 subroutine ramg_boundary_mls1(acolm,arowp,alhs, argument
105 integer,intent(in),dimension(anshg+1) :: acolm local
167 subroutine ramg_gauss(acolm,arowp,alhs,anshg,annz_tot,!A argument
176 integer,intent(in),dimension(anshg+1) :: acolm local
213 call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,
226 do k = acolm(ki)+1,acolm(ki+1)-1
242 call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,
|
| H A D | ramg_tools.f | 885 subroutine ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun, argument
894 integer,dimension(an+1) :: acolm local
914 do p=acolm(i),acolm(i+1)-1
927 subroutine ramg_dump_matlab_map(acolm,arowp,alhs,an,annz,redun, argument
935 integer,dimension(an+1) :: acolm local
949 call ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun,
965 do p=acolm(i),acolm(i+1)-1
976 subroutine ramg_dump_mupad_A(acolm,arowp,alhs,an,annz, argument
979 integer,dimension(an+1) :: acolm local
995 do p=acolm(i),acolm(i+1)-1
|
| H A D | ramg_paratools.f | 8 & acolm,arowp,alhsP,annz_tot, argument
18 integer,intent(in),dimension(nshg+1) :: acolm local
62 lhsGPcolm%p(:) = acolm(:)
123 do kj = acolm(ki),acolm(ki+1)-1
191 do kj = acolm(ki),acolm(ki+1)-1
283 do k=acolm(ki),acolm(ki+1)-1
285 tmp_rowmap(kj) = k-acolm(ki)+1
286 tmp_revrmap(k-acolm(ki)+1)=kj
289 rownnz = rownnz+acolm(ki+1)-acolm(ki)
367 rownnz = rownnz+acolm(i+1)-acolm(i)
[all …]
|