%**************************************************************************
%This function plots the field changes from the shims used to set the
%entrance and exit phase changes.
%
%Input:
%plt_file, plot file for results
%anal_name, name of the analysis
%pole_num, pole number
%dbrel_actual, dB/B actual
%
%Zachary Wolf, 4/21/07

function [] = shim_effect_plot_phasematch(plt_file, anal_name, pole_num, dbrel_actual)

%Plot the reference field
figure;
hold on;
plot(pole_num, dbrel_actual, 'r-', 'linewidth', 1.);
title(anal_name);
xlabel('Pole Number');
ylabel('dB / B');
legend('Actual', 'location', 'northwest');
grid on;
zoom on;
hold off;
util_print_fig(plt_file);

%Done
