Lines Matching refs:dxdxi
682 & dxdxi(npro,nsd,nsd), dxidx(npro,nsd,nsd),
710 dxdxi = zero
713 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
714 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
715 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
716 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
717 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
718 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
719 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
720 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
721 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
726 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
727 & - dxdxi(:,3,2) * dxdxi(:,2,3)
728 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
729 & - dxdxi(:,1,2) * dxdxi(:,3,3)
730 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
731 & - dxdxi(:,1,3) * dxdxi(:,2,2)
732 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
733 & + dxidx(:,1,2) * dxdxi(:,2,1)
734 & + dxidx(:,1,3) * dxdxi(:,3,1) )
738 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
739 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
740 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
741 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
742 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
743 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
744 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
745 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
746 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
747 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
748 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
749 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
835 & u3(npro), dxdxi(npro,nsd,nsd),
866 dxdxi = zero
869 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
870 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
871 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
872 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
873 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
874 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
875 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
876 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
877 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
882 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
883 & - dxdxi(:,3,2) * dxdxi(:,2,3)
884 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
885 & - dxdxi(:,1,2) * dxdxi(:,3,3)
886 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
887 & - dxdxi(:,1,3) * dxdxi(:,2,2)
888 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
889 & + dxidx(:,1,2) * dxdxi(:,2,1)
890 & + dxidx(:,1,3) * dxdxi(:,3,1) )
894 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
895 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
896 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
897 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
898 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
899 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
900 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
901 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
902 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
903 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
904 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
905 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp
1070 & dxdxi(npro,nsd,nsd), dxidx(npro,nsd,nsd),
1099 dxdxi = zero
1102 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
1103 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
1104 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
1105 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
1106 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
1107 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
1108 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
1109 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
1110 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
1115 dxidx(:,1,1) = dxdxi(:,2,2) * dxdxi(:,3,3)
1116 & - dxdxi(:,3,2) * dxdxi(:,2,3)
1117 dxidx(:,1,2) = dxdxi(:,3,2) * dxdxi(:,1,3)
1118 & - dxdxi(:,1,2) * dxdxi(:,3,3)
1119 dxidx(:,1,3) = dxdxi(:,1,2) * dxdxi(:,2,3)
1120 & - dxdxi(:,1,3) * dxdxi(:,2,2)
1121 tmp = one / ( dxidx(:,1,1) * dxdxi(:,1,1)
1122 & + dxidx(:,1,2) * dxdxi(:,2,1)
1123 & + dxidx(:,1,3) * dxdxi(:,3,1) )
1127 dxidx(:,2,1) = (dxdxi(:,2,3) * dxdxi(:,3,1)
1128 & - dxdxi(:,2,1) * dxdxi(:,3,3)) * tmp
1129 dxidx(:,2,2) = (dxdxi(:,1,1) * dxdxi(:,3,3)
1130 & - dxdxi(:,3,1) * dxdxi(:,1,3)) * tmp
1131 dxidx(:,2,3) = (dxdxi(:,2,1) * dxdxi(:,1,3)
1132 & - dxdxi(:,1,1) * dxdxi(:,2,3)) * tmp
1133 dxidx(:,3,1) = (dxdxi(:,2,1) * dxdxi(:,3,2)
1134 & - dxdxi(:,2,2) * dxdxi(:,3,1)) * tmp
1135 dxidx(:,3,2) = (dxdxi(:,3,1) * dxdxi(:,1,2)
1136 & - dxdxi(:,1,1) * dxdxi(:,3,2)) * tmp
1137 dxidx(:,3,3) = (dxdxi(:,1,1) * dxdxi(:,2,2)
1138 & - dxdxi(:,1,2) * dxdxi(:,2,1)) * tmp