Lines Matching refs:wNorm
48 allocate(wNorm(nshg,nsd))
49 wNorm = 0
75 call addElemNormal(wNorm, eNorm, nn)
87 wNormTmp = wNorm
89 wNormTmp = wNormTmp - wNorm !undo the addition in commu to just
94 call addElemNormal(wNorm, wn, i) !an interior node, zero gets
105 if(numpe.gt.1) call commu(wNorm(:,:),ilwork,3,'out')
108 wn(:) = wNorm(nn,:)
111 if(mag > 0) wNorm(nn,:) = wn(:)/mag
116 wn(:)=wNorm(nn,:)
135 wNorm(nn,:)=wn(:)/mag
157 subroutine addElemNormal(wNorm, eNorm, nn) argument
163 real*8 :: wNorm(nshg, nsd) local
168 wn(:)=wNorm(nn,:)
172 wNorm(nn,:) = eNorm(:)
186 wNorm(nn,:) = eNorm(:) ! overwrite wNorm
190 wNorm(nn,:)=wNorm(nn,:) + eNorm(:)