Home
last modified time | relevance | path

Searched refs:sclrDiag (Results 1 – 6 of 6) sorted by relevance

/phasta/phSolver/incompressible/
H A DlesSparse.f148 subroutine drvsclrDiag ( sclrDiag, ilwork, iBC, BC, iper, argument
158 real*8 sclrDiag(nshg), lhsS(nnz_tot), BC(nshg,ndofBC)
161 sclrDiag = zero
166 sclrDiag(n) = lhsS(k)
172 call commu (sclrDiag, ilwork, 1, 'in ')
177 call bc3SclrDiag(iBC, sclrDiag)
183 call bc3per(iBC, sclrDiag, iper, ilwork, 1)
191 if (sclrDiag(i).ne.0) then
192 sclrDiag(i) = 1. / sqrt(abs(sclrDiag(i)))
H A Dsolfar.f88 & sclrDiag(nshg,1), local
247 & flowDiag, sclrDiag, lesP,
273 & flowDiag, sclrDiag, lesP,
397 & sclrDiag(nshg,1) local
494 & flowDiag, sclrDiag, lesP,
H A Dusr.h26 double* sclrDiag ; /* global diagonal of energy lhs */ member
116 double* sclrDiag,
H A Dusr.c47 double* sclrDiag, in usrNew() argument
80 usrHd->sclrDiag = sclrDiag ; in usrNew()
H A Dlestools.c12 void DRVSCLRDIAG( double *sclrDiag, int *ilwork, int *iBC,
147 drvsclrDiag ( usrHd->sclrDiag, usrHd->ilwork, in lesPrepDiag()
204 usrHd->sclrDiag+diagOff*usrHd->nNodes, in lesDiagScaleCp()
1272 usrHd->sclrDiag+pOff, in lesApSclr()
1293 usrHd->sclrDiag+qOff, in lesApSclr()
1315 usrHd->sclrDiag+qOff, in lesApSclr()
H A Dftools.f1439 subroutine fsclrDiag ( ien, xTe, sclrDiag ) argument
1444 dimension sclrDiag(nshg,1), Diagl(npro,nshl,1)
1451 call local (sclrDiag, Diagl, ien, 1, 'scatter ')