%
%  function to write a parameter
%
function []=param_write(fidi,sbeg,pname,smid,send,params)

if ~isfield(params,pname)
    warning('param_write:param_not_found',...
        'Parameter ''%s'' not found in structure.',pname);
    return
end

if islogical(params.(pname)) && ~params.(pname)
    return
end

if     islogical(params.(pname))
    fprintf(fidi,[sbeg '%s' send],pname);
elseif ischar   (params.(pname))
    fprintf(fidi,[sbeg '%s' smid '%s' send],pname,params.(pname));
elseif isnumeric(params.(pname))
    fprintf(fidi,[sbeg '%s' smid '%g' send],pname,params.(pname));
end

end