Lines Matching refs:q
14 integer :: i,j,k,p,q,mnnz local
24 q=b_rowp(p)
25 if (itemp(q).ne.i) then
26 itemp(q)=i
46 integer :: i,j,k,p,q,mnnz local
60 q=b_rowp(p)
61 if (itemp(q).ne.i) then
62 itemp(q)=i
64 c_rowp(mnnz) = q
87 integer :: i,j,k,p,q local
100 q = b_rowp(p)
101 c_mtx(itemp(q)) = c_mtx(itemp(q)) + rtemp*b_mtx(p)
122 integer :: i,j,k,m,p,q,r,n,s,p0 local