Lines Matching refs:dxidx
3 & con, dxidx, rLyi,
42 & dxidx(npro,nsd,nsd), rk(npro),
53 call e3gijd( dxidx, gijd ) ! both diagonal taus need this
287 & con, dxidx, rLyi,
327 & dxidx(npro,nsd,nsd), rk(npro),
374 & dxidx, u, Q)
691 call e3gijd( dxidx, gijd )
748 & con, dxidx, rLyi,
789 & dxidx(npro,nsd,nsd), rk(npro),
836 & dxidx, u, Q)
1213 & dxidx, rLyti, rLymti,
1253 & dxidx(npro,nsd,nsd), rk(npro),
1265 call e3gijd( dxidx, gijd )
1397 subroutine e3gijd( dxidx, gijd ) argument
1401 real*8 dxidx(npro,nsd,nsd), gijd(npro,6), local
1410 gijd(:,1) = dxidx(:,1,1) * dxidx(:,1,1)
1411 & + dxidx(:,2,1) * dxidx(:,2,1)
1412 & + dxidx(:,3,1) * dxidx(:,3,1)
1414 gijd(:,2) = dxidx(:,1,1) * dxidx(:,1,2)
1415 & + dxidx(:,2,1) * dxidx(:,2,2)
1416 & + dxidx(:,3,1) * dxidx(:,3,2)
1418 gijd(:,3) = dxidx(:,1,2) * dxidx(:,1,2)
1419 & + dxidx(:,2,2) * dxidx(:,2,2)
1420 & + dxidx(:,3,2) * dxidx(:,3,2)
1422 gijd(:,4) = dxidx(:,1,1) * dxidx(:,1,3)
1423 & + dxidx(:,2,1) * dxidx(:,2,3)
1424 & + dxidx(:,3,1) * dxidx(:,3,3)
1426 gijd(:,5) = dxidx(:,1,2) * dxidx(:,1,3)
1427 & + dxidx(:,2,2) * dxidx(:,2,3)
1428 & + dxidx(:,3,2) * dxidx(:,3,3)
1430 gijd(:,6) = dxidx(:,1,3) * dxidx(:,1,3)
1431 & + dxidx(:,2,3) * dxidx(:,2,3)
1432 & + dxidx(:,3,3) * dxidx(:,3,3)
1443 tmp1(:) = c1 * dxidx(:,1,1) + c2 *(dxidx(:,2,1)+dxidx(:,3,1))
1444 tmp2(:) = c1 * dxidx(:,2,1) + c2 *(dxidx(:,1,1)+dxidx(:,3,1))
1445 tmp3(:) = c1 * dxidx(:,3,1) + c2 *(dxidx(:,1,1)+dxidx(:,2,1))
1446 gijd(:,1) = dxidx(:,1,1) * tmp1
1447 1 + dxidx(:,2,1) * tmp2
1448 2 + dxidx(:,3,1) * tmp3
1450 tmp1(:) = c1 * dxidx(:,1,2) + c2 *(dxidx(:,2,2)+dxidx(:,3,2))
1451 tmp2(:) = c1 * dxidx(:,2,2) + c2 *(dxidx(:,1,2)+dxidx(:,3,2))
1452 tmp3(:) = c1 * dxidx(:,3,2) + c2 *(dxidx(:,1,2)+dxidx(:,2,2))
1453 gijd(:,2) = dxidx(:,1,1) * tmp1
1454 1 + dxidx(:,2,1) * tmp2
1455 2 + dxidx(:,3,1) * tmp3
1457 gijd(:,3) = dxidx(:,1,2) * tmp1
1458 1 + dxidx(:,2,2) * tmp2
1459 2 + dxidx(:,3,2) * tmp3
1461 tmp1(:) = c1 * dxidx(:,1,3) + c2 *(dxidx(:,2,3)+dxidx(:,3,3))
1462 tmp2(:) = c1 * dxidx(:,2,3) + c2 *(dxidx(:,1,3)+dxidx(:,3,3))
1463 tmp3(:) = c1 * dxidx(:,3,3) + c2 *(dxidx(:,1,3)+dxidx(:,2,3))
1464 gijd(:,4) = dxidx(:,1,1) * tmp1
1465 1 + dxidx(:,2,1) * tmp2
1466 2 + dxidx(:,3,1) * tmp3
1468 gijd(:,5) = dxidx(:,1,2) * tmp1
1469 1 + dxidx(:,2,2) * tmp2
1470 2 + dxidx(:,3,2) * tmp3
1472 gijd(:,6) = dxidx(:,1,3) * tmp1
1473 1 + dxidx(:,2,3) * tmp2
1474 2 + dxidx(:,3,3) * tmp3
1481 gijd(:,1) = dxidx(:,1,1) * dxidx(:,1,1)
1482 & + dxidx(:,2,1) * dxidx(:,2,1)
1483 & + dxidx(:,3,1) * dxidx(:,3,1)
1485 gijd(:,2) = dxidx(:,1,1) * dxidx(:,1,2)
1486 & + dxidx(:,2,1) * dxidx(:,2,2)
1487 & + dxidx(:,3,1) * dxidx(:,3,2)
1489 gijd(:,3) = dxidx(:,1,2) * dxidx(:,1,2)
1490 & + dxidx(:,2,2) * dxidx(:,2,2)
1491 & + dxidx(:,3,2) * dxidx(:,3,2)
1493 gijd(:,4) = dxidx(:,1,1) * dxidx(:,1,3)
1494 & + dxidx(:,2,1) * dxidx(:,2,3)
1495 & + dxidx(:,3,1) * dxidx(:,3,3)
1497 gijd(:,5) = dxidx(:,1,2) * dxidx(:,1,3)
1498 & + dxidx(:,2,2) * dxidx(:,2,3)
1499 & + dxidx(:,3,2) * dxidx(:,3,3)
1501 gijd(:,6) = dxidx(:,1,3) * dxidx(:,1,3)
1502 & + dxidx(:,2,3) * dxidx(:,2,3)
1503 & + dxidx(:,3,3) * dxidx(:,3,3)