%**************************************************************************
%This function writes effective length information to the data file.
%
%Input:
%dat_file, data file for results
%l_eff, effective length calculated from the phase integral (m)
%
%Zachary Wolf
%11/1/14

function [] = phase_dat_effective_length(dat_file, l_eff)

%Write the results to the data file
fid = fopen(dat_file, 'a');
fprintf(fid, '\r\n');
fprintf(fid, 'Effective Length:\r\n');
fprintf(fid, 'Leff = %10.6f m\r\n', l_eff);
fclose(fid);

%Done
