Home
last modified time | relevance | path

Searched refs:nPs (Results 1 – 2 of 2) sorted by relevance

/phasta/phSolver/incompressible/
H A Dlestools.c84 void COMMIN( double *lesQ, int *ilwork, int *nPs,
887 Integer nPs ; /* No. of P dimension */ in lesApG() local
895 nPs = 1 ; in lesApG()
907 &nPs, in lesApG()
908 &nPs, in lesApG()
911 commOut ( usrHd->lesP, usrHd->ilwork, &nPs, in lesApG()
959 Integer nPs ; /* No. of P dimension */ in lesApKG() local
969 nPs = nP1s + nP2s ; in lesApKG()
983 &nPs, in lesApKG()
992 &nPs, in lesApKG()
[all …]
H A Dftools.f1120 subroutine flesApG ( ien, xGoC, lesP, lesQ, nPs, nQs ) argument
1125 real*8 lesP(nshg,nPs), lesQ(nshg,nQs)
1127 dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)
1135 call local ( lesP, Ptemp, ien, nPs, 'gather ' )
1144 & + xGoC(1:npro,i0+1,j) * Ptemp(:,j,nPs)
1147 & + xGoC(1:npro,i0+2,j) * Ptemp(:,j,nPs)
1150 & + xGoC(1:npro,i0+3,j) * Ptemp(:,j,nPs)
1166 subroutine flesApKG ( ien, xKebe, xGoC, lesP, lesQ, nPs, nQs ) argument
1173 real*8 lesP(nshg,nPs), lesQ(nshg,nQs)
1174 dimension Ptemp(npro,nshl,nPs), Qtemp(npro,nshl,nQs)
[all …]