Home
last modified time | relevance | path

Searched refs:two (Results 1 – 25 of 59) sorted by relevance

123

/phasta/phSolver/compressible/
H A De3dc.f207 & + two*g1yi(:,1)*A0DC(:,2)*g1yi(:,5)
214 & + two*g2yi(:,1)*A0DC(:,2)*g2yi(:,5)
221 & + two*g3yi(:,1)*A0DC(:,2)*g3yi(:,5)
268 & + two*giju(:,4)*yiA0DCyj(:,4)
269 & + two*giju(:,5)*yiA0DCyj(:,5)
271 & + two*giju(:,6)*yiA0DCyj(:,6)
290 & + two*giju(:,4)*yiA0DCyj(:,4)
291 & + two*giju(:,5)*yiA0DCyj(:,5)
293 & + two*giju(:,6)*yiA0DCyj(:,6)
298 DC(:,intp) = two * rtLS * gnorm
[all …]
H A De3tau.f65 & + gijd(:,2) * gijd(:,4) * gijd(:,5) * two
70 & + two *(u1*u2*(gijd(:,4)*gijd(:,5)-gijd(:,2)*gijd(:,6))
78 uh1= two * sqrt(uh1/fact)
87 & + u2*u3*gijd(:,5))*two + 1.0e-15 !FIX FOR INVALID MESHES
162 tau(:,2)=rho**2*((two*dts)**2
163 & + (u1*(u1*gijd(:,1) + two*(u2*gijd(:,2)+u3*gijd(:,4)))
164 & + u2*(u2*gijd(:,3) + two*u3*gijd(:,5))
167 & two*(gijd(:,2)**2 + gijd(:,4)**2 + gijd(:,5)**2))
213 raLS = two*rLyitemp(:,4)*rLyitemp(:,5)*A0inv(:,15)
214 & + two*rLyitemp(:,3)*rLyitemp(:,5)*A0inv(:,14)
[all …]
H A Ditrfdi.f132 rtmp = (( rtmp - two * rmes ) / epsM)**2
139 eGMRES = two * sqrt( epsA / SDnrm )
256 rtmp = (( rtmp - two * rmes ) / epsM)**2
263 eGMRES = two * sqrt( epsA / SDnrm )
H A DBCprofileKW.f15 PresSin=PresAmp*sin(two*pi*PresFreq*((lstep-tsBase)+1)*Delt(1)) ! pressure disturbance
18 Alpha=AlphaAmp*sin(two*pi*AlphaFreq*((lstep-tsBase)+1)*Delt(1)) ! pressure disturbance
H A Dgetdiff.f134 xbltb=-0.2159-two*Lvisc
263 rlm2mu = rlm + two * rmu
353 rlm2mu = rlm + two * rmu
377 else if(emax.lt.two*eles) then ! blend
H A De3visc.f254 compK(:,10) = f1 * T * (con * T + two * rmu * rk + (rlm +
255 & rmu) * u1**2) + f2 * T * (rlm + rmu) * two * u1 * u2
256 & + f3 * T * (con * T + two * rmu * rk + (rlm + rmu) *
257 & u2**2) + f4 * T * (rlm + rmu) * two * u1 * u3
258 & + f5 * T * (rlm + rmu) * two * u2 * u3 + f6 * T * (con
259 & * T + two * rmu * rk + (rlm + rmu) * u3**2)
H A De3mtrx.f139 A1(:,2,2) = two *rho * u1
178 A2(:,3,3) = two * rho * u2
217 A3(:,4,4) = two *rho * u3
/phasta/phSolver/common/
H A Dgetdmc.f151 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
165 & * pt33 * (two*fres(:,10) - fres(:,11) - fres(:,12))
166 & + pt33 * (two*fres(:,16) - fres(:,17) - fres(:,18))
168 & * pt33 * (two*fres(:,11) - fres(:,10) - fres(:,12))
169 & + pt33 * (two*fres(:,17) - fres(:,16) - fres(:,18))
171 & * pt33 * (two*fres(:,12) - fres(:,10) - fres(:,11))
172 & + pt33 * (two*fres(:,18) - fres(:,16) - fres(:,17))
200 & + two * (xlij(:,4) * xmij(:,4) + xlij(:,5) * xmij(:,5)
204 & + two * (xmij(:,4) * xmij(:,4) + xmij(:,5) * xmij(:,5)
206 xden = two * xden
H A Dasbnabi.f96 Wfactor(:) = one / (two*temp(:))
102 Wfactor(:) = one / (two*temp(:))
252 Wfactor(:) = one / (two*temp(:))
258 Wfactor(:) = one / (two*temp(:))
H A Daveprep.f137 & two * (fresli(:,10)**2 + fresli(:,11)**2 + fresli(:,12)**2)
174 & + two * (xlij(:,4) * xmij(:,4)
180 & + two * (xmij(:,4) * xmij(:,4)
473 & two * (fresli(:,10)**2 + fresli(:,11)**2 + fresli(:,12)**2)
510 & + two * (xlij(:,4) * xmij(:,4)
516 & + two * (xmij(:,4) * xmij(:,4)
H A Dbardmc.f313 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
321 & * pt33 * (two*fres(:,10) - fres(:,11) - fres(:,12))
322 & + pt33 * (two*fres(:,16) - fres(:,17) - fres(:,18))
325 & * pt33 * (two*fres(:,11) - fres(:,10) - fres(:,12))
326 & + pt33 * (two*fres(:,17) - fres(:,16) - fres(:,18))
329 & * pt33 * (two*fres(:,12) - fres(:,10) - fres(:,11))
330 & + pt33 * (two*fres(:,18) - fres(:,16) - fres(:,17))
372 & + two * (xrij(:,4) * xmij(:,4) + xrij(:,5) * xmij(:,5)
376 & + two * (xmij(:,4) * xmij(:,4) + xmij(:,5) * xmij(:,5)
378 xden = two * xden
[all …]
H A DGaussLegendreSimplex.c42 const double two = 2.0000000000000000; in GaussLegendreTri() local
50 GLwt[index++] = dJ*wt1[i]*wt2[j]*two; in GaussLegendreTri()
H A Df3lhs.f89 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
95 WdetJb = Qwtb(lcsyst,intp) / (two*temp)
H A Dhierarchic.f371 yvl(:,intp,6 ) = two * rmu * gradV(:,1,1)
372 yvl(:,intp,7 ) = two * rmu * gradV(:,2,2)
373 yvl(:,intp,8 ) = two * rmu * gradV(:,3,3)
H A Dgenshp.f35 & shgl(1,:,1:nshl,1:nint(lcsyst))/two
/phasta/phSolver/incompressible/
H A De3stab.f77 tauM = ( (two*dts)**2
111 & + gijd(:,6) * gijd(:,4) * gijd(:,5) * two
121 2 + two * (gijd(:,5)*gijd(:,6)-gijd(:,4)*gijd(:,3)) * u2
122 3 + two * (gijd(:,4)*gijd(:,5)-gijd(:,6)*gijd(:,2)) * u3)
124 3 + two * (gijd(:,4)*gijd(:,6)-gijd(:,1)*gijd(:,5)) * u3)
251 & + gijd(:,6) * gijd(:,4) * gijd(:,5) * two
261 2 + two * (gijd(:,5)*gijd(:,6)-gijd(:,4)*gijd(:,3)) * u2
262 3 + two * (gijd(:,4)*gijd(:,5)-gijd(:,6)*gijd(:,2)) * u3)
264 3 + two * (gijd(:,4)*gijd(:,6)-gijd(:,1)*gijd(:,5)) * u3)
269 tauM=sqrt(tauM/fact)*two
[all …]
H A De3res.f125 rGNa(:,1,1) = two * rmu * g1yi(:,2) + tmp
129 rGNa(:,2,2) = two * rmu * g2yi(:,3) + tmp
133 rGNa(:,3,3) = two * rmu * g3yi(:,4) + tmp
139 rGNa(:,1,1) = two * rmu * g1yi(:,2) + tmp - u1(:)*u1(:)*rho(:)
143 rGNa(:,2,2) = two * rmu * g2yi(:,3) + tmp - u2(:)*u2(:)*rho(:)
147 rGNa(:,3,3) = two * rmu * g3yi(:,4) + tmp - u3(:)*u3(:)*rho(:)
418 & -two*(omega(2)*u3-omega(3)*u2)
422 & -two*(omega(3)*u1-omega(1)*u3)
426 & -two*(omega(1)*u2-omega(2)*u1)
H A DadvLES.f210 & + two*(Sij(:,4)**2 + Sij(:,5)**2 + Sij(:,6)**2)
212 Snorm2(:) = sqrt( two*(Sij(:,1)**2 + Sij(:,2)**2 + Sij(:,3)**2)
345 & -two*(omega(2)*u3-omega(3)*u2)
349 & -two*(omega(3)*u1-omega(1)*u3)
353 & -two*(omega(1)*u2-omega(2)*u1)
693 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
720 & + two * (xlij(:,4) * xmij(:,4) + xlij(:,5) * xmij(:,5)
724 & + two * (xmij(:,4) * xmij(:,4) + xmij(:,5) * xmij(:,5)
726 xden = two * xden
1122 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
[all …]
H A De3dc.f554 dcFct(:) = two * tauS(:) * dcFct(:)
566 & tauS(:)*dcFct(:)) ), two * tauS(:) * dcFct(:))
H A De3q.f91 qdi(:,1) = two * rmu * g1yi(:,2)
98 qdi(:,5) = two * rmu * g2yi(:,3)
105 qdi(:,9)= two * rmu * g3yi(:,4)
H A Dgetfld.f68 rlm2mu = rlm + two * rmu
H A Dfilters.f208 & two*(hfresl(:,:,10)**2 + hfresl(:,:,11)**2 +
537 strnrmi = sqrt( two*(S11**2 + S22**2 + S33**2)
621 & two*(hfresl(:,:,10)**2 + hfresl(:,:,11)**2 +
916 strnrmi = sqrt( two*(S11**2 + S22**2 + S33**2)
1370 strnrmi = sqrt( two*(S11**2 + S22**2 + S33**2)
1809 & two * (fres(:,10)**2 + fres(:,11)**2 + fres(:,12)**2)
1836 & + two * (xlij(:,4) * xmij(:,4) + xlij(:,5) * xmij(:,5)
1840 & + two * (xmij(:,4) * xmij(:,4) + xmij(:,5) * xmij(:,5)
1842 xden = two * xden
1848 & + two*( fres(:,13)**2 + fres(:,14)**2 + fres(:,15)**2 ) )
[all …]
H A De3ql.f70 qdi(:,1) = two * rmu * g1yi(:,2)
77 qdi(:,5) = two * rmu * g2yi(:,3)
84 qdi(:,9)= two * rmu * g3yi(:,4)
/phasta/phSolver/common/test/
H A DphIOread.f13 integer :: rank, ierror, two, nfiles variable
31 two = 2
45 & two, dataDbl, iotype)
H A DphIOreaddatablock.cc30 int two = 2; in main() local
35 phio_readheader(file[i], phrase, numpts, &two, type, iotype); in main()

123