Lines Matching refs:dxdxi
45 dimension tmp(npro), dxdxi(npro,nsd,nsd)
50 dxdxi = zero
53 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(:,1,n)
54 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(:,2,n)
55 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(:,3,n)
56 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(:,1,n)
57 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(:,2,n)
58 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(:,3,n)
59 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(:,1,n)
60 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(:,2,n)
61 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(:,3,n)
66 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
67 & - dxdxi(:,3,2) * dxdxi(:,2,3)
68 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
69 & - dxdxi(:,1,2) * dxdxi(:,3,3)
70 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
71 & - dxdxi(:,1,3) * dxdxi(:,2,2)
72 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
73 & + dxidx(:,1,2) * dxdxi(:,2,1)
74 & + dxidx(:,1,3) * dxdxi(:,3,1) )
78 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
79 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
80 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
81 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
82 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
83 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
84 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
85 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
86 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
87 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
88 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
89 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp