| /phasta/phSolver/compressible/ |
| H A D | itrPC.f | 6 subroutine itrSetup ( y, acold ) argument
10 real*8 y(nshg,ndof), acold(nshg,ndof) local
32 & y=y-(one-alfi)*Delt(1)*CFLfl(1)*acold
56 subroutine itrPredict ( yold, acold, argument
61 real*8 yold(nshg,ndof), acold(nshg,ndof), local
72 ac = acold*(one-almi/gami)
79 y = yold+alfi/Dtgl*acold*(one-gami)
85 ac = acold*(one-almi)
92 y = yold+alfi/Dtgl*acold
98 ac = acold
[all …]
|
| H A D | itrdrv.f | 46 & yold(nshg,ndof), acold(nshg,ndof),
149 acold = ac
252 call itrSetup ( y, acold)
392 call asbwmod(yold, acold, x, BC, iBC,
398 call itrPredict( yold, acold, y, ac )
478 & acold, x,
497 & acold, x,
516 & acold, x,
576 & acold, EGmasst(1,isclr),
597 call itrCorrect ( y, ac, yold, acold, solinc)
[all …]
|
| H A D | solgmr.f | 1 subroutine SolGMRe (y, ac, yold, acold, argument
43 & yold(nshg,ndof), acold(nshg,ndof),
368 subroutine SolGMRs(y, ac, yold, acold, argument
415 & yold(nshg,ndof), acold(nshg,ndof),
747 & acold, EGmasst,
792 & yold(nshg,ndof), acold(nshg,ndof),
|
| H A D | solmfg.f | 1 subroutine SolMFG (y, ac, yold, acold, argument
42 & yold(nshg,ndof), acold(nshg,ndof),
|
| /phasta/phSolver/common/ |
| H A D | restar.f | 43 ac(:,1:3)=acold(:,2:4)
44 ac(:,4)=acold(:,1)
45 if(ndof.gt.4) ac(:,5:ndof)=acold(:,5:ndof)
48 deallocate(acold)
58 allocate( acold(nshg,ndof) )
59 acold=0
78 acold(:,2:4) = ac(:,1:3)
79 acold(:,1) = ac(:,4)
80 if(ndof.gt.4) acold(:,5:ndof) = ac(:,5:ndof)
84 & qold, acold)
[all …]
|
| H A D | readnblk.f | 16 real*8, allocatable :: acold(:,:) variable
536 allocate( acold(nshg,ndof) )
550 acold(:,1:ndof)=acread(:,1:ndof)
557 acold=zero
|
| /phasta/phSolver/incompressible/ |
| H A D | itrPC.f | 7 subroutine itrSetup ( y, acold ) argument
11 real*8 y(nshg,ndof), acold(nshg,ndof) local
44 y=y-(one-alfi)*Delt(1)*acold
65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
71 & acold(nshg,ndof), uold(nshg,nsd) local
78 ac = acold * fct
84 & Delt(itseq)*Delt(itseq)*acold(:,isd)
91 y = yold + (one - gami)/Dtgl * acold
96 y = yold+alfi*Delt(itseq)*acold
97 ac = acold
[all …]
|
| H A D | soldir.f | 1 subroutine SolDir (y, ac, yold, acold, argument
19 & yold(nshg,ndof), acold(nshg,ndof),
45 call itrYAlpha( yold, acold, y, ac, yAlpha, acAlpha)
|
| H A D | solfar.f | 2 & yold, acold, uold, argument
83 & yold(nshg,ndof), acold(nshg,ndof), local
134 call itrYAlpha( uold, yold, acold,
342 & yold, acold, uold, argument
392 & yold(nshg,ndof), acold(nshg,ndof), local
429 call itrYAlpha( uold, yold, acold,
|
| H A D | itrdrv.f | 56 & yold(nshg,ndof), acold(nshg,ndof), local
155 acold = ac
244 call itrSetup ( y, acold )
340 call lesmodels(yold, acold, shgl, shp,
351 call asbwmod(yold, acold, x, BC, iBC,
362 call itrPredict(yold, y, acold, ac , uold, u, iBC)
390 & yold, acold, uold,
443 & yold, acold, uold,
497 call stsGetStats( y, yold, ac, acold,
517 call itrUpdate( yold, acold, uold, y, ac, u)
[all …]
|
| H A D | stats.f | 187 subroutine stsGetStats( y, yold, ac, acold, argument
198 & ac(nshg,ndof), acold(nshg,ndof), local
225 call itrYAlpha( uold, yold, acold,
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 21 real*8, allocatable :: acold(:,:) variable
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 23 real*8, allocatable :: acold(:,:) variable
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 23 real*8, allocatable :: acold(:,:) variable
|
| /phasta/phSolver/ |
| H A D | CHANGES | 266 now pass acold instead.
|