function ff = gaino(out,gain,ff,startloc,sysloc)
for i=1:length(out)
 ff(i+startloc,sysloc+out(i)) = ff(i+startloc,sysloc+out(i)) + gain;
end
%
% Copyright MUSYN INC 1991,  All Rights Reserved
