Lines Matching refs:dxidx
2 & dxidx,
44 & Sclr(npro), dxidx(npro,nsd,nsd),
148 f1 = dxidx(:,1,1) * dxidx(:,1,1) +
149 & dxidx(:,2,1) * dxidx(:,2,1) +
150 & dxidx(:,3,1) * dxidx(:,3,1)
151 f2 = dxidx(:,1,1) * dxidx(:,1,2) +
152 & dxidx(:,2,1) * dxidx(:,2,2) +
153 & dxidx(:,3,1) * dxidx(:,3,2)
154 f3 = dxidx(:,1,2) * dxidx(:,1,2) +
155 & dxidx(:,2,2) * dxidx(:,2,2) +
156 & dxidx(:,3,2) * dxidx(:,3,2)
157 f4 = dxidx(:,1,1) * dxidx(:,1,3) +
158 & dxidx(:,2,1) * dxidx(:,2,3) +
159 & dxidx(:,3,1) * dxidx(:,3,3)
160 f5 = dxidx(:,1,2) * dxidx(:,1,3) +
161 & dxidx(:,2,2) * dxidx(:,2,3) +
162 & dxidx(:,3,2) * dxidx(:,3,3)
163 f6 = dxidx(:,1,3) * dxidx(:,1,3) +
164 & dxidx(:,2,3) * dxidx(:,2,3) +
165 & dxidx(:,3,3) * dxidx(:,3,3)
170 f1 = ( f1 + (dxidx(:,1,1) +
171 & dxidx(:,2,1) + dxidx(:,3,1))**2 ) * pt39
172 f2 = ( f2 + (dxidx(:,1,1) +
173 & dxidx(:,2,1) + dxidx(:,3,1)) *
174 & (dxidx(:,1,2) +
175 & dxidx(:,2,2) + dxidx(:,3,2)) ) * pt39
176 f3 = ( f3 + (dxidx(:,1,2) +
177 & dxidx(:,2,2) + dxidx(:,3,2))**2 ) * pt39
178 f4 = ( f4 + (dxidx(:,1,1) +
179 & dxidx(:,2,1) + dxidx(:,3,1)) *
180 & (dxidx(:,1,3) +
181 & dxidx(:,2,3) + dxidx(:,3,3)) ) * pt39
182 f5 = ( f5 + (dxidx(:,1,2) +
183 & dxidx(:,2,2) + dxidx(:,3,2)) *
184 & (dxidx(:,1,3) +
185 & dxidx(:,2,3) + dxidx(:,3,3)) ) * pt39
186 f6 = ( f6 + (dxidx(:,1,3) +
187 & dxidx(:,2,3) + dxidx(:,3,3))**2 ) * pt39
195 f1 = ( dxidx(:,1,1) * dxidx(:,1,1) +
196 & dxidx(:,2,1) * dxidx(:,2,1) +
197 & ( dxidx(:,1,1) + dxidx(:,2,1) )**2 ) * pt57
198 & + dxidx(:,3,1) * dxidx(:,3,1)
199 f2 = ( dxidx(:,1,1) * dxidx(:,1,2) +
200 & dxidx(:,2,1) * dxidx(:,2,2) +
201 & ( dxidx(:,1,1) + dxidx(:,2,1) ) *
202 & ( dxidx(:,1,2) + dxidx(:,2,2) ) ) * pt57
203 & + dxidx(:,3,1) * dxidx(:,3,2)
204 f3 = ( dxidx(:,1,2) * dxidx(:,1,2) +
205 & dxidx(:,2,2) * dxidx(:,2,2) +
206 & ( dxidx(:,1,2) + dxidx(:,2,2) )**2 ) * pt57
207 & + dxidx(:,3,2) * dxidx(:,3,2)
208 f4 = ( dxidx(:,1,1) * dxidx(:,1,3) +
209 & dxidx(:,2,1) * dxidx(:,2,3) +
210 & ( dxidx(:,1,1) + dxidx(:,2,1) ) *
211 & ( dxidx(:,1,3) + dxidx(:,2,3) ) ) * pt57
212 & + dxidx(:,3,1) * dxidx(:,3,3)
213 f5 = ( dxidx(:,1,2) * dxidx(:,1,3) +
214 & dxidx(:,2,2) * dxidx(:,2,3) +
215 & ( dxidx(:,1,2) + dxidx(:,2,2) ) *
216 & ( dxidx(:,1,3) + dxidx(:,2,3) ) ) * pt57
217 & + dxidx(:,3,2) * dxidx(:,3,3)
218 f6 = ( dxidx(:,1,3) * dxidx(:,1,3) +
219 & dxidx(:,2,3) * dxidx(:,2,3) +
220 & ( dxidx(:,1,3) + dxidx(:,2,3) )**2 ) * pt57
221 & + dxidx(:,3,3) * dxidx(:,3,3)