Lines Matching refs:wnrm
202 allocate ( wnrm(nshg,3) )
209 wnrm = zero
226 wnrm(:,1:3)=zero
265 wnrm(nn,:)=wnrm(nn,:)+elnrm
288 call rotabc(wnrm, iBC, 'in ')
293 call commu (wnrm, ilwork, 3, 'in ')
296 call bc3per(iBC,wnrm, iper,ilwork, 3)
301 wnmdb=wnrm
303 wnrm(i,:) = wnrm(iper(i),:)
305 wnmdb=wnrm
308 call commu (wnrm, ilwork, 3, 'out')
312 call rotabc(wnrm, iBC, 'out')
320 & BCtmp(nn,4:6)=BCtmp(nn,4:6)+wnrm(nn,:)
322 & BCtmp(nn,8:10)=BCtmp(nn,8:10)+wnrm(nn,:)
324 & BCtmp(nn,4:6)=BCtmp(nn,4:6)+wnrm(nn,:)
333 wnrm(:,1:3)=zero
362 wnrm(nn,:)=BCtmp(nn,4:6)
363 if(abs(wnrm(nn,3)).gt.abs(wnrm(nn,2)))then ! z beats y
364 if(abs(wnrm(nn,3)).gt.abs(wnrm(nn,1)))then ! z beats x
368 if(abs(wnrm(nn,2)).ge.abs(wnrm(nn,3)))then ! y beats z
369 if(abs(wnrm(nn,2)).gt.abs(wnrm(nn,1)))then ! y beats x
454 wnrm(nn,:)=BCtmp(nn,4:6)+BCtmp(nn,8:10)
460 wnrm(nn,:)=BCtmp(nn,4:6)+BCtmp(nn,8:10)
470 & wnrm(nn,:)=BCtmp(nn,4:6)
472 & wnrm(nn,:)=BCtmp(nn,4:6)+BCtmp(nn,8:10)
476 wmag=sqrt(wnrm(nn,1)*wnrm(nn,1)
477 & +wnrm(nn,2)*wnrm(nn,2)+wnrm(nn,3)*wnrm(nn,3))
478 wnrm(nn,:)=wnrm(nn,:)/wmag
786 vec(:)=vec(:)*wnrm(ienb(nod),:)