Searched refs:aedg (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | mod_wallData.f90 | 34 real*8 eNorm(nsd),en(nsd),wn(nsd),aedg(nsd),bedg(nsd) local
62 aedg(:)=x(ienb(j+1),:)-x(nn,:)
65 aedg(:)=x(ienb(j+1),:)-x(nn,:)
68 aedg(:)=x(ienb(1),:)-x(nn,:)
71 eNorm(1)=aedg(2)*bedg(3)-aedg(3)*bedg(2)
72 eNorm(2)=aedg(3)*bedg(1)-aedg(1)*bedg(3)
73 eNorm(3)=aedg(1)*bedg(2)-aedg(2)*bedg(1)
|
| H A D | findslpw.f | 11 real*8 elnrm(nsd),wn1(nsd),wn2(nsd),wn3(nsd),aedg(nsd),bedg(nsd) local
50 aedg(:)=x(ienb(j+1),:)-x(nn,:)
53 aedg(:)=x(ienb(j+1),:)-x(nn,:)
56 aedg(:)=x(ienb(1),:)-x(nn,:)
59 elnrm(1)=aedg(2)*bedg(3)-aedg(3)*bedg(2)
60 elnrm(2)=aedg(3)*bedg(1)-aedg(1)*bedg(3)
61 elnrm(3)=aedg(1)*bedg(2)-aedg(2)*bedg(1)
|