%**************************************************************************
%This function writes the overall field integrals to the data file.
%
%Input:
%dat_file, data file for results
%i1x, int Bx dz at the end of the measurements (Tm)
%i2x, int int Bx dz dz at the end of the measurements (Tm^2)
%i1y, int By dz at the end of the measurements (Tm)
%i2y, int int By dz dz at the end of the measurements (Tm^2)
%
%Zachary Wolf, 6/22/10

function [] = int_dat_bxby_int(dat_file, i1x, i2x, i1y, i2y)

%Write the overall field integrals to the data file
fid = fopen(dat_file, 'a');
fprintf(fid, '\r\n');
fprintf(fid, 'Hall Probe Overall Field Integrals:\r\n');
fprintf(fid, 'Int Bx dz = %13.4e Tm\r\n', i1x);
fprintf(fid, 'Int Int Bx dz dz = %13.4e Tm^2\r\n', i2x);
fprintf(fid, 'Int By dz = %13.4e Tm\r\n', i1y);
fprintf(fid, 'Int Int By dz dz = %13.4e Tm^2\r\n', i2y);
fclose(fid);

%Done