| /phasta/phSolver/incompressible/ |
| H A D | itrPC.f | 117 subroutine itrCorrect ( y, ac, u, solinc ,iBC) argument
122 & u(nshg,nsd), solinc(nshg,4) local
128 y(:,1:3) = y(:,1:3) + fct1 * solinc(:,1:3)
129 y(:,4 ) = y(:,4 ) + fct2 * solinc(:,4 )
130 ac(:,1:3) = ac(:,1:3) + solinc(:,1:3)
135 & Delt(itseq)*Delt(itseq)*betai*solinc(:,isd)
148 subroutine itrCorrectSclr ( y, ac, solinc ) argument
153 & solinc(nshg) local
157 y(:,is) = y(:,is) + fct1 * solinc(:)
158 ac(:,is) = ac(:,is) + solinc(:)
[all …]
|
| H A D | soldir.f | 33 dimension dyf(4*nshg), indx(4*nshg), solinc(nshg,4)
110 solinc(i,1) = dyf(i0+1)
111 solinc(i,2) = dyf(i0+2)
112 solinc(i,3) = dyf(i0+3)
113 solinc(i,4) = dyf(i0+4)
123 call itrCorrect ( y, ac, solinc, iBC)
128 call rstatic (res, y, solinc)
|
| H A D | solfar.f | 8 & solinc, rerr, tcorecp, argument
104 & solinc(nshg,ndof), CGsol(nshg) local
204 solinc(i,1:dof) = Res4(1:dof,i)
246 & atemp, rtmp, solinc,
272 & atemp, rtmp, solinc,
320 call getSol ( usr, solinc )
323 call commu ( solinc, ilwork, nflow, 'out')
334 call rstatic (res, y, solinc) ! output flow stats
347 & colm, solinc, argument
412 & solinc(nshg,1), CGsol(nshg), local
[all …]
|
| H A D | getSol.c | 7 Dy = usrHd->solinc; in getSol()
|
| H A D | usr.h | 24 double* solinc ; /* solution increment */ member
114 double* solinc,
|
| H A D | usr.c | 45 double* solinc, in usrNew() argument
78 usrHd->solinc = solinc ; in usrNew()
127 pnt = usrHd->solinc ; in usrPointer()
|
| H A D | itrdrv.f | 58 & x(numnp,nsd), solinc(nshg,ndof), local
397 & solinc, rerr, tcorecp,
450 & solinc(1,isclr+5), tcorecpscal
463 call itrCorrect ( y, ac, u, solinc, iBC)
469 call itrCorrectSclrPos(y,ac,solinc(1,isclr+5))
471 call itrCorrectSclr (y, ac, solinc(1,isclr+5))
|
| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 52 & rest(nshg), solinc(nshg,ndof)
470 & shpb, shglb, solinc,
486 & shpb, shglb, solinc,
504 & shpb, shglb, solinc,
523 & shpb, shglb, solinc,
569 & solinc(1,isclr+5),fncorp)
584 & shpb, shglb, solinc(1,isclr+5))
597 call itrCorrect ( y, ac, yold, acold, solinc)
609 & solinc(1,isclr+5))
|