%**************************************************************************
%This function plots the phase integral.
%
%Input:
%plt_file, plot file for results
%z, position along the undulator (m)
%phase_integral, phase integral along the undulator (T^2m^3)
%
%Zachary Wolf
%11/1/14

function [] = phase_plot_phase_integral(plt_file, z, phase_integral)

%Initialize
figure;
hold on;

%Plot the phase integral
plot(z, phase_integral, 'linewidth', 2.);

%Labels
title('Phase Integral');
ylabel('Phase Integral (T^2m^3)');
xlabel('Z (m)');

%Finalize
grid on;
zoom on;
hold off;

%Print
util_print_fig(plt_file);

%Done
