Lines Matching refs:dxdxi
21 & dxdxi(npro,nsd,nsd), dxidx(npro,nsd,nsd),
117 dxdxi = zero
120 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
121 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
122 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
123 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
124 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
125 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
126 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
127 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
128 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
133 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
134 & - dxdxi(:,3,2) * dxdxi(:,2,3)
135 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
136 & - dxdxi(:,1,2) * dxdxi(:,3,3)
137 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
138 & - dxdxi(:,1,3) * dxdxi(:,2,2)
139 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
140 & + dxidx(:,1,2) * dxdxi(:,2,1)
141 & + dxidx(:,1,3) * dxdxi(:,3,1) )
145 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
146 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
147 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
148 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
149 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
150 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
151 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
152 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
153 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
154 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
155 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
156 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp