Lines Matching refs:q
205 & p, q, nNodes,
213 real*8 pLhs(4,nnz_tot), p(nNodes), q(nNodes,3)
221 q(i,1) = 0
222 q(i,2) = 0
223 q(i,3) = 0
235 q(j,1) = q(j,1) - pLhs(1,k) * pisave
236 q(j,2) = q(j,2) - pLhs(2,k) * pisave
237 q(j,3) = q(j,3) - pLhs(3,k) * pisave
253 1 p, q, nNodes,
264 real*8 p(nNodes,4), q(nNodes,3)
272 q(i,1) = 0
273 q(i,2) = 0
274 q(i,3) = 0
301 q(j,1) = q(j,1) - pLhs(1,k) * pisave
302 q(j,2) = q(j,2) - pLhs(2,k) * pisave
303 q(j,3) = q(j,3) - pLhs(3,k) * pisave
305 q(i,1) = q(i,1) + tmp1
306 q(i,2) = q(i,2) + tmp2
307 q(i,3) = q(i,3) + tmp3
312 call ElmpvsQ(q,p,tfact)
328 1 p, q, nNodes,
336 real*8 pLhs(4,nnz_tot), p(nNodes,3), q(nNodes)
354 q(i) = tmp
369 1 p, q, nNodes,
377 real*8 pLhs(4,nnz_tot), p(nNodes,4), q(nNodes)
396 q(i) = tmp
411 1 p, q, nNodes,
423 real*8 p(nNodes,4), q(nNodes,4)
431 q(i,1) = 0
432 q(i,2) = 0
433 q(i,3) = 0
468 q(j,1) = q(j,1) - pLhs(1,k) * pisave
469 q(j,2) = q(j,2) - pLhs(2,k) * pisave
470 q(j,3) = q(j,3) - pLhs(3,k) * pisave
472 q(i,1) = q(i,1) + tmp1
473 q(i,2) = q(i,2) + tmp2
474 q(i,3) = q(i,3) + tmp3
475 q(i,4) = tmp4
479 call ElmpvsQ(q,p,tfact)
494 1 p, q, nNodes,
502 real*8 lhs(nnz_tot), p(nNodes), q(nNodes)
515 q(i) = tmp