Home
last modified time | relevance | path

Searched refs:tmp3 (Results 1 – 12 of 12) sorted by relevance

/phasta/AcuStat/
H A Dcreate_AcuStatInput.sh31 if [ -f tmp3 ] ; then
32 rm tmp3
42 echo $ts $diffts >> tmp3
49 nlines=`wc -l tmp3 | awk '{print $1}'`
62 cat tmp3 >> $outputfile
63 rm tmp3
/phasta/phSolver/incompressible/
H A Dftools.f336 real*8 tmp1, tmp2, tmp3, tmp4 local
371 tmp3 = 0
375 tmp3 = tmp3 + x(i,3) * y(i)
379 c(3) = tmp3
385 tmp3 = 0
390 tmp3 = tmp3 + x(i,3) * y(i)
395 c(3) = tmp3
402 tmp3 = 0
408 tmp3 = tmp3 + x(i,3) * y(i)
414 c(3) = tmp3
[all …]
H A De3res.f55 real*8 tmp1(npro), tmp2(npro), tmp3(npro), local
105 tmp3 = rmu * ( g1yi(:,4) + g3yi(:,2) )
127 rGNa(:,1,3) = tmp3
131 rGNa(:,3,1) = tmp3
141 rGNa(:,1,3) = tmp3 - u1(:)*u3(:)*rho(:)
145 rGNa(:,3,1) = tmp3 - u1(:)*u3(:)*rho(:)
163 tmp3 = tauM * rLui(:,3)
171 rGNa(:,3,1) = rGNa(:,3,1) + tmp3 * u1
172 rGNa(:,3,2) = rGNa(:,3,2) + tmp3 * u2
173 rGNa(:,3,3) = rGNa(:,3,3) + tmp3 * u3
[all …]
H A De3stab.f402 & tmp3(npro) local
445 tmp3(:) = c1 * dxidx(:,3,1)+c2 *(dxidx(:,1,1)+dxidx(:,2,1))
448 2 + dxidx(:,3,1) * tmp3
452 tmp3(:) = c1 * dxidx(:,3,2)+c2 *(dxidx(:,1,2)+dxidx(:,2,2))
455 2 + dxidx(:,3,2) * tmp3
459 2 + dxidx(:,3,1) * tmp3
463 tmp3(:) = c1 * dxidx(:,3,3)+c2 *(dxidx(:,1,3)+dxidx(:,2,3))
466 2 + dxidx(:,3,3) * tmp3
470 2 + dxidx(:,3,2) * tmp3
474 2 + dxidx(:,3,1) * tmp3
[all …]
H A DlesSparse.f266 real*8 tmp1, tmp2, tmp3, pisave
283 tmp3 = 0
296 tmp3 = tmp3
307 q(i,3) = q(i,3) + tmp3
425 real*8 tmp1, tmp2, tmp3, tmp4, pisave
442 tmp3 = 0
457 tmp3 = tmp3
474 q(i,3) = q(i,3) + tmp3
H A Dfilters.f2207 call MPI_REDUCE (tmp1, tmp3, 1,MPI_DOUBLE_PRECISION,
2211 tmp1=tmp3
2959 call MPI_REDUCE (tmp1, tmp3, 1,MPI_DOUBLE_PRECISION,
2963 tmp1=tmp3
H A DadvLES.f3022 call MPI_REDUCE (tmp1, tmp3, 1,MPI_DOUBLE_PRECISION,
3026 tmp1=tmp3
3779 call MPI_REDUCE (tmp1, tmp3, 1,MPI_DOUBLE_PRECISION,
3783 tmp1=tmp3
/phasta/phSolver/compressible/
H A Dsparseap.f23 real*8 tmp1, tmp2, tmp3, tmp4, tmp5 local
52 tmp3 = 0.
69 tmp3 = tmp3 + lhsK(3 ,k)*p(j,1)
89 q(i,3) = q(i,3) + tmp3
H A De3tau.f1403 & tmp3(npro)
1445 tmp3(:) = c1 * dxidx(:,3,1) + c2 *(dxidx(:,1,1)+dxidx(:,2,1))
1448 2 + dxidx(:,3,1) * tmp3
1452 tmp3(:) = c1 * dxidx(:,3,2) + c2 *(dxidx(:,1,2)+dxidx(:,2,2))
1455 2 + dxidx(:,3,1) * tmp3
1459 2 + dxidx(:,3,2) * tmp3
1463 tmp3(:) = c1 * dxidx(:,3,3) + c2 *(dxidx(:,1,3)+dxidx(:,2,3))
1466 2 + dxidx(:,3,1) * tmp3
1470 2 + dxidx(:,3,2) * tmp3
1474 2 + dxidx(:,3,3) * tmp3
/phasta/phSolver/common/
H A Dgetdmc.f366 call MPI_REDUCE (tmp1, tmp3, 1,MPI_DOUBLE_PRECISION,
370 tmp1=tmp3
H A Dbardmc.f532 call MPI_REDUCE (tmp1, tmp3, 1,MPI_DOUBLE_PRECISION,
536 tmp1=tmp3
/phasta/phSolver/AMG/
H A Dramg_coarse.f35 real(kind=8) :: tmp1,tmp2,tmp3,tmp4 local
325 tmp3 = 0
329 tmp3 = tmp3 + min(amg_la(k),zero)
339 if ( abs(tmp1).gt.1e-5) tmp1 = tmp3/tmp1