function [bcx,bcy] = specific_flow(xbd,ybd) %no_flow specifies zero flow condition % [bcx,bcy] = specific_flow(xbd,ybd); % input % xbd x coordinate vector % ybd y coordinate vector % % IFISS function: DJS; 6 March 2005. % Copyright (c) 2005 D.J. Silvester, H.C. Elman, A. Ramage bcx=0*xbd; bcy=0*xbd; return