Searched refs:a_rowp (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ITAI.f | 5 subroutine mtx_colm(a_colm,a_rowp, argument
11 integer,intent(in) :: a_rowp(a_colm(m+1)-1) local
22 j=a_rowp(k)
36 subroutine mtx_rowp(a_colm,a_rowp,b_colm,b_rowp, argument
42 integer,intent(in) :: a_rowp(a_colm(m+1)-1) local
58 j=a_rowp(k)
72 subroutine mtx_mtx(a_colm,a_rowp,a_mtx, argument
80 integer,intent(in) :: a_rowp(a_colm(m+1)-1) local
97 j = a_rowp(k)
|