Lines Matching refs:dxidx

4      &                     dxidx,  u,      Q)
46      &            eb1(npro),                 dxidx(npro,nsd,nsd),
111         a1 = Rcs(:,1,1) * dxidx(:,1,1) + Rcs(:,1,2) * dxidx(:,1,2) +
112      &       Rcs(:,1,3) * dxidx(:,1,3)
113         a2 = Rcs(:,2,1) * dxidx(:,1,1) + Rcs(:,2,2) * dxidx(:,1,2) +
114      &       Rcs(:,2,3) * dxidx(:,1,3)
115         a3 = Rcs(:,3,1) * dxidx(:,1,1) + Rcs(:,3,2) * dxidx(:,1,2) +
116      &       Rcs(:,3,3) * dxidx(:,1,3)
117         dxidx(:,1,1) = a1
118         dxidx(:,1,2) = a2
119         dxidx(:,1,3) = a3
121         a1 = Rcs(:,1,1) * dxidx(:,2,1) + Rcs(:,1,2) * dxidx(:,2,2) +
122      &       Rcs(:,1,3) * dxidx(:,2,3)
123         a2 = Rcs(:,2,1) * dxidx(:,2,1) + Rcs(:,2,2) * dxidx(:,2,2) +
124      &       Rcs(:,2,3) * dxidx(:,2,3)
125         a3 = Rcs(:,3,1) * dxidx(:,2,1) + Rcs(:,3,2) * dxidx(:,2,2) +
126      &       Rcs(:,3,3) * dxidx(:,2,3)
127         dxidx(:,2,1) = a1
128         dxidx(:,2,2) = a2
129         dxidx(:,2,3) = a3
131         a1 = Rcs(:,1,1) * dxidx(:,3,1) + Rcs(:,1,2) * dxidx(:,3,2) +
132      &       Rcs(:,1,3) * dxidx(:,3,3)
133         a2 = Rcs(:,2,1) * dxidx(:,3,1) + Rcs(:,2,2) * dxidx(:,3,2) +
134      &       Rcs(:,2,3) * dxidx(:,3,3)
135         a3 = Rcs(:,3,1) * dxidx(:,3,1) + Rcs(:,3,2) * dxidx(:,3,2) +
136      &       Rcs(:,3,3) * dxidx(:,3,3)
137         dxidx(:,3,1) = a1
138         dxidx(:,3,2) = a2
139         dxidx(:,3,3) = a3
145         a1 = dxidx(:,1,1)**2 + dxidx(:,2,1)**2 + dxidx(:,3,1)**2
146         a2 = dxidx(:,1,2)**2 + dxidx(:,2,2)**2 + dxidx(:,3,2)**2
147         a3 = dxidx(:,1,3)**2 + dxidx(:,2,3)**2 + dxidx(:,3,3)**2
161           a1 = ( a1 + (dxidx(:,1,1) + dxidx(:,2,1) +
162      &                 dxidx(:,3,1))**2 ) * pt39
163           a2 = ( a2 + (dxidx(:,1,2) + dxidx(:,2,2) +
164      &                 dxidx(:,3,2))**2 ) * pt39
165           a3 = ( a3 + (dxidx(:,1,3) + dxidx(:,2,3) +
166      &                 dxidx(:,3,3))**2 ) * pt39