Lines Matching refs:hfres
73 & hfres(nshg,11),
91 hfres = zero
125 call hfilter (yold, x, mien(iblk)%p, hfres,
131 if(numpe>1) call commu (hfres, ilwork, 11, 'in ')
138 hfres(i,:) = hfres(i,:) + hfres(j,:)
144 hfres(j,:) = hfres(i,:)
150 if(numpe>1) call commu (hfres, ilwork, 11, 'out')
153 hfres(:,5) = one / hfres(:,5) ! one/(volume of hat filter kernel)
156 hfres(:,j) = hfres(:,j) * hfres(:,5)
159 hfres(:,j) = hfres(:,j) * hfres(:,5)
174 rls(:,1) = hfres(:,6) - hfres(:,1)*hfres(:,1)/rho(:)
175 rls(:,2) = hfres(:,7) - hfres(:,2)*hfres(:,2)/rho(:)
176 rls(:,3) = hfres(:,8) - hfres(:,3)*hfres(:,3)/rho(:)
184 rls(:,4) = hfres(:,9) - hfres(:,1)*hfres(:,2)/rho(:)
185 rls(:,5) = hfres(:,10) - hfres(:,1)*hfres(:,3)/rho(:)
186 rls(:,6) = hfres(:,11) - hfres(:,2)*hfres(:,3)/rho(:)
250 & fres, hfres, shgl(lcsyst,:,1:nshl,:),
672 subroutine hfilter (y, x, ien, hfres, shgl, shp, Qwtf) argument
676 dimension y(nshg,5), hfres(nshg,11)
803 call local (hfres, fresl, ien, 11, 'scatter ')
826 & hfres, shgl, shp, Qwtf) argument
840 & hfres(nshg,11), hfresl(npro,nshl,11)
846 call local (hfres, hfresl, ien, 11, 'gather ')