Lines Matching refs:temp
72 & dxidxb(npro,nsd,nsd), temp(npro),
112 temp = zero
115 temp = temp + shpb(:,n) * ycl(:,n,isc)
121 call getthm (pres, T, temp,
175 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
176 bnorm(:,1) = temp1 * temp
177 bnorm(:,2) = temp2 * temp
178 bnorm(:,3) = temp3 * temp
182 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
190 WdetJb = Qwtb(lcsyst,intp) / temp
192 WdetJb = Qwtb(lcsyst,intp) / (four*temp)
209 temp = one / ( dxidxb(:,1,1) * dxdxib(:,1,1)
212 dxidxb(:,1,1) = dxidxb(:,1,1) * temp
213 dxidxb(:,1,2) = dxidxb(:,1,2) * temp
214 dxidxb(:,1,3) = dxidxb(:,1,3) * temp
216 & - dxdxib(:,2,1) * dxdxib(:,3,3)) * temp
218 & - dxdxib(:,3,1) * dxdxib(:,1,3)) * temp
220 & - dxdxib(:,1,1) * dxdxib(:,2,3)) * temp
222 & - dxdxib(:,2,2) * dxdxib(:,3,1)) * temp
224 & - dxdxib(:,1,1) * dxdxib(:,3,2)) * temp
226 & - dxdxib(:,1,2) * dxdxib(:,2,1)) * temp
430 & dxidxb(npro,nsd,nsd), temp(npro),
532 temp = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
533 bnorm(:,1) = temp1 * temp
534 bnorm(:,2) = temp2 * temp
535 bnorm(:,3) = temp3 * temp
539 WdetJb = (1 - Qwtb(lcsyst,intp)) / (four*temp)
541 WdetJb = Qwtb(lcsyst,intp)/ temp
543 WdetJb =Qwtb(lcsyst,intp) / (four*temp)
560 temp = one / ( dxidxb(:,1,1) * dxdxib(:,1,1)
563 dxidxb(:,1,1) = dxidxb(:,1,1) * temp
564 dxidxb(:,1,2) = dxidxb(:,1,2) * temp
565 dxidxb(:,1,3) = dxidxb(:,1,3) * temp
567 & - dxdxib(:,2,1) * dxdxib(:,3,3)) * temp
569 & - dxdxib(:,3,1) * dxdxib(:,1,3)) * temp
571 & - dxdxib(:,1,1) * dxdxib(:,2,3)) * temp
573 & - dxdxib(:,2,2) * dxdxib(:,3,1)) * temp
575 & - dxdxib(:,1,1) * dxdxib(:,3,2)) * temp
577 & - dxdxib(:,1,2) * dxdxib(:,2,1)) * temp