xmlWriteSingleScatteringData

 Writes SingleScatteringData to an XML file.

    Internal function that should never be called directly.
    Use *xmlStore* instead.

 FORMAT   xmlWriteSingleScatteringData(fid, fidb, data, precision)

 IN    fid        File descriptor
 IN    fidb       File descriptor for binary file
 IN    data       SingleScatteringData
 IN    precision  Precision for floats

0001 % Writes SingleScatteringData to an XML file.
0002 %
0003 %    Internal function that should never be called directly.
0004 %    Use *xmlStore* instead.
0005 %
0006 % FORMAT   xmlWriteSingleScatteringData(fid, fidb, data, precision)
0007 %
0008 % IN    fid        File descriptor
0009 % IN    fidb       File descriptor for binary file
0010 % IN    data       SingleScatteringData
0011 % IN    precision  Precision for floats
0012 
0013 % 2005-03-15   Created by Oliver Lemke.
0014 
0015 function xmlWriteSingleScatteringData(fid, fidb, data, precision)
0016 
0017 xmlWriteTag (fid, 'SingleScatteringData', []);
0018 
0019 xmlWriteIndex (fid, fidb, data.ptype, precision);
0020 xmlWriteString (fid, fidb, data.description, precision);
0021 xmlWriteVector (fid, fidb, data.f_grid, precision);
0022 xmlWriteVector (fid, fidb, data.T_grid, precision);
0023 xmlWriteVector (fid, fidb, data.za_grid, precision);
0024 xmlWriteVector (fid, fidb, data.aa_grid, precision);
0025 xmlWriteTensor7 (fid, fidb, data.pha_mat_data, precision);
0026 xmlWriteTensor5 (fid, fidb, data.ext_mat_data, precision);
0027 xmlWriteTensor5 (fid, fidb, data.abs_vec_data, precision);
0028 
0029 xmlWriteCloseTag (fid, 'SingleScatteringData');
0030