| /phasta/phSolver/common/ |
| H A D | getvel.f | 2 & nsons, ifath, velbar) argument
13 & velbar(nfath,nflow),
112 velbar(:,1)=velft(:,1)
113 velbar(:,2)=velft(:,2)
114 velbar(:,3)=velft(:,3)
115 velbar(:,4)=velft(:,4)
118 velbar(:,:)=velft(:,:)
120 velbar(:,:)=tavef*velft(:,:)+(one-tavef)*velbar(:,:)
|
| H A D | asbwmod.f | 2 & iper, ilwork, ifath, velbar) argument
16 & ifath(numnp), velbar(nfath,nflow),
24 & ifath, velbar)
|
| H A D | genini.f | 2 & ifath, velbar, nsons,x, argument
45 dimension ifath(numnp), velbar(nfath,nflow),
67 call rwvelb('in ',velbar,ifail)
73 & nsons, ifath, velbar)
|
| H A D | proces.f | 41 dimension velbar(nfath,nflow)
62 & point2ifath, velbar, point2nsons )
210 & point2ifath, velbar, point2nsons )
|
| H A D | gendat.f | 4 & ifath, velbar, nsons ) argument
41 dimension ifath(numnp), velbar(nfath,nflow), nsons(nfath)
228 & ilwork, ifath, velbar,
|
| H A D | settauw.f | 2 & ifath, velbar) argument
18 & ifath(numnp), velbar(nfath,nflow),
32 ull(:)=velbar(ifath(otwn(nodw)),2:4) ! recall old #ing
|
| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 5 & ifath, velbar, nsons ) argument
60 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
393 & iper, ilwork, ifath, velbar)
766 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
771 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
776 call checkpoint (nstp,yold, acold, ybar, rerr, velbar,
867 subroutine checkpoint (nstp,yold, acold, ybar, rerr, velbar, argument
876 real*8 velbar(nfath,ndof), local
884 & call rwvelb ('out ', velbar ,ifail)
|
| /phasta/phSolver/incompressible/ |
| H A D | itrdrv.f | 6 & ifath, velbar, nsons ) argument
83 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
352 & iper, ilwork, ifath, velbar)
605 & nsons, ifath, velbar)
609 & iBC, ifath, velbar,
620 & call rwvelb ('out ', velbar ,ifail)
|