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