RFOFO cooling ring with multipole fields

! nsections used for multiple turns

$cont npart=1000 nsections=10 varstep=.false. nprnt=-3 prlevel=1 
ntuple=.false. rtuple=.false. rtuplen=1 output1=.true. phasemodel=3
fsav=.false. fsavset=.true. izfile=140 bgen=.true.  $

 $bmt $
1 2 1. 1                                          
-0.010     0.019      0.         0.        0.      0.203
0.0425  0.0425    0.08      0.030    0.030  0.0  
1
10  0.229  0.  0.020
 $ints ldecay=.true.  declev=1  ldedx=.true. lstrag=.true. lscatter=.true.
  delev=2 straglev=4 scatlev=4  $
 $nhs  $
 $nsc nscat=1  $
0.065 1.3e-3 50 10 1   -0.10 1e-2 20 1 1
 $nzh nzhist=5 $
5 0.  0.01539  70  0. 0. 1
5 0.  0.01539  70  0. 0. 2
1 0. 0.03928 70 0. 0. 31
1 0. 0.03928 70 0. 0. 32
1 0. 0.03928 70 0. 0. 33
 $nrh nrhist=0 $
 $nem nemit=2 pxycorr=.true. pzcorr=.true. bzfldprd=3.5 $
 1 1322
 $ncv ncovar=2 $
 1 1322

SECTION
REFP
2  0.203  0. 0. 3

BEGS
CELL      !================= regular cell (30 deg for By=0.125 T)
12     !12
.FALSE.
BSOL                                    ! multipole field input
4. 56. 0.  3. 0.19040    1. 1. 1. 1. 1.   1. 1. 1. 1. 0.  

SREGION                                 ! WEDGE  FOR BEND X     
0.3  1  1e-3                                       !len nr dl
1  0.  0.18                                        !ir r1 r2
NONE
0.0  0.0  0.0  0.0  0.0    0.   0. 0. 0. 0.  0. 0. 0. 0. 0.
LH
WEDGE
100.  0.095  0.00  270.  0.4   0.4  0. 0. 0. 0.      !ANG RVERT ZVERT AZ DX DY

SREGION         !  DRIFT
0.085   1   1e-3
1 0     0.25
NONE
  0  0  0  0  0   0  0  0  0  0    0  0  0  0  0 
VAC
CBLOCK
  0  0  0  0  0    0  0  0  0  0

REPEAT
6
SREGION         ! RF 
0.33  1    1e-3
1  0.   0.25
ACCEL  !  acceleration   phase=25 dr=-0.0135
11.  201.25   12.  25.00  -0.0135     0. 0. 0. 0. 0.     0. 0. 0. 0. 0.
VAC
NONE
   0. 0. 0. 0. 0.   0. 0. 0. 0. 0.
ENDR

SREGION         !  DRIFT
0.085   1   1e-3
1 0     0.25
NONE
  0  0  0  0  0   0  0  0  0  0    0  0  0  0  0 
VAC
CBLOCK
  0  0  0  0  0    0  0  0  0  0

OUTPUT                                  ! generates postprocessor output

SREGION                        !-------------- WEDGE  FOR BEND X     
0.3  1  1e-3                                       !len nr dl
1  0.  0.18                                        !ir r1 r2
NONE
0.0  0.0  0.0  0.0  0.0    0.   0. 0. 0. 0.  0. 0. 0. 0. 0.
LH
WEDGE
100.  0.095  0.3  270.  0.4   0.4  0. 0. 0. 0.      !ANG RVERT ZVERT AZ DX DY
ENDCELL

ENDSECTION

BSOL
4. 55. 0.  3. -0.19040    1. 1. 1. 1. 1.   1. 1. 1. 1. 0.  

STUS
0. 82. 1.  0. 1.0   1. 0. 0. 0. 0.    0. 0. 0. 0. 0.  

STUS
0. 83. 1.  0. 1.0   1. 0. 0. 1. 0.    0. 0. 0. 0. 0.