Searched refs:anot (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | get_a_not_hex.f | 3 subroutine get_a_not_hex(xc,anot) argument
7 dimension xc(npro,nenl,nsd), anot(npro,nenl,nsd)
12 anot(:,1,i) = pt125*(xc(:,1,i)+xc(:,2,i)+xc(:,3,i)+xc(:,4,i)
15 anot(:,2,i) = pt125*(-xc(:,1,i)+xc(:,2,i)+xc(:,3,i)-xc(:,4,i)
18 anot(:,3,i) = pt125*(-xc(:,1,i)-xc(:,2,i)+xc(:,3,i)+xc(:,4,i)
21 anot(:,4,i) = pt125*(-xc(:,1,i)-xc(:,2,i)-xc(:,3,i)-xc(:,4,i)
24 anot(:,5,i) = pt125*(xc(:,1,i)-xc(:,2,i)+xc(:,3,i)-xc(:,4,i)
27 anot(:,6,i) = pt125*(xc(:,1,i)+xc(:,2,i)-xc(:,3,i)-xc(:,4,i)
30 anot(:,7,i) = pt125*(xc(:,1,i)-xc(:,2,i)-xc(:,3,i)+xc(:,4,i)
33 anot(:,8,i) = pt125*(-xc(:,1,i)+xc(:,2,i)-xc(:,3,i)+xc(:,4,i)
[all …]
|
| H A D | get_coeff.f | 42 subroutine get_coeff_tet(xc,anot) argument
48 dimension xc(nelint,nenl,nsd), anot(nelint,nenl,nsd)
53 anot(:,1,i) = xc(:,4,i)
54 anot(:,2,i) = xc(:,1,i)-xc(:,4,i)
55 anot(:,3,i) = xc(:,2,i)-xc(:,4,i)
56 anot(:,4,i) = xc(:,3,i)-xc(:,4,i)
|