Lines Matching refs:hfres
971 & hfres(nshg,16)
976 hfres = zero
1007 call hfilterC (yold, x, mien(iblk)%p, hfres,
1013 if(numpe>1) call commu (hfres, ilwork, 16, 'in ')
1020 hfres(i,:) = hfres(i,:) + hfres(j,:)
1026 hfres(j,:) = hfres(i,:)
1032 if(numpe>1) call commu (hfres, ilwork, 16, 'out')
1035 hfres(:,16) = one / hfres(:,16) ! one/(volume of hat filter kernel)
1038 hfres(:,j) = hfres(:,j) * hfres(:,16)
1062 & fres, hfres, shgl(lcsyst,:,1:nshl,:),
3180 & hfres(nshg,22),
3220 hfres = zero
3251 call hfilterCC (yold, x, mien(iblk)%p, hfres,
3257 if(numpe>1) call commu (hfres, ilwork, 22, 'in ')
3264 hfres(i,:) = hfres(i,:) + hfres(j,:)
3270 hfres(j,:) = hfres(i,:)
3276 if(numpe>1) call commu (hfres, ilwork, 22, 'out')
3279 hfres(:,16) = one / hfres(:,16) ! one/(volume filter kernel)
3282 hfres(:,j) = hfres(:,j) * hfres(:,16)
3285 hfres(:,j) = hfres(:,j) * hfres(:,16)
3309 & fres, hfres, shglf(lcsyst,:,1:nshl,:),