Searched refs:tmp0 (Results 1 – 2 of 2) sorted by relevance
178 double tmp0 =1/(1-xi[2]); // xi3->xi[2] in Pyr_eB() local184 psi =0.125*(xi[2]*xi[2]-1)*(1+sign[k]*(2*xi[k]*tmp0))*(1+sign[m]*(2*xi[m]*tmp0)); in Pyr_eB()187 double tmp1 =2*xi[k]*tmp0; in Pyr_eB()188 psi =0.125*(tmp1*tmp1-1)*(1+sign[m]*(2*xi[m]*tmp0))*(1-xi[2]); in Pyr_eB()196 double tmp0 =1/(1-xi[2]); // xi3->xi[2] in dPeBdxi() local203 dPsidxi =-0.25*(1+xi[2])*sign[k]*(1+sign[m]*(2*xi[m]*tmp0)); in dPeBdxi()205 dPsidxi =-0.25*(1+xi[2])*sign[m]*(1+sign[k]*(2*xi[k]*tmp0)); in dPeBdxi()207 dPsidxi =0.25*(xi[2]*(1+sign[k]*2*xi[k]*tmp0)*(1+sign[m]*2*xi[m]*tmp0)- in dPeBdxi()208 (1+xi[2])*tmp0*(sign[k]*xi[k]*(1+sign[m]*2*xi[m]*tmp0)+ in dPeBdxi()209 sign[m]*xi[m]*(1+sign[k]*2*xi[k]*tmp0))); in dPeBdxi()[all …]
130 real*8 tmp1, tmp2 , tmp0 local333 tmp0 = 2 * ss 336 pk1 = mut*tmp0342 pk_k = mut_k * tmp0 343 pk_eps = mut_eps * tmp0