Searched defs:mtx_rowp (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ITAI.f | 36 subroutine mtx_rowp(a_colm,a_rowp,b_colm,b_rowp, subroutine
38 integer,intent(in) :: m,l,n
39 integer,intent(in) :: a_colm(m+1),b_colm(l+1)
40 integer,intent(in) :: c_colm(m+1)
41 integer,intent(inout) :: c_rowp(c_colm(m+1)-1)
42 integer,intent(in) :: a_rowp(a_colm(m+1)-1)
43 integer,intent(in) :: b_rowp(b_colm(l+1)-1)
44 logical,intent(in) :: diagflag
46 integer :: i,j,k,p,q,mnnz
70 end subroutine !mtx_rowp argument
|