Lines Matching refs:dxdxi
17 real*8 dxdxi(npro,nsd,nsd), tmp(npro) local
22 dxdxi = zero
25 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
26 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
27 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
28 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
29 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
30 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
31 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
32 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
33 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)
38 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
39 & - dxdxi(:,3,2) * dxdxi(:,2,3)
40 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
41 & - dxdxi(:,1,2) * dxdxi(:,3,3)
42 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
43 & - dxdxi(:,1,3) * dxdxi(:,2,2)
44 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
45 & + dxidx(:,1,2) * dxdxi(:,2,1)
46 & + dxidx(:,1,3) * dxdxi(:,3,1) )
50 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
51 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
52 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
53 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
54 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
55 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
56 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
57 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
58 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
59 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
60 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
61 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp