%**************************************************************************
%This function writes a header to the data file.
%
%Input:
%dat_file, data file for results
%header, copy of the header in the input data file
%
%Zachary Wolf, 1/13/06

function [] = util_dat_header(dat_file, header)

%Open the data file
fid = fopen(dat_file, 'a');

%Write a title
fprintf(fid, '\r\n');
fprintf(fid, 'Data File Header:\r\n');

%Write the measurement data file header
[r, c] = size(header);
for ii = 1:c
    if length(header{ii}) > 1
        fprintf(fid, '%s\r\n', header{ii});
    end
end

%Close the data file
fclose(fid);

%Done
