Lines Matching refs:tmp
17 real*8 dxdxi(npro,nsd,nsd), tmp(npro) local
44 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
47 dxidx(:,1,1) = dxidx(:,1,1) * tmp
48 dxidx(:,1,2) = dxidx(:,1,2) * tmp
49 dxidx(:,1,3) = dxidx(:,1,3) * tmp
51 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
53 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
55 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
57 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
59 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
61 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
63 WdetJ = Qwt(lcsyst,intp) / tmp