%**************************************************************************
%This function calculates the phase difference between the light and the
%electrons in an undulator.
%
%Input:
%lambda_r, radiation wavelength (m)
%slip, slippage distance between light and electrons (m)
%
%Output:
%phase, phase angle between the light wave and the electron oscillation (rad)
%
%Zachary Wolf, 4/1/04, 6/28/10

%Calculations
%
%Phase:
%phase = (2 pi / lambda_r) slip

function [phase] = phase_calc_phase(lambda_r, slip)

%Calculate the phase
phase = (2 * pi / lambda_r) * slip;

%Done
