Lines Matching refs:wn1
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)
62 c4=wn1(1)
63 c5=wn1(2)
64 c6=wn1(3)
108 wn1(:)=wlnorm(:,islpw)
113 c8=wn1(1)
114 c9=wn1(2)
115 c10=wn1(3)
159 wn1(:)=wlnorm(:,islpw)
161 c8=wn1(1)
162 c9=wn1(2)
163 c10=wn1(3)
188 wn1(:)=wlnorm(:,islpw)
189 c12=wn1(1)
190 c13=wn1(2)
191 c14=wn1(3)
209 wn1(:)=wlnorm(:,islpw)
210 ii=nmax(wn1(1),wn1(2),wn1(3))
212 BC(3)=-wn1(2)/wn1(1)*v-wn1(3)/wn1(1)*w ! u is determined by v and w
214 BC(4)=-wn1(1)/wn1(2)*u-wn1(3)/wn1(2)*w ! v is determined by u and w
216 BC(5)=-wn1(1)/wn1(3)*u-wn1(2)/wn1(3)*v ! w is determined by u and v
231 wn1(:)=wlnorm(:,islpw)
233 c4=wn1(1)
234 c5=wn1(2)
235 c6=wn1(3)