Searched refs:wNormTmp (Results 1 – 1 of 1) sorted by relevance
33 real*8, allocatable :: wNormTmp(:,:) local86 allocate(wNormTmp(nshg,nsd))87 wNormTmp = wNorm88 call commu(wNormTmp(:,:), ilwork, 3, 'in ') 89 wNormTmp = wNormTmp - wNorm !undo the addition in commu to just93 wn(:) = wNormTmp(i,:) !processor contribution. If this is