%**************************************************************************
%This function outputs the K value to the data file.
%
%Input:
%dat_file, data file for results
%k, K value
%
%Zachary Wolf, 10/13/09

function [] = field_calc_dat_k(dat_file, k)

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

%Write the values to the data file
fprintf(fid, '\r\n');
fprintf(fid, 'K Value At y=0:\r\n');
fprintf(fid, 'K = %9.6f\r\n', k);

%Close the file
fclose(fid);

%Done
