Searched refs:wn1 (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ ! |
| H A D | slpwBC.f | 16 real*8 wn1(3),wn2(3),wn3(3) local
33 wn1(:)=wlnorm(:,islpw)
34 ii=nmax(wn1(1),wn1(2),wn1(3))
38 BC(4)= wn1(2)/wn1(1)
39 BC(5)= wn1(3)/wn1(1)
43 BC(4)=wn1(1)/wn1(2)
44 BC(5)=wn1(3)/wn1(2)
48 BC(4)=wn1(1)/wn1(3)
49 BC(5)=wn1(2)/wn1(3)
60 wn1(:)=wlnorm(:,islpw)
[all …]
|
| H A D | findslpw.f | 11 real*8 elnrm(nsd),wn1(nsd),wn2(nsd),wn3(nsd),aedg(nsd),bedg(nsd) local
108 wn1(:)=wlnorm(nn,:,k)
109 mag=(wn1(1)**2+wn1(2)**2+wn1(3)**2)**0.5
110 if(mag.ne.0)wlnorm(nn,:,k)=wn1(:)/mag
|