Searched refs:b_colm (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ITAI.f | 6 & b_colm,b_rowp, argument
9 integer,intent(in) :: a_colm(m+1),b_colm(l+1) local
12 integer,intent(in) :: b_rowp(b_colm(l+1)-1)
23 do p=b_colm(j),b_colm(j+1)-1
36 subroutine mtx_rowp(a_colm,a_rowp,b_colm,b_rowp, argument
39 integer,intent(in) :: a_colm(m+1),b_colm(l+1) local
43 integer,intent(in) :: b_rowp(b_colm(l+1)-1)
59 do p=b_colm(j),b_colm(j+1)-1
73 & b_colm,b_rowp,b_mtx, argument
77 integer,intent(in) :: a_colm(m+1),b_colm(l+1) local
[all …]
|