Lines Matching refs:dxdxi
18 & dxdxi(npro,nsd,nsd), dxidx(npro,nsd,nsd),
41 dxdxi = zero
44 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
45 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
46 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
47 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
48 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
49 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
50 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
51 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
52 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
57 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
58 & - dxdxi(:,3,2) * dxdxi(:,2,3)
59 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
60 & - dxdxi(:,1,2) * dxdxi(:,3,3)
61 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
62 & - dxdxi(:,1,3) * dxdxi(:,2,2)
63 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
64 & + dxidx(:,1,2) * dxdxi(:,2,1)
65 & + dxidx(:,1,3) * dxdxi(:,3,1) )
69 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
70 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
71 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
72 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
73 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
74 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
75 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
76 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
77 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
78 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
79 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
80 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
187 & u3(npro), dxdxi(npro,nsd,nsd),
232 dxdxi = zero
235 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
236 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
237 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
238 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
239 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
240 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
241 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
242 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
243 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
248 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
249 & - dxdxi(:,3,2) * dxdxi(:,2,3)
250 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
251 & - dxdxi(:,1,2) * dxdxi(:,3,3)
252 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
253 & - dxdxi(:,1,3) * dxdxi(:,2,2)
254 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
255 & + dxidx(:,1,2) * dxdxi(:,2,1)
256 & + dxidx(:,1,3) * dxdxi(:,3,1) )
260 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
261 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
262 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
263 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
264 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
265 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
266 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
267 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
268 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
269 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
270 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
271 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
417 & dxdxi(npro,nsd,nsd), dxidx(npro,nsd,nsd),
441 dxdxi = zero
444 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
445 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
446 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
447 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
448 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
449 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
450 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
451 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
452 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
457 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
458 & - dxdxi(:,3,2) * dxdxi(:,2,3)
459 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
460 & - dxdxi(:,1,2) * dxdxi(:,3,3)
461 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
462 & - dxdxi(:,1,3) * dxdxi(:,2,2)
463 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
464 & + dxidx(:,1,2) * dxdxi(:,2,1)
465 & + dxidx(:,1,3) * dxdxi(:,3,1) )
469 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
470 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
471 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
472 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
473 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
474 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
475 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
476 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
477 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
478 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
479 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
480 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
603 & u3(npro), dxdxi(npro,nsd,nsd),
645 dxdxi = zero
648 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
649 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
650 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
651 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
652 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
653 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
654 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
655 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
656 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
661 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
662 & - dxdxi(:,3,2) * dxdxi(:,2,3)
663 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
664 & - dxdxi(:,1,2) * dxdxi(:,3,3)
665 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
666 & - dxdxi(:,1,3) * dxdxi(:,2,2)
667 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
668 & + dxidx(:,1,2) * dxdxi(:,2,1)
669 & + dxidx(:,1,3) * dxdxi(:,3,1) )
673 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
674 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
675 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
676 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
677 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
678 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
679 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
680 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
681 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
682 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
683 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
684 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
795 & dxdxi(npro,nsd,nsd), dxidx(npro,nsd,nsd),
820 dxdxi = zero
823 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
824 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
825 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
826 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
827 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
828 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
829 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
830 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
831 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
836 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
837 & - dxdxi(:,3,2) * dxdxi(:,2,3)
838 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
839 & - dxdxi(:,1,2) * dxdxi(:,3,3)
840 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
841 & - dxdxi(:,1,3) * dxdxi(:,2,2)
842 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
843 & + dxidx(:,1,2) * dxdxi(:,2,1)
844 & + dxidx(:,1,3) * dxdxi(:,3,1) )
848 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
849 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
850 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
851 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
852 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
853 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
854 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
855 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
856 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
857 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
858 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
859 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
1249 & dxdxi(npro,nsd,nsd), dxidx(npro,nsd,nsd),
1274 dxdxi = zero
1277 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
1278 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
1279 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
1280 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
1281 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
1282 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
1283 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
1284 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
1285 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
1290 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
1291 & - dxdxi(:,3,2) * dxdxi(:,2,3)
1292 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
1293 & - dxdxi(:,1,2) * dxdxi(:,3,3)
1294 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
1295 & - dxdxi(:,1,3) * dxdxi(:,2,2)
1296 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
1297 & + dxidx(:,1,2) * dxdxi(:,2,1)
1298 & + dxidx(:,1,3) * dxdxi(:,3,1) )
1302 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
1303 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
1304 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
1305 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
1306 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
1307 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
1308 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
1309 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
1310 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
1311 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
1312 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
1313 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp