| /phasta/phSolver/compressible/ |
| H A D | au2mfg.f | 2 & rmes, res, Dy,
37 & res(nshg,nflow), Dy(nshg,nflow),
55 Dy2 = Dy**2
65 uBrg = ypre + eps * Dy
89 uBrg = ypre - eps * Dy
|
| H A D | solmfg.f | 7 & shpb, shglb, Dy, rerr) argument
52 dimension Dy(nshg,nflow), rmes(nshg,nflow),
121 Dy = zero
188 & res, Dy, temp,
339 Dy = Dy + yBrg(jK) * uBrg(:,:,jK)
363 call i3LU (BDiag, Dy, 'backward')
|
| H A D | itrPC.f | 128 subroutine itrCorrect ( y, ac,yold, acold,Dy) argument
132 real*8 y(nshg,ndof), ac(nshg,ndof), Dy(nshg,nflow) local
140 y(:,1:3) = y(:,1:3) - Dy(:,2:4)
141 y(:,4) = y(:,4) - Dy(:,1)
142 y(:,5) = y(:,5) - Dy(:,5)
|
| H A D | solgmr.f | 6 & shglb, Dy, rerr)
54 dimension Dy(nshg,nflow), rmes(nshg,nflow),
104 Dy = zero
156 temp = Dy
316 Dy = Dy + yBrg(jK) * uBrg(:,:,jK)
347 call i3LU (BDiag, Dy, 'backward')
374 & shglb, Dy, rerr)
425 dimension Dy(nshg,nflow), rmes(nshg,nflow),
489 Dy = zero
535 temp = Dy
[all …]
|
| H A D | solgmrpetsc.c | 65 double* shglb, double* Dy, double* rerr, long long int* fncorp) in SolGMRp() argument
372 Dy[index] = parray[PetscRow]; in SolGMRp()
411 double* shglb, double* res, double* Dy, long long int* fncorp) in SolGMRpSclr() argument
661 Dy[index] = parray[PetscRow]; in SolGMRpSclr()
|
| /phasta/phSolver/incompressible/ |
| H A D | rstatic.f | 1 subroutine rstatic (res, y, Dy) argument
27 real*8 y(nshg,ndof), Dy(nshg,4) local
39 & * Dy(1:numnp,1:3)),3,rdy1, numnp)
42 & * Dy(1:numnp,4)),1,rdy4,numnp)
209 subroutine rstaticSclr (res, y, Dy, icomp) argument
223 real*8 y(nshg,ndof), Dy(nshg), nrm local
238 call sumgat( abs(gami*Delt(itseq)*Dy(:)),1,rdy1)
|
| H A D | getSol.c | 4 double* Dy ) in getSol() argument
7 Dy = usrHd->solinc; in getSol()
|
| H A D | usr.h | 142 double* Dy ) ;
|