Searched refs:al (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | timeseries.f | 10 real*8 al(npro,nenl,nsd), local
40 call get_a_not_hex(xl,al) ! get mapping poly. coeff.
44 detaij(:) = -al(:,2,1)*al(:,3,2)*al(:,4,3) +
45 & al(:,2,1)*al(:,4,2)*al(:,3,3) + al(:,2,2)*
46 & al(:,3,1)*al(:,4,3) - al(:,2,2)*al(:,4,1)*
47 & al(:,3,3) - al(:,2,3)*al(:,3,1)*al(:,4,2)+
48 & al(:,2,3)*al(:,4,1)*al(:,3,2)
52 zi0(:,1) = detaij(:)*((al(:,4,2)*al(:,3,3)
53 & - al(:,3,2)*al(:,4,3))*(xts1-al(:,1,1)) +
54 & (al(:,3,1)*al(:,4,3)
[all …]
|
| /phasta/phSolver/incompressible/ |
| H A D | timeseries.f | 10 real*8 al(npro,nenl,nsd), local
40 call get_a_not_hex(xl,al) ! get mapping poly. coeff.
44 detaij(:) = -al(:,2,1)*al(:,3,2)*al(:,4,3) +
45 & al(:,2,1)*al(:,4,2)*al(:,3,3) + al(:,2,2)*
46 & al(:,3,1)*al(:,4,3) - al(:,2,2)*al(:,4,1)*
47 & al(:,3,3) - al(:,2,3)*al(:,3,1)*al(:,4,2)+
48 & al(:,2,3)*al(:,4,1)*al(:,3,2)
52 zi0(:,1) = detaij(:)*((al(:,4,2)*al(:,3,3)
53 & - al(:,3,2)*al(:,4,3))*(xts1-al(:,1,1)) +
54 & (al(:,3,1)*al(:,4,3)
[all …]
|
| /phasta/phSolver/common/ |
| H A D | elem-search.f | 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)
[all …]
|