function adr2nc(adrname)
% ADR2NC - Read  ADV .adr file, write netCDF .nc file
% function adr2nc(adrname)
%
% Input:
%   adrname: a string, the name of binary *.adr file
%

% jpx @ usgs, 05-21-01

if nargin<1 | ~ischar(adrname)
   help(mfilename);
   return;
end;

[ipath,iname,iext]=fileparts(adrname);
fname=[iname '.nc'];

dum=adr2mat(adrname);

advmat2nc(dum,fname);
return;