%**************************************************************************
%This function writes a message to the data file.
%
%Input:
%dat_file, data file for results
%msg, message to write
%
%Zachary Wolf, 4/2/08

function [] = util_sim_dat_msg(dat_file, msg)

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

%Write the message
[r, c] = size(msg);
for ii = 1:c
    fprintf(fid, '%s\r\n', msg{ii});
end

%Close the data file
fclose(fid);

%Done
