Lines Matching refs:temp

68      &            dxidxb(npro,nsd,nsd),      temp(npro),
227       temp       = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
228       bnorm(:,1) = temp1 * temp
229       bnorm(:,2) = temp2 * temp
230       bnorm(:,3) = temp3 * temp
234          WdetJb     = Qwtb(lcsyst,intp) / (four*temp)
236          WdetJb     = Qwtb(lcsyst,intp) / (four*temp)
238          WdetJb     = Qwtb(lcsyst,intp) / (two*temp)
240          WdetJb     = Qwtb(lcsyst,intp) / (four*temp)
242          WdetJb     = Qwtb(lcsyst,intp) / (four*temp)
244          WdetJb     = Qwtb(lcsyst,intp) / (two*temp)
261          temp          = one / ( dxidxb(:,1,1) * dxdxib(:,1,1) 
264          dxidxb(:,1,1) =  dxidxb(:,1,1) * temp
265          dxidxb(:,1,2) =  dxidxb(:,1,2) * temp
266          dxidxb(:,1,3) =  dxidxb(:,1,3) * temp
268      &        - dxdxib(:,2,1) * dxdxib(:,3,3)) * temp
270      &        - dxdxib(:,3,1) * dxdxib(:,1,3)) * temp
272      &        - dxdxib(:,1,1) * dxdxib(:,2,3)) * temp
274      &        - dxdxib(:,2,2) * dxdxib(:,3,1)) * temp
276      &        - dxdxib(:,1,1) * dxdxib(:,3,2)) * temp
278      &        - dxdxib(:,1,2) * dxdxib(:,2,1)) * temp
405       temp       = one / sqrt ( v1(:,1)**2 + v1(:,2)**2 + v1(:,3)**2 )
406       v1(:,1) = v1(:,1) * temp
407       v1(:,2) = v1(:,2) * temp
408       v1(:,3) = v1(:,3) * temp
417       temp       = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
418       v3(:,1) = temp1 * temp
419       v3(:,2) = temp2 * temp
420       v3(:,3) = temp3 * temp
427       temp       = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
428       v2(:,1) = temp1 * temp
429       v2(:,2) = temp2 * temp
430       v2(:,3) = temp3 * temp
806      &            dxidxb(npro,nsd,nsd),      temp(npro),
864         temp       = one / sqrt ( temp1**2 + temp2**2 + temp3**2 )
865         bnorm(:,1) = temp1 * temp
866         bnorm(:,2) = temp2 * temp
867         bnorm(:,3) = temp3 * temp
871            WdetJb     = (1 - Qwtb(lcsyst,intp)) / (four*temp)
873            WdetJb     = Qwtb(lcsyst,intp) / temp
875            WdetJb     = Qwtb(lcsyst,intp) / (four*temp)
892           temp          = one / ( dxidxb(:,1,1) * dxdxib(:,1,1) 
895           dxidxb(:,1,1) =  dxidxb(:,1,1) * temp
896           dxidxb(:,1,2) =  dxidxb(:,1,2) * temp
897           dxidxb(:,1,3) =  dxidxb(:,1,3) * temp
899      &                   - dxdxib(:,2,1) * dxdxib(:,3,3)) * temp
901      &                   - dxdxib(:,3,1) * dxdxib(:,1,3)) * temp
903      &                   - dxdxib(:,1,1) * dxdxib(:,2,3)) * temp
905      &                   - dxdxib(:,2,2) * dxdxib(:,3,1)) * temp
907      &                   - dxdxib(:,1,1) * dxdxib(:,3,2)) * temp
909      &                   - dxdxib(:,1,2) * dxdxib(:,2,1)) * temp