Lines Matching refs:dxidx
8 subroutine e3metric( xl, shgl, dxidx, argument
14 & dxidx(npro,nsd,nsd), shg(npro,nshl,nsd), local
38 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
40 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
42 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
44 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
45 & + dxidx(:,1,2) * dxdxi(:,2,1)
46 & + dxidx(:,1,3) * dxdxi(:,3,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
50 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
52 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
54 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
56 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
58 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
60 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
68 shg(:,n,1) = shgl(:,1,n) * dxidx(:,1,1) +
69 & shgl(:,2,n) * dxidx(:,2,1) +
70 & shgl(:,3,n) * dxidx(:,3,1)
71 shg(:,n,2) = shgl(:,1,n) * dxidx(:,1,2) +
72 & shgl(:,2,n) * dxidx(:,2,2) +
73 & shgl(:,3,n) * dxidx(:,3,2)
74 shg(:,n,3) = shgl(:,1,n) * dxidx(:,1,3) +
75 & shgl(:,2,n) * dxidx(:,2,3) +
76 & shgl(:,3,n) * dxidx(:,3,3)