function publ(width,markersize)
%
% change default linewidths of all new and present figures
% to make publication quality figures
%
% call publ(width)
%      default value for width is 0.5
%      typical value for width for figure to be used in a publication is 1-2

%
% Sverre Holm, University of Oslo 6. Nov 1998
%


% change all following figures: 	
	set(0,'DefaultAxesLineWidth',width);
	set(0,'DefaultLineLineWidth',width);
    if nargin==2
        set(0,'DefaultLineMarkerSize',markersize)
    end
	get(0,'Default');
%
% change this figure:
	set(gca,'LineWidth', width);
	h = get(gca,'children');
   set(h,'LineWidth',width)
   if nargin==2
    set(h,'MarkerSize',markersize);
   end
   
return