Lines Matching refs:al
26 real*8 al(nelint,nenl,nsd),
35 call get_coeff_tet(xl,al)
37 detaij(:) = -al(:,2,1)*al(:,3,2)*al(:,4,3) +
38 & al(:,2,1)*al(:,4,2)*al(:,3,3) + al(:,2,2)*
39 & al(:,3,1)*al(:,4,3) - al(:,2,2)*al(:,4,1)*
40 & al(:,3,3) - al(:,2,3)*al(:,3,1)*al(:,4,2)+
41 & al(:,2,3)*al(:,4,1)*al(:,3,2)
45 zi0(:,1) = detaij(:)*((al(:,4,2)*al(:,3,3)
46 & - al(:,3,2)*al(:,4,3))*(xts1-al(:,1,1)) +
47 & (al(:,3,1)*al(:,4,3)
48 & - al(:,4,1)*al(:,3,3))*(xts2-al(:,1,2)) +
49 & (al(:,4,1)*al(:,3,2)
50 & - al(:,3,1)*al(:,4,2))*(xts3-al(:,1,3)))
53 zi0(:,2) = detaij(:)*((al(:,2,2)*al(:,4,3)
54 & - al(:,4,2)*al(:,2,3))*(xts1-al(:,1,1)) +
55 & (al(:,4,1)*al(:,2,3)
56 & - al(:,2,1)*al(:,4,3))*(xts2-al(:,1,2)) +
57 & (al(:,2,1)*al(:,4,2)
58 & - al(:,4,1)*al(:,2,2))*(xts3-al(:,1,3)))
60 zi0(:,3) = detaij(:)*((al(:,3,2)*al(:,2,3)
61 & - al(:,2,2)*al(:,3,3))*(xts1-al(:,1,1)) +
62 & (al(:,2,1)*al(:,3,3)
63 & - al(:,3,1)*al(:,2,3))*(xts2-al(:,1,2)) +
64 & (al(:,3,1)*al(:,2,2)
65 & - al(:,2,1)*al(:,3,2))*(xts3-al(:,1,3)))