function [] = ladcp2cdf(fname,struct,st2,st3,st4,st5,st6,st7);

% function [] = ladcp2cdf(fname,struct,st2,st3,st4,st5,st6,st7);

%

% function to save LADCP data into a netcdf file

%

% input  :	fname		- filename

%		struct		- structure containing the data

%		struct2		- structure containing the attributes

%

% version 0.1	last change 08.03.2002

% Felix Tubiana Added Variable Attributes 12.12.03

% G.Krahmann, LDEO Mar 2002

% warning off MATLAB:DeprecatedLogicalAPI

% check arguments

if nargin<2

  error('need two input arguments')

end

if ~isstruct(struct)

  error('second argument must be a structure')

end

% check filename

fname = deblank(fname);

nc = netcdf(fname,'clobber');

if isempty(nc)

  error('can not open netcdf file')

end

% look for the three dimension bases

lbot = 0;

lz = 0;

ltim = 0;

lsadcp = 0;

if isfield(struct,'z');

  lz = length(getfield(struct,'z'));

end  

if isfield(struct,'tim');

  ltim = length(getfield(struct,'tim'));

end  

if isfield(struct,'zbot');

  lbot = length(getfield(struct,'zbot'));

end  

if isfield(struct,'z_sadcp');

  lsadcp = length(getfield(struct,'z_sadcp'));

end  

% define dimensions in netcdf file

if lz>0

  nc('z') = fix(lz);

end

if ltim>0

  nc('tim') = fix(ltim);

end

if lbot>0

  nc('zbot') = fix(lbot);

end

if lsadcp>0

  nc('z_sadcp') = fix(lsadcp);

end

nc('lat') = 1;

nc('lon') = 1;

nc('date') = 6;

nc('name') = length(getfield(struct,'name'));

% define standard variables

nc{'lat'} = ncfloat('lat');

nc{'lon'} = ncfloat('lat');

nc{'date'} = ncint('date');

nc{'name'} = ncchar('name');

% store standard variables

nc{'lat'}(:) = struct.lat;

nc{'lon'}(:) = struct.lon;

nc{'date'}(:) = struct.date;

nc{'name'}(:) = struct.name;

% parse fieldnames, define the proper variable and store it

fnames = fieldnames(struct);

for n=1:size(fnames,1)

  dummy = getfield(struct,fnames{n});

  if length(dummy)==lz

    eval(['nc{''',fnames{n},'''} = ncfloat(''z'');'])

    eval(['nc{''',fnames{n},'''}(:) = dummy;'])

  end

  if length(dummy)==ltim

    eval(['nc{''',fnames{n},'''} = ncfloat(''tim'');'])

    eval(['nc{''',fnames{n},'''}(:) = dummy;'])

  end

  if length(dummy)==lbot

    eval(['nc{''',fnames{n},'''} = ncfloat(''zbot'');'])

    eval(['nc{''',fnames{n},'''}(:) = dummy;'])

  end

  if length(dummy)==lsadcp

    eval(['nc{''',fnames{n},'''} = ncfloat(''z_sadcp'');'])

    eval(['nc{''',fnames{n},'''}(:) = dummy;'])

  end

end

% parse fieldnames and add them to the netcdf file  

for i=2:(nargin-1)

   eval(['a=st',int2str(i),';']);

   fnames = fieldnames(a);

   if isstruct(a)

      if ~isstruct(eval(['a.' fnames{1}])) % No SubStructure

	 dummy='New Structure';

	 eval(['nc.',['st',int2str(i)],'=dummy;'])

	 for n = 1:size(fnames,1)

	    dummy = getfield(a,fnames{n});

	    if size(dummy,1)==1

	       if isstr(dummy)

		  eval(['nc.',fnames{n},'=dummy;'])

	       else

		  eval(['nc.',fnames{n},'=dummy(:);'])

	       end    

	    end

	 end

      else % SubStructures -> Variable Attributes

	 for n = 1:size(fnames,1)

	    atts = eval(['fieldnames(a.' fnames{n} ');']);

	    for j = 1:size(atts,1)

	       dummy = eval(['a.' fnames{n} '.' atts{j} ';']);

	       if size(dummy,1) == 1

		  if isstr(dummy)

		     eval(['nc{''',fnames{n}, '''}.' atts{j} '=dummy;'])

		  else

		     eval(['nc{''',fnames{n}, '''}.' atts{j} '=dummy(:);'])

		  end    

	       end

	    end	       

	 end

      end

   else

      disp(' not structure')

   end

end

% close netcdf file

close(nc)