Home
last modified time | relevance | path

Searched refs:arowp (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_smoother.f95 subroutine ramg_boundary_mls1(acolm,arowp,alhs, argument
106 integer,intent(in),dimension(annz_tot) :: arowp local
167 subroutine ramg_gauss(acolm,arowp,alhs,anshg,annz_tot,!A argument
177 integer,intent(in),dimension(annz_tot) :: arowp local
213 call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,
227 j = arowp(k)
242 call ramg_boundary_mls1(acolm,arowp,alhs,anshg,annz_tot,
H A Dramg_tools.f885 subroutine ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun, argument
895 integer,dimension(annz) :: arowp local
915 j = arowp(p)
927 subroutine ramg_dump_matlab_map(acolm,arowp,alhs,an,annz,redun, argument
936 integer,dimension(annz) :: arowp local
949 call ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun,
966 j = arowp(p)
976 subroutine ramg_dump_mupad_A(acolm,arowp,alhs,an,annz, argument
980 integer,dimension(annz) :: arowp local
996 j = arowp(p)
H A Dramg_coarse.f561 subroutine ramg_CFsplit(amg_CF,amg_S,anshg,annz,acolm,arowp, argument
574 integer,intent(in),dimension(annz) :: arowp local
617 k = arowp(j)
636 k = arowp(j)
665 k = arowp(j)
701 k = arowp(j)
761 k = arowp(j)
772 n = arowp(i)
831 m = arowp(j)
H A Dramg_paratools.f8 & acolm,arowp,alhsP,annz_tot, argument
19 integer,intent(in),dimension(annz_tot) :: arowp local
61 lhsGProwp%p(:) = arowp(:)
124 krowp = arowp(kj)
192 krowp = arowp(kj)
284 kj = arowp(k)
385 lhsGProwp%p(rownnz) = arowp(j)