Searched refs:elnrm (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | findslpw.f | 11 real*8 elnrm(nsd),wn1(nsd),wn2(nsd),wn3(nsd),aedg(nsd),bedg(nsd) local
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)
62 wlnorm(nn,:,islpw)=wlnorm(nn,:,islpw)+elnrm(:)
|
| H A D | genbc.f | 188 & elnrm(3), asum(numnp)
247 elnrm(1) = e1(2)*e2(3)-e1(3)*e2(2)
248 elnrm(2) = e1(3)*e2(1)-e1(1)*e2(3)
249 elnrm(3) = e1(1)*e2(2)-e1(2)*e2(1)
253 if(nenbl.eq.3) elnrm(:)=-elnrm(:)
265 wnrm(nn,:)=wnrm(nn,:)+elnrm
|