% function [] = add_struct(ncf,snm,a)
%
% function to add mat structures to attributes field of NetCDF file 
% called from ladcp2cdf LDEO software to Process LADCP
%
% input  :	ncf		- output filename
%			snm	- slash indicates a global variable
%			a - arbitrary metadata structures

function [] = add_struct(ncf,snm,a)
   fnames = fieldnames(a);
   if isstruct(a)
        for n = 1:size(fnames,1)
            dummy = getfield(a,fnames{n});
                if size(dummy,1)==1
                    if isstr(dummy)
                        ncwriteatt(ncf,snm,fnames{n},dummy);
                    elseif islogical(dummy)
                        if dummy, dummy='true';
                        else, 	  dummy='false';
                        end
                        ncwriteatt(ncf,snm,fnames{n},dummy);
                    else
                        ncwriteatt(ncf,snm,fnames{n},dummy(:));
                    end    
                end
        end % for n
   else % if issstruct(a)
      disp(' not structure')
   end
end % function