function img_out = zeroneg(img_in)
%
%  img_out = zeroneg(img_in)
%
%  ZERONEG will move all negative values in the input
%  image IMG_IN to zero.
%
%
%  Developed by Timothy D. Dorney
%               Rice University
%               April, 1999
%               tdorney@ieee.org
%
%  Coded using MATLAB 5.X.X with NO additional toolboxes.
%
%	REVISION HISTORY
%
%	VERSION 1.0.0		APR. 13, 1999	TIM DORNEY
%

if (nargin ~= 1)
        disp('ZERONEG requires 1 input argument!')
	return;
end

img_out = img_in;
[e,f] = find(img_in < 0); 
for kk = 1:1:length(e)
	img_out(e(kk),f(kk)) = 0;
end
