function [filenm] = create_filenm(name,Hs,Ls,Lc,dt,tf,varargin)

if(nargin == 6)
   filenm = [name '_Hs' num2str(Hs) '_Ls' num2str(Ls) '_Lc' num2str(Lc) '_dt' num2str(dt) '_tf' num2str(tf)];
else
  filenm = [name '_Hs' num2str(Hs) '_Ls' num2str(Ls) '_b' num2str(varargin{1}) '_Lc' num2str(Lc) '_dt' num2str(dt) '_tf' num2str(tf)];
end
