Searched refs:Tinv (Results 1 – 1 of 1) sorted by relevance
147 & pk, pk_k, pk_eps, Tscale,Tinv, local280 Tinv = 0286 if(Tscale.gt.1.e-32) Tinv=1./Tscale296 Tinv = 0298 if(Tscale.gt.1.e-32) Tinv=1./Tscale352 src(e,2) = ff1 * Ce1 * pk * Tinv353 & -rho(e)* Ce2 * f2 * eps * Tinv357 & ff1 * Ce1 * pk * Tinv358 & -rho(e)* Ce2 * f2 * eps * Tinv364 & ff1_k * Ce1 * pk * Tinv[all …]