0001 function varargout = radiationoff(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010 if ~evalin('base','exist(''THERING'')') | ~evalin('base','isglobal(THERING)');
0011 error('Global variable THERING could not be found');
0012 end
0013
0014 global THERING
0015
0016 localindex = findcells(THERING,'PassMethod','StrMPoleSymplectic4RadPass');
0017 THERING = setcellstruct(THERING,'PassMethod',localindex, 'StrMPoleSymplectic4Pass');
0018 totalswitched = length(localindex);
0019
0020 localindex = findcells(THERING,'PassMethod','BndMPoleSymplectic4RadPass');
0021 THERING = setcellstruct(THERING,'PassMethod',localindex, 'BndMPoleSymplectic4Pass');
0022 totalswitched = totalswitched + length(localindex);
0023
0024 disp(['PassMethod was changed to NOT include radiation in ',num2str(totalswitched), ' elements'])
0025 clear localindex