| /phasta/phSolver/common/ |
| H A D | getvel.f | 10 dimension nsons(nfath), rinvsons(nfath),
11 & velo(numnp,nflow), velf(nfath,nflow),
12 & velft(nfath,nflow),
13 & velbar(nfath,nflow),
87 call drvAllreduce(velf, velft,nfath*nflow)
|
| H A D | readnblk.f | 415 nfath=1 ! some architectures choke on a zero or undeclared
425 & c_loc(nfath), ione, dataInt, iotype)
429 & c_loc(nfath), ione, dataInt, iotype)
431 allocate (point2nsons(nfath))
435 & c_loc(point2nsons),nfath, dataInt, iotype)
452 nfath=nshg
453 allocate (point2nsons(nfath))
|
| H A D | getdmc.f | 25 & xnude(nfath,2), xnuder(nfath,2),
26 & nsons(nfath),
133 if (nfath .eq. 0) then
277 call drvAllreduce(xnude, xnuder,2*nfath)
|
| H A D | genini.f | 45 dimension ifath(numnp), velbar(nfath,nflow),
46 & nsons(nfath)
|
| H A D | asbwmod.f | 16 & ifath(numnp), velbar(nfath,nflow),
|
| H A D | gendat.f | 41 dimension ifath(numnp), velbar(nfath,nflow), nsons(nfath)
|
| H A D | rwvelb.f | 15 dimension q(nfath,nflow)
|
| H A D | bardmc.f | 64 & xnude(nfath,2), xnuder(nfath,2),
65 & nsons(nfath),
72 & xnutf(nfath),
291 if (nfath .eq. 0) then
447 call drvAllreduce(xnude, xnuder,2*nfath)
|
| H A D | proces.f | 41 dimension velbar(nfath,nflow)
|
| H A D | settauw.f | 18 & ifath(numnp), velbar(nfath,nflow),
|
| H A D | input.f | 231 & nshl, nshlb,nfath, ntopsh, nsonmax
|
| H A D | common.h | 119 & nfath, ncorpsize, iownnodes, usingpetsc, numerr
173 & nshl, nshlb,nfath, ntopsh, nsonmax
|
| H A D | common_c.h | 339 int nfath; member
|
| /phasta/phSolver/incompressible/ |
| H A D | advLES.f | 516 & xnude(nfath,2), xnuder(nfath,2),
525 & BC(nshg,ndofBC), xnutf(nfath),
959 & strnrm(nshg), cdelsq1(nfath),
962 & xnude(nfath,2), xnuder(nfath,2),
970 & xnutf(nfath),
1216 call drvAllreduce(xnude, xnuder,2*nfath)
1235 do i = 1,nfath
1244 do i = 1,nfath
1251 do i = 1, nfath
1255 do i = 1, nfath
[all …]
|
| H A D | filters.f | 1005 & xave(nshg,12), xaveg(nfath,12),
1006 & xavegr(nfath,12), xavegt(nfath,12),
1007 & rnum(nfath), rden(nfath)
1182 call drvAllreduce(xaveg, xavegr,12*nfath)
1215 do i = 1, nfath
1664 & xnude(nfath,2), xnuder(nfath,2),
1665 & ynude(nfath,6), ynuder(nfath,6)
1666 dimension ui(nfath,3), snorm(nfath),
1667 & uir(nfath,3), snormr(nfath),
1668 & xm(nfath,6), xl(nfath,6),
[all …]
|
| H A D | itrdrv.f | 83 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
867 dimension ifath(numnp), nsons(nfath)
877 allocate (xavegt(nfath,12))
878 allocate (xavegt2(nfath,12))
879 allocate (xavegt3(nfath,12))
880 allocate (stabdis(nfath))
|
| /phasta/phSolver/compressible/ |
| H A D | itrdrv.f | 60 dimension ifath(numnp), velbar(nfath,ndof), nsons(nfath)
876 real*8 velbar(nfath,ndof),
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 250 int nfath; member
|
| H A D | commonAcuStat.h | 125 & nshl, nshlb,nfath, ntopsh, nsonmax
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 250 int nfath; member
|
| H A D | commonM2N.h | 125 & nshl, nshlb,nfath, ntopsh, nsonmax
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd_c.h | 250 int nfath; member
|
| H A D | commonM2NFixBnd.h | 125 & nshl, nshlb,nfath, ntopsh, nsonmax
|
| /phasta/phSolver/ |
| H A D | CHANGES | 615 K1) bardmc.f and getdmc.f nsons(nshg)->nsons(nfath)
|