Lines Matching refs:hfres
1 subroutine hfilterC (y, x, ien, hfres, shgl, shp, Qwtf) argument
9 dimension y(nshg,5), hfres(nshg,16)
166 hfres(ien(nel,j),:) = hfres(ien(nel,j),:) + fresl(nel,:)
178 & hfres, shgl, shp, Qwtf) argument
192 & hfres(nshg,16), hfresl(npro,nshl,16),
205 call local (hfres, hfresl, ien, 16, 'gather ')
404 subroutine hfilterCC (y, x, ien, hfres, shgl, shp, Qwtf) argument
408 dimension y(nshg,5), hfres(nshg,22)
581 hfres(ien(nel,j),:) = hfres(ien(nel,j),:) + fresl(nel,:)
594 & hfres, shgl, shp, Qwtf) argument
608 & hfres(nshg,22), hfresl(npro,nshl,22),
618 call local (hfres, hfresl, ien, 22, 'gather ')
782 subroutine hfilterBB (y, x, ien, hfres, shgl, shp, Qwtf) argument
786 dimension y(nshg,5), hfres(nshg,24)
966 call local (hfres, fresl, ien, 24, 'scatter ')
1236 subroutine resSij (y, x, ien, hfres, shgl, shp, Qwtf) argument
1240 dimension y(nshg,5), hfres(nshg,24)
1423 call local (hfres, fresl, ien, 24, 'scatter ')
2365 & hfres(nshg,22),
2402 hfres = zero
2433 call hfilterCC (yold, x, mien(iblk)%p, hfres,
2439 if(numpe>1) call commu (hfres, ilwork, 22, 'in ')
2446 hfres(i,:) = hfres(i,:) + hfres(j,:)
2452 hfres(j,:) = hfres(i,:)
2458 if(numpe>1) call commu (hfres, ilwork, 22, 'out')
2461 hfres(:,16) = one / hfres(:,16) ! one/(volume filter kernel)
2464 hfres(:,j) = hfres(:,j) * hfres(:,16)
2467 hfres(:,j) = hfres(:,j) * hfres(:,16)
2491 & fres, hfres, shglf(lcsyst,:,1:nshl,:),