Home
last modified time | relevance | path

Searched refs:summed (Results 1 – 7 of 7) sorted by relevance

/phasta/phSolver/common/
H A Dmpitools.f104 subroutine sumgat (u, n, summed) argument
113 summed = sum(u)
117 sumvec = summed
125 call MPI_ALLREDUCE (sumvec, summed, irecvcount,
145 subroutine sumgatN (u, n, summed, nnp) argument
156 summed = sum(u) + 1.e-20
160 sumvec = summed
169 call MPI_ALLREDUCE (sumvec, summed, irecvcount,
189 subroutine sumgatInt (u, n, summed ) argument
195 integer u(n), summed, sumvec local
[all …]
/phasta/phSolver/compressible/
H A Ditrfdi.f82 call sumgat (rtmp, nflow, summed, ilwork)
83 epsA = (epsM**2) * sqrt(summed)
134 call sumgat (rtmp, nflow, summed, ilwork)
135 SDnrm = sqrt(summed)
219 call sumgat (rtmp, nflow, summed, ilwork)
220 epsA = (epsM**2) * sqrt(summed)
258 call sumgat (rtmp, nflow, summed, ilwork)
259 SDnrm = sqrt(summed)
H A Dtnanq.f22 call sumgatN(rnan,2,summed,1)
24 if (summed.ge.1) then
H A Dtnanqe.f22 call sumgatN(rnan,2,summed,1)
23 if (summed.ge.1) then
H A Dsolgmr.f126 call sumgat (temp, nflow, summed, ilwork)
127 unorm = sqrt(summed)
180 call sumgat (temp, nflow, summed, ilwork)
181 unorm = sqrt(summed)
505 call sumgat (temp, nflow, summed, ilwork)
506 unorm = sqrt(summed)
557 call sumgat (temp, nflow, summed, ilwork)
558 unorm = sqrt(summed)
856 call sumgat (tempt, 1, summed, ilwork)
857 unorm = sqrt(summed)
[all …]
H A Dsolmfg.f143 call sumgat (temp, nflow, summed, ilwork)
144 unorm = sqrt(summed)
200 call sumgat (temp, ndof, summed, ilwork)
201 unorm = sqrt(summed)
H A Dau2mfg.f56 call sumgat (Dy2, nflow, summed, ilwork)
57 eps = epsM**pt66 / sqrt(summed)