Searched refs:bedg (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
63 bedg(:)=x(ienb(j-1),:)-x(nn,:)
66 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
69 bedg(:)=x(ienb(j-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
51 bedg(:)=x(ienb(j-1),:)-x(nn,:)
54 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
57 bedg(:)=x(ienb(j-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)
|