function h=makefig(bottommar,leftmar,xlen,ylen);
% MAKEFIG - create a full page figure with axis
%
% function h=makefig(bottommar,leftmar,xlen,ylen);
%
% This function creates a full page figure.  When inputs are specified 
% the program will also create an axis on the figure of the input size.
% The inputs are (respectively) the bottom margin, the left margin, 
% the x axis length, and the y axis length.  After running this 
% function simply go ahead and invoke contour or plot or whatever 
% combination of plotting routines you need.  This figure window will 
% remain the active window until you either delete it or invoke another
% figure command.
%
%
% by C. Meinen

%	$Revision: 1.4 $
%	$Date: 2008/01/19 18:53:27 $
%	$Id: makefig.m,v 1.4 2008/01/19 18:53:27 duncombe Exp duncombe $
% 

  h=figure('Units','centimeters','Position',[5 2 11 8.5],'Units',...
  'inches','PaperPosition',[0 0 11 8.5]);
%h=figure('Units','centimeters','Position',[5 2 11 8.5],'Units',...
 % 'inches','PaperPosition',[0 0 11 8.5]);
  
%h=figure('Units','inches','Position',[6 -1.0 8.5 11],'Units',...
 % 'pixels','PaperPosition',[0 0 8.5 11]);
%
if nargin>0
  axset=[leftmar bottommar xlen ylen];
  axes('units','inches','Position',axset,'units','normalized');
end
%

