| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 523 & pfres(nshg,22), ifath(nshg),
942 & nsons, ifath, x, cdelsq1) argument
966 & ifath(nshg), iper(nshg),
1207 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
1208 xnude(ifath(i),2) = xnude(ifath(i),2) + xden(i)
1272 & nsons, ifath, x, argument
1296 & ifath(nshg), nsons(nshg),
1336 cdelsq(:) = dmodc(ifath(:))
1348 dmodc(ifath(:)) = cdelsq(:)
1545 xaveg(ifath(i),:) = xaveg(ifath(i),:) + xave(i,:)
[all …]
|
| H A D | filters.f | 973 & nsons, ifath, x, argument
997 & ifath(nshg), nsons(nshg),
1013 rnum(ifath(:)) = numNden(:,1)
1014 rden(ifath(:)) = numNden(:,2)
1178 xaveg(ifath(i),:) = xaveg(ifath(i),:) + xave(i,:)
1641 & nsons, ifath, x) argument
1675 & ifath(nshg), iper(nshg),
1939 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
1940 xnude(ifath(i),2) = xnude(ifath(i),2) + xden(i)
1942 ynude(ifath(i),1) = ynude(ifath(i),1) + xfac(i,1)
[all …]
|
| H A D | itrdrv.f | 6 & ifath, velbar, nsons ) argument
83 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
342 & nsons, ifath, x,
352 & iper, ilwork, ifath, velbar)
605 & nsons, ifath, velbar)
609 & iBC, ifath, velbar,
851 & nsons, ifath, x, argument
867 dimension ifath(numnp), nsons(nfath)
896 & nsons, ifath, x,
910 & ifath, x)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | sonfath.f | 1 subroutine sonfath (ncorp, vnumnpl, ifath, nsons, tfath, argument
11 integer gfath(0:numnp),ifath(numpe,maxnode),ncorp(numpe,maxnode), local
75 ifath(j,i) = gfath(imap(ncorp(j,i)))
80 ifath(1,i) = gfath(imap(i))
106 ifath(j,i) = gfath(imap(ncorp(j,i)))
111 ifath(1,i) = gfath(imap(i))
140 ifath=1
150 ifath(i,j)=j
|
| H A D | getdmc.f | 3 & nsons, ifath, x) argument
29 & ifath(nshg), iper(nshg),
262 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
263 xnude(ifath(i),2) = xnude(ifath(i),2) + xden(i)
295 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
296 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
317 numNden(:,1) = whist*numNden(:,1)+wcur*xnude(ifath(:),1)
318 numNden(:,2) = whist*numNden(:,2)+wcur*xnude(ifath(:),2)
|
| H A D | asbwmod.f | 2 & iper, ilwork, ifath, velbar) argument
16 & ifath(numnp), velbar(nfath,nflow),
24 & ifath, velbar)
|
| H A D | getvel.f | 2 & nsons, ifath, velbar) argument
15 & ifath(numnp),
77 ifathi=ifath(i)
|
| H A D | genini.f | 2 & ifath, velbar, nsons,x, argument
45 dimension ifath(numnp), velbar(nfath,nflow),
73 & nsons, ifath, velbar)
|
| 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
|
| H A D | bardmc.f | 42 & nsons, ifath, x) argument
68 & ifath(nshg), iper(nshg),
432 xnude(ifath(i),1) = xnude(ifath(i),1) + xnum(i)
433 xnude(ifath(i),2) = xnude(ifath(i),2) + xden(i)
465 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
466 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
484 numNden(:,1) = whist*numNden(:,1)+wcur*xnude(ifath(:),1)
485 numNden(:,2) = whist*numNden(:,2)+wcur*xnude(ifath(:),2)
|
| H A D | genscale.f | 26 dimension ifath(numnp), velbarl(nelint,nshl,nflow),
|
| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 5 & ifath, velbar, nsons ) argument
60 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
371 & ifath, x)
377 & nsons, ifath, x)
393 & iper, ilwork, ifath, velbar)
|