Home
last modified time | relevance | path

Searched refs:pt5 (Results 1 – 25 of 36) sorted by relevance

12

/phasta/phSolver/common/
H A Dshp10t.f57 shgl(1,1,m) = -pt5
58 shgl(2,1,m) = -pt5
59 shgl(3,1,m) = -pt5
60 shgl(1,2,m) = pt5
64 shgl(2,3,m) = pt5
68 shgl(3,4,m) = pt5
H A Dshp4t.f55 shgl(1,1,m) = -pt5
56 shgl(2,1,m) = -pt5
57 shgl(3,1,m) = -pt5
58 shgl(1,2,m) = pt5
62 shgl(2,3,m) = pt5
66 shgl(3,4,m) = pt5
H A Dsettauw.f188 real*8 kup2,kup3,pt5,sxth,kappa local
192 pt5=0.5
206 f= up-yp+efac*(exp(kup)-1.0-kup - kup2*pt5 - kup3*sxth)
207 dfds=up+yp+efac*(exp(kup)*kup-kup - kup2 - kup3*pt5) !/-utau in rat
255 real*8 pt5,kappa,B,xmut,chi3,denom,cv1_3 local
259 pt5=0.5
266 & -pt5*(kappa**2)*(up**2))
H A Dgetstrl.f120 fresli(:,13) = pt5 * fresli(:,13)
121 fresli(:,14) = pt5 * fresli(:,14)
122 fresli(:,15) = pt5 * fresli(:,15)
H A Dinput.f168 cpsh(i) = ( pt5 * dofs(i) + one ) * Rh
169 cps(i) = ( pt5 * dofs(i) + one ) * Rs(i)
170 cvs(i) = pt5 * dofs(i) * Rs(i)
174 s0sh(i) = Rh * ( pt5*( log( (two*pi*Msh(i)/(Nh*Planck**2))**3
H A Dasithf.f128 fresli(:,13) = pt5 * fresli(:,13)
129 fresli(:,14) = pt5 * fresli(:,14)
130 fresli(:,15) = pt5 * fresli(:,15)
H A Dbardmc.f976 fresli(:,13) = pt5 * fresli(:,13)
977 fresli(:,14) = pt5 * fresli(:,14)
978 fresli(:,15) = pt5 * fresli(:,15)
1186 fresli(:,13) = pt5 * fresli(:,13)
1187 fresli(:,14) = pt5 * fresli(:,14)
1188 fresli(:,15) = pt5 * fresli(:,15)
H A Dgenscale.f136 deltaint=min(two*rbltin,max(deltaint,pt5*rbltin))
/phasta/phSolver/incompressible/
H A De3sts.f340 lDir(e,17,1) = pt5*(-(y13*z12) + y12*z13)
341 lDir(e,17,2) = pt5*(x13*z12 - x12*z13)
342 lDir(e,17,3) = pt5*(-(x13*y12) + x12*y13)
344 lDir(e,18,1) = pt5*(y14*z12 - y12*z14)
345 lDir(e,18,2) = pt5*(-(x14*z12) + x12*z14)
346 lDir(e,18,3) = pt5*(x14*y12 - x12*y14)
348 lDir(e,19,1) = pt5*(y24*z23 - y23*z24)
349 lDir(e,19,2) = pt5*(-(x24*z23) + x23*z24)
350 lDir(e,19,3) = pt5*(x24*y23 - x23*y24)
352 lDir(e,20,1) = pt5*(-(y14*z13) + y13*z14)
[all …]
H A De3bvar.f493 temp3 = pt5 * (1.0d0 - rnuvw) * temp1
574 & * pt5 * thicknessvw
576 & * pt5 * thicknessvw
578 & * pt5 * thicknessvw
580 & * pt5 * thicknessvw
582 & * pt5 * thicknessvw
584 & * pt5 * thicknessvw
586 & * pt5 * thicknessvw
588 & * pt5 * thicknessvw
590 & * pt5 * thicknessvw
H A DitrPC.f25 gami = pt5+almi-alfi
83 & pt5*((gami-two*betai)/gami)*
H A Dgetdiff.f162 real*8 pt5,kappa,B,xmut,chi3,denom,cv1_3 local
164 pt5=0.5
H A De3stab.f270 tauC=pt5*tauM*min(one,pt5*tauM/rmu)*taucfct
H A Dfilters.f131 S12 = pt5 * S12
132 S13 = pt5 * S13
133 S23 = pt5 * S23
531 S12 = pt5 * S12
532 S13 = pt5 * S13
533 S23 = pt5 * S23
910 S12 = pt5 * S12
911 S13 = pt5 * S13
912 S23 = pt5 * S23
1364 S12 = pt5 * S12
[all …]
/phasta/phSolver/compressible/
H A DnpSucPatch.f20 if(wnrmsq.gt.pt5) then
H A De3tau.f101 fact=pt5*rho*uh1/rmu
106 tau(:,1)=pt5*uh1*min(one,fact)*taucfct
353 eb1 = cp*T - pt5*(u1**2+u2**2+u3**2)
441 rlam(:,i) = rlam(:,i)*min(pt33*pt5*Pe(:),pt5)
469 betaT(:) = Pe(:)*min(pt33*pt5*Pe(:),pt5)
585 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
815 eb1 = cp*T - pt5*(u1**2+u2**2+u3**2)
908 rlamtmp(:,i,2) = rlamtmp(:,i,2)*min((1.0/12.0)*Pe(:),pt5)
1047 betaT = cp*T + pt5*(u1**2+u2**2+u3**2) !reuse betaT
H A De3eig1.f273 offd = (AR2 + AR3) * pt5 * c**2
291 t = pt5 * (rlam(:,1) - rlam(:,5)) / offd
H A De3juel.f55 rk = pt5 * (yl(:,inod,2)**2 + yl(:,inod,3)**2 + yl(:,inod,4)**2)
H A Dbc3res.f51 & + pt5 * ( y(:,1)**2 + y(:,2)**2 + y(:,3)**2))*res(:,1)
H A De3ivar.f109 rk = pt5 * (dui(:,2)**2 + dui(:,3)**2 + dui(:,4)**2)
206 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
637 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
H A DitrPC.f24 gami = pt5+almi-alfi
H A De3source.f102 rk = pt5 * ( ytargeti(id,2)**2+ytargeti(id,3)**2
155 rk = pt5 * ( ytargeti(id,2)**2+ytargeti(id,3)**2
H A De3dc.f311 if (ipord .eq. 2) fact = pt5
626 if (ipord .eq. 2) fact = pt5
H A De3bvar.f107 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
468 rk = pt5 * ( u1**2 + u2**2 + u3**2 )
/phasta/M2N/include/
H A DcommonM2N_c.h70 #define pt5 0.5000000000000000000000000000000d0 macro

12