Lines Matching refs:p
205 & p, q, nNodes,
213 real*8 pLhs(4,nnz_tot), p(nNodes), q(nNodes,3)
230 pisave = p(i)
253 1 p, q, nNodes,
264 real*8 p(nNodes,4), q(nNodes,3)
284 pisave = p(i,4)
289 1 + kLhs(1,k) * p(j,1)
290 2 + kLhs(4,k) * p(j,2)
291 3 + kLhs(7,k) * p(j,3)
293 1 + kLhs(2,k) * p(j,1)
294 2 + kLhs(5,k) * p(j,2)
295 3 + kLhs(8,k) * p(j,3)
297 1 + kLhs(3,k) * p(j,1)
298 2 + kLhs(6,k) * p(j,2)
299 3 + kLhs(9,k) * p(j,3)
312 call ElmpvsQ(q,p,tfact)
328 1 p, q, nNodes,
336 real*8 pLhs(4,nnz_tot), p(nNodes,3), q(nNodes)
350 1 + pLhs(1,k) * p(j,1)
351 2 + pLhs(2,k) * p(j,2)
352 3 + pLhs(3,k) * p(j,3)
369 1 p, q, nNodes,
377 real*8 pLhs(4,nnz_tot), p(nNodes,4), q(nNodes)
391 1 + pLhs(1,k) * p(j,1)
392 2 + pLhs(2,k) * p(j,2)
393 3 + pLhs(3,k) * p(j,3)
394 4 + pLhs(4,k) * p(j,4)
411 1 p, q, nNodes,
423 real*8 p(nNodes,4), q(nNodes,4)
444 pisave = p(i,4)
450 1 + kLhs(1,k) * p(j,1)
451 2 + kLhs(4,k) * p(j,2)
452 3 + kLhs(7,k) * p(j,3)
454 1 + kLhs(2,k) * p(j,1)
455 2 + kLhs(5,k) * p(j,2)
456 3 + kLhs(8,k) * p(j,3)
458 1 + kLhs(3,k) * p(j,1)
459 2 + kLhs(6,k) * p(j,2)
460 3 + kLhs(9,k) * p(j,3)
463 1 + pLhs(1,k) * p(j,1)
464 2 + pLhs(2,k) * p(j,2)
465 3 + pLhs(3,k) * p(j,3)
466 4 + pLhs(4,k) * p(j,4)
479 call ElmpvsQ(q,p,tfact)
494 1 p, q, nNodes,
502 real*8 lhs(nnz_tot), p(nNodes), q(nNodes)
513 tmp = tmp + lhs(k) * p(row(k))