Lines Matching refs:wlnorm
20 allocate(wlnorm(nshg,nsd,9))
26 wlnorm=0
62 wlnorm(nn,:,islpw)=wlnorm(nn,:,islpw)+elnrm(:)
69 if(numpe.gt.1) call commu(wlnorm(:,:,k),ilwork,3,'in ')
70 call bc3per(iBC,wlnorm(:,:,k),iper,ilwork,3)
71 if(numpe.gt.1) call commu(wlnorm(:,:,k),ilwork,3,'out')
96 AA(:)=wlnorm(nn,:,IDslpw(i))
97 BB(:)=wlnorm(nn,:,IDslpw(j))
101 wlnorm(nn,:,IDslpw(i))=AA(:)+BB(:)
108 wn1(:)=wlnorm(nn,:,k)
110 if(mag.ne.0)wlnorm(nn,:,k)=wn1(:)/mag