| /phasta/phSolver/incompressible/ |
| H A D | itrPC.f | 65 subroutine itrPredict (yold, y, acold, ac, uold, u, iBC) argument
71 & acold(nshg,ndof), uold(nshg,nsd) local
82 u(:,isd) = uold(:,isd) + Delt(itseq)*yold(:,isd) +
209 subroutine itrYAlpha ( uold, yold, acold, argument
219 & u(nshg,nsd), uold(nshg,nsd), local
232 if(ideformwall.eq.1) uAlpha (:,1:3) = uold(:,1:3)
233 & + alfi * (u(:,1:3) - uold(:,1:3))
255 subroutine itrUpdate( yold, acold, uold, argument
264 & u(nshg,nsd), uold(nshg,nsd) local
285 if(ideformwall.eq.1) uold = u
|
| H A D | solfar.f | 2 & yold, acold, uold, argument
84 & u(nshg,nsd), uold(nshg,nsd), local
134 call itrYAlpha( uold, yold, acold,
342 & yold, acold, uold, argument
393 & u(nshg,nsd), uold(nshg,nsd), local
429 call itrYAlpha( uold, yold, acold,
|
| H A D | itrdrv.f | 2 & uold, x, argument
57 & u(nshg,nsd), uold(nshg,nsd), local
362 call itrPredict(yold, y, acold, ac , uold, u, iBC)
390 & yold, acold, uold,
443 & yold, acold, uold,
498 & u, uold, x,
517 call itrUpdate( yold, acold, uold, y, ac, u)
571 call Bflux ( yold, acold, uold, x,
|
| H A D | stats.f | 188 & u, uold, x, argument
199 & u(nshg,nsd), uold(nshg,nsd), local
225 call itrYAlpha( uold, yold, acold,
|
| /phasta/phSolver/common/ |
| H A D | readnblk.f | 15 real*8, allocatable :: uold(:,:) variable
581 allocate( uold(nshg,nsd) )
590 uold(:,1:nsd)=uread(:,1:nsd)
592 allocate( uold(nshg,nsd) )
593 uold(:,1:nsd) = zero
|
| H A D | proces.f | 206 & uold, point2x,
251 deallocate(uold)
|
| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 1 subroutine itrdrv (y, ac, uold, x, argument
49 & iper(nshg), uold(nshg,nsd)
|
| /phasta/AcuStat/src/ |
| H A D | readnblk.f | 20 real*8, allocatable :: uold(:,:) variable
|
| /phasta/M2NFixBnd/src/ |
| H A D | readnblk.f | 22 real*8, allocatable :: uold(:,:) variable
|
| /phasta/M2N/src/ |
| H A D | readnblk.f | 22 real*8, allocatable :: uold(:,:) variable
|