% Usage: D = loadANTS(filename[,fieldname[,...]]);

%

% Examples:

%	prof = loadANTS('070.2db');

%		- read all fields from file 070.2db into matrix prof

%		- each field becomes a column

%	prof = loadANTS('070.2db','press','temp','salin');

%		- read pressure, temperature, and salinity fields from file 070.2db

%		  into matrix prof

%		- 1st column is pressure, 2nd column is temperature, 3rd column is

%		  salinity

%======================================================================

%                    L O A D A N T S . M 

%                    doc: Fri Sep 17 11:12:44 2010

%                    dlm: Fri Sep 17 11:41:01 2010

%                    (c) 2010 A.M. Thurnherr

%                    uE-Info: 25 29 NIL 0 0 72 2 2 4 NIL ofnI

%======================================================================

function D = loadANTS(file,varargin)

if nargin==1

	cmd = sprintf('data -Qw %s',file);

	[status,dta] = system(cmd);

	if status~=0

		error(sprintf('cmd "%s" failed',cmd));

	end

	nfields = sscanf(dta,'%d');

	cmd = sprintf('Cat -Q %s',file);

else

	nfields = nargin-1;

	cmd = 'list -Q';

	for i=1:nfields

	  cmd = sprintf('%s %s',cmd,varargin{i});

	end

	cmd = sprintf('%s %s',cmd,file);

end

[status,dta] = system(cmd);

if status~=0

	error(sprintf('cmd "%s" failed',cmd));

end

D = sscanf(dta,'%f',[nfields,inf])';