Home
last modified time | relevance | path

Searched defs:mtx_mtx (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_ITAI.f72 subroutine mtx_mtx(a_colm,a_rowp,a_mtx, subroutine
76 integer,intent(in) :: m,l,n
77 integer,intent(in) :: a_colm(m+1),b_colm(l+1)
78 integer,intent(in) :: c_colm(m+1)
79 integer,intent(in) :: c_rowp(c_colm(m+1)-1)
80 integer,intent(in) :: a_rowp(a_colm(m+1)-1)
81 integer,intent(in) :: b_rowp(b_colm(l+1)-1)
106 end subroutine !mtx_mtx argument