Lines Matching refs:p
105 & mien(iblk)%p,
111 & mien(iblk)%p, mxmudmi(iblk)%p,
170 & x, mxmudmi(iblk)%p,
173 & mien(iblk)%p,
182 & call bc3lhs (iBC, BC,mien(iblk)%p, xKebe)
183 call fillsparseI (mien(iblk)%p,
294 & mienb(iblk)%p, mmatb(iblk)%p,
295 & miBCB(iblk)%p, mBCB(iblk)%p,
308 & call bc3lhs (iBC, BC,mienb(iblk)%p, xKebe)
309 call fillsparseI (mienb(iblk)%p,
440 & mien(iblk)%p, qres,
488 & mien(iblk)%p, res,
489 & qres, xSebe, mxmudmi(iblk)%p )
494 call fillsparseSclr (mien(iblk)%p,
551 if(idtn.eq.1) call dtnl( iBC, BC, mienb(iblk)%p,
552 & miBCB(iblk)%p, mBCB(iblk)%p)
561 & mienb(iblk)%p, mmatb(iblk)%p,
562 & miBCB(iblk)%p, mBCB(iblk)%p,
670 real*8 p(0:MAXSURF) local
677 call GetFlowQ(p,y,nsrflistResist,numResistSrfs) !Q pushed into p but at this point
679 p(:)=sign*p(:)*ValueListResist(:) ! p=QR now we have the true pressure on each
690 res(i,1:3)=res(i,1:3) + p(irankCoupled)*NABI(i,1:3)
703 call GetFlowQ(p,y,nsrflistImp,numImpSrfs) !Q pushed into p but at this point
707 p(j)= sign*(poldImp(j) + p(j)*ImpConvCoef(ntimeptpT+2,j)) !pressure p=pold+ Qbeta
709 p(j)= sign*p(j)*ImpConvCoef(ntimeptpT+2,j)
721 res(i,1:3)=res(i,1:3) + p(irankCoupled)*NABI(i,1:3)
732 call GetFlowQ(p,y,nsrflistRCR,numRCRSrfs) !Q pushed into p but at this point
736 p(j)= sign*(poldRCR(j) + p(j)*RCRConvCoef(lstep+2,j)) !pressure p=pold+ Qbet
737 p(j)= p(j) - HopRCR(j) ! H operator contribution
739 p(j)= sign*p(j)*RCRConvCoef(lstep+2,j)
751 res(i,1:3)=res(i,1:3) + p(irankCoupled)*NABI(i,1:3)