function print_oxy_cal(cruiseid,fh)
% PRINT_OXY_CAL - print output figures from oxy_cal.m
% 

% 
% VERSION: 
%	$Revision: 1.9 $
%	$Date: 2008/02/18 19:43:07 $
%	$Id: print_oxy_cal.m,v 1.9 2008/02/18 19:43:07 duncombe Exp duncombe $
%
%CHANGELOG: 
%  2007/12/17 - CMDR
%	* read cruise id from the file in the current directory
%  2008/01/02 CMDR
%	* print a vector of figure handles
%	* vectorize and loop the code
%  2008/01/29 CMDR
%	* not closing the figures.
%

%%%%%%%%%%% CMDR read cruiseid if we can
if nargin==0, cruiseid=getcruiseid; end;
if isempty(cruiseid), cruiseid=getcruiseid; end;
%%%%%%%%%%%

%%%%%%%%%% CMDR set up a default in case we are called without input args
if ~exist('fh'), fh=[]; end;
if isempty(fh), fh=[3:6,8:11]; end;
%%%%%%%%%% 

% Where to save the figures?
%%%%%%%%%%% CMDR
% c_path=['C:\CTD_calibration\',cruiseid,'\figures\'];
p=pwd; dir_del=p(1);
c_path=['figures' dir_del ];

for i = 1:length(fh),
	figure(fh(i));
	eval(['print -depsc ',c_path,'oxy_c_fig' num2str(i)]);
end;

% Close the figures after saving the necessary ones
% close(fh);

clear all
return;

