function filename_out = to_filename_out(filename, suffix)
[dir, name, ext] = fileparts (filename);
if length(dir)
	filename_out = sprintf("%s/%s.%s%s", dir, name, suffix, ext);
else
	filename_out = sprintf("%s.%s%s", name, suffix, ext);
end	
endfunction