nd phase rotation with all matches  graded (2.15 ndm8) macros
 $cont npart=5000 nsections=1 timelim=500. bgen=.false.
 varstep=.true. nprnt=1 prlevel=-1 epsstep=1e-4 ntuple=.false.
 phasemodel=3 neighbor=.false. dectrk=.true. 
 fsav=.true. izfile=175  bunchcut=1. spin=.true. output1=.true.
 timelim=9999 $
 $bmt nbeamtyp=1 $
1 3 1. 1        ! 2ndary pion
0.     0.0      0.179      0.      0.      0.200  !mean: x y z px py pz
0.     0.       0.         0.0   0.0   0.     !sigs
0
 $ints ldecay=.true.  declev=1  ldedx=.true. lstrag=.true. lscatter=.true.
  delev=2 straglev=4 scatlev=4  $
 $nhs nhist=2  hauto=.true. hcprn=.false. $
-0.05 2e-3 50 1 1
-0.05 2e-3 50 2 1
 $nsc nscat=1  sauto=.true. $
-0.6e-9 3e-11 40 7 1    -0.050 5e-3 20 6 1
 $nzh nzhist=1 zhauto=.true. $
4  0. 0.02857 70 0 0.01 20 
 $nrh nrhist=0 $
 $nem nemit=10 pxycorr=.true. $
 1 5 10 15 20 25 30 35 40 45
 $ncv ncovar=1 $
 28
SECTION                                                            
REFP                                                            
3   .4   0.   0  3  ! 0   3 .115 0 22

CELL                                                            
1
\sheet %logical=.true. %model=3 %fileno=19 %gridz=0.02 %gridr=0.011 %longz=19 %rad=0.3 %cutoff=20 %inter=2 %fileout=80 %calc=0  !taper from 20 T to 1.25 T 
OUTPUT
\block %length=0.6 %stepsize=0.02 %rmax=0.10 %material=VAC  !
OUTPUT
\block %length=5.0 %stepsize=0.02 %rmax=0.30 %material=VAC  !
OUTPUT
\block %length=12.0 %stepsize=0.02 %rmax=0.30 %material=VAC ! 12 m drift  (17.6 m from start)
ENDCELL

CELL     !------------start fixed 1.25 T solenoid
1
\sol %logical1=.false. %bfield=1.25  
\block %length=18.0 %stepsize=0.02 %rmax=0.30 %material=VAC  !18 M DRIFT       
OUTPUT
\block %length=0.02 %stepsize=0.005 %rmax=0.30 %material=VAC  !
REPEAT    !==============  100 m  induction 1
5
\block %length=9.0 %stepsize=0.1 %rmax=0.30 %material=VAC  !   SPACER 9 M
\induc %length=2. %stepsize=0.02 %rmax2=0.3 %model=8 %timeoffset=0 %gap=0.2 %timereset=1 %fileno=50 %inter=2 %material=VAC
\block %length=9.0 %stepsize=0.1 %rmax=0.30 %material=VAC !   SPACER 9 m
ENDREPEAT
OUTPUT
\block %length=0.1 %stepsize=0.05 %rmax=0.30 %material=VAC !
ENDREPEAT
ENDCELL

CELL      !================== mini cool
1
\sheet %logical=.false. %model=3 %fileno=22 %gridz=0.2 %gridr=0.05 %longz=22 %rad=0.5 %cutoff=10.5 %inter=2 %fileout=81 %calc=0   
\block %length=3.3 %stepsize=0.03 %rmax=0.30 %material=VAC !
!jcg NEED AL WINDOW. DONE
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.30 %material=AL !Hydrogen window
\block %length=1.7 %stepsize=0.03 %rmax=0.30 %material=LH !1.2 (1.8) m  hydrogen
!jcg NEED AL WINDOW. DONE
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.30 %material=AL !Hydrogen window
REPEAT
5
\block %length=2. %stepsize=0.03 %rmax=1.0 %material=VAC !field reversal DO WE NEED 1 M RAD jcg
ENDREPEAT
!jcg NEED AL WINDOW. DONE
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.30 %material=AL !Hydrogen window
\block %length=1.8 %stepsize=0.003 %rmax=0.30 %material=LH !2.3 (.7) m hydrogen
!jcg NEED AL WINDOW. DONE
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.30 %material=AL !Hydrogen window
OUTPUT
\block %length=3.2 %stepsize=0.03 %rmax=0.30 %material=VAC !2.7 (3.8) m drift 
ENDCELL

REFP                                                            
3   .35   0.   0  3  ! 0   3 .115 0 22

CELL
1
\sol %logical1=.false. %bfield=-1.25  
OUTPUT
\block %length=120. %stepsize=0.1 %rmax=0.30 %material=VAC ! 120 m   DRIFT
REPEAT    !==========================   70 m induction 2
5
\block %length=7. %stepsize=0.1 %rmax=0.30 %material=VAC !
\induc %length=2. %stepsize=0.02 %rmax2=0.3 %model=8 %timeoffset=-20e-9 %gap=0.2 %timereset=1 %fileno=60 %inter=2  %material=VAC
\block %length=7. %stepsize=0.1 %rmax=0.30 %material=VAC !
ENDREPEAT
OUTPUT
\block %length=0.1 %stepsize=0.01 %rmax=0.30 %material=VAC !
!jcg NEXT IS A FAKE CAVITY TO PRODUCE 12 MEV ENERGY DECREASE; NO WINDOWS NEEDED
\pill-box %length=1.0 %stepsize=0.01942 %rmax3=0.3 %model=1. %RFfreq=0.01 %peakgrad=-12. %phase=-90. %material=VAC !decrease BY 12 MeV
ENDCELL

CELL   !=================================match to super fofo
1
!jcg NEW FILE 42; FROM RICK
\sheet %logical=.true. %model=3 %fileno=42 %gridz=0.02 %gridr=0.01 %longz=11.26 %rad=0.4 %cutoff=5 %inter=2 %fileout=82 %calc=0   
REPEAT
4
\block %length=2.75 %stepsize=0.005 %rmax=0.60 %material=VAC
ENDR
OUTPUT
\block %length=0.001 %stepsize=0.0005 %rmax=0.30 %material=VAC
ENDCELL

REFP                       
2   0.200   0.   5.7  3    !=============================buncher

CELL   !-------- 1 cell with 1 harmonic, 4 reg rf, 1 harmonic
1
\sheet %logical=.true. %model=3 %fileno=29 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5. %inter=2 %fileout=83 %calc=0  
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window
\pill-box %length=0.186 %stepsize=0.005 %rmax3=0.2 %model=2. %RFfreq=402.5 %peakgrad=-6.4 %phase=0 %material=VAC ! harmonic
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window
\block %length=0.443 %stepsize=5.e-3 %rmax=0.50 %material=VAC ! 1st free
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE ! rf window
REPEAT
4               !--------- 4 RF
\pill-box %length=0.3728 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=6.4 %phase=0 %material=VAC ! 
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE ! rf window
ENDR
\block %length=0.443 %stepsize=5.e-3 %rmax=0.50 %material=VAC ! 1st free
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window
\pill-box %length=0.186 %stepsize=0.005 %rmax3=0.2 %model=2. %RFfreq=402.5 %peakgrad=-6.4 %phase=0 %material=VAC ! harmonic
ENDCELL

CELL     ! one cell WITH WINDOW
1
!jcg HERE WE NEED TO ALTERNATE THE SIGN OF THE FIELD; INTRODUCE 24 
\sheet %logical=.true. %model=3 %fileno=24 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5. %inter=2 %fileout=0 %calc=0    
OUTPUT
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window
\block %length=2.75 %stepsize=1.e-3 %rmax=0.50 %material=VAC ! 
ENDCELL

CELL
7
\sheet %logical=.true. %model=3 %fileno=29 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5 %inter=2 %fileout=0 %calc=0   
\block %length=2.75 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT
ENDCELL    

CELL
2
\sheet %logical=.true. %model=3 %fileno=24 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5 %inter=2 %fileout=0 %calc=0    
OUTPUT
\block %length=2.75 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT
ENDCELL

CELL   !-------- 2ND RF
2
\sheet %logical=.true. %model=3 %fileno=24 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5 %inter=2 %fileout=0 %calc=0 
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window   
\pill-box %length=0.186 %stepsize=0.005 %rmax3=0.2 %model=2. %RFfreq=402.5 %peakgrad=-6. %phase=0 %material=VAC ! harmonic
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window 
\block %length=0.443 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE ! rf window 
REPEAT
4               !--------- 4 RF
\pill-box %length=0.3748 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=6.0 %phase=0 %material=VAC ! harmonic
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE ! rf window 
ENDR
\block %length=0.443 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window 
\pill-box %length=0.186 %stepsize=0.005 %rmax3=0.2 %model=2. %RFfreq=402.5 %peakgrad=-6.0 %phase=0 %material=VAC ! harmonic
ENDCELL

CELL     ! -------------- one cell WITH WINDOW
1
\sheet %logical=.true. %model=3 %fileno=24 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5. %inter=2 %fileout=0 %calc=0    
OUTPUT
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.20 %material=BE ! rf window 
\block %length=2.75 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT
ENDCELL

CELL
2
\sheet %logical=.true. %model=3 %fileno=29 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5.0 %inter=2 %fileout=0 %calc=0    
OUTPUT
\block %length=2.75 %stepsize=1.e-3 %rmax=0.50 %material=VAC !2nd DRIFT
ENDCELL

CELL   !==============================3RD RF
2
\sheet %logical=.true. %model=3 %fileno=29 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.62 %cutoff=5. %inter=2 %fileout=0 %calc=0
!jcg GRADIENT ZERO  
\pill-box %length=0.186 %stepsize=0.005 %rmax3=0.2 %model=2. %RFfreq=402.5 %peakgrad=0 %phase=0 %material=VAC ! harmonic dummy
!jcg NO NEED RF WINDOW 
\block %length=0.443 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT  
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE ! rf window 
REPEAT
4               !--------- 4 RF
\pill-box %length=0.3748 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=8.0 %phase=12. %material=VAC ! rf
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE ! rf window 
ENDR
\block %length=0.443 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT
!jcg GRADIENT IS ZERO
\pill-box %length=0.186 %stepsize=0.005 %rmax3=0.2 %model=2. %RFfreq=402.5 %peakgrad=0 %phase=0 %material=VAC ! harmonic DUMMY
!jcg NO NEED RF WINDOW 
ENDCELL

CELL     ! -------------- one cell WITH WINDOW  DUMMY
1
\sheet %logical=.true. %model=3 %fileno=29 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5.0 %inter=2 %fileout=0 %calc=0    
OUTPUT
\block %length=125.e-6 %stepsize=1.e-6 %rmax=0.25 %material=VAC ! rf window dummy
OUTPUT
\block %length=2.75 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1ST DRIFT 
ENDCELL

CELL
1
\sheet %logical=.true. %model=3 %fileno=24 %gridz=0.02 %gridr=0.02 %longz=2.8 %rad=0.65 %cutoff=5.0 %inter=2 %fileout=0 %calc=0    
OUTPUT
\block %length=2.75 %stepsize=1.e-3 %rmax=0.50 %material=VAC !3rd DRIFT 
ENDCELL

REFP                                                            
2   0.2   0.  0  3

CELL
4
\sheet %logical=.true. %model=3 %fileno=29 %gridz=0.01 %gridr=0.01 %longz=2.8 %rad=0.4 %cutoff=5. %inter=2 %fileout=84 %calc=0   ! cool t53
\block %length=0.001 %stepsize=1.e-4 %rmax=0.50 %material=VAC !dummy
! jcg NEED AL WINDOW. DONE
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.18 %material=AL !Hydrogen window
\block %length=0.175 %stepsize=1.e-3 %rmax=0.18 %material=LH !1/2 Hydrogen
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.18 %material=AL !Hydrogen window
\block %length=0.26735 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1st DRIFT 
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE ! RF GRADED BE
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window 
REPEAT
3
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=700.e-6 %stepsize1=1.e-6 %rmax1=0.14 %material1=VAC %inrad=0.14 %ourad=0.21 %material2=BE !
\block %length=700.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf wind
ENDR
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40 %material=VAC ! rf
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf window 
\block %length=0.26735 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1st DRIFT 
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.18 %material=AL !Hydrogen window
\block %length=0.175 %stepsize=1.e-3 %rmax=0.18 %material=LH !2nd absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC !dummy
ENDCELL

CELL
1
\sheet %logical=.true. %model=3 %fileno=71 %gridz=0.01 %gridr=0.01 %longz=5.7 %rad=0.4 %cutoff=5. %inter=2 %fileout=85 %calc=0 
\block %length=1.e-3 %stepsize=1.e-4 %rmax=0.5 %material=VAC !dummy
\block %length=0.175 %stepsize=1.e-3 %rmax=0.18 %material=LH !2nd absorber
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.18 %material=AL !Hydrogen window
\block %length=0.26735 %stepsize=1.e-3 %rmax=0.50 %material=VAC !1st DRIFT 
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE ! RF GRADED WIND BE
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window 
REPEAT
3
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=700.e-6 %stepsize1=1.e-6 %rmax1=0.14 %material1=VAC %inrad=0.14 %ourad=0.21 %material2=BE 
\block %length=700.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf window 
ENDR
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
!jcg NOTICE CHANGE 0.21====> 0.18
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window 
\block %length=0.26735 %stepsize=1.e-3 %rmax=0.5 %material=VAC !free 
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.18 %material=AL !H window 
\block %length=0.175 %stepsize=1.e-3 %rmax=0.18 %material=LH ! 2nd 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
\block %length=1.e-3 %stepsize=1.e-4 %rmax=0.5 %material=VAC ! dummy
\block %length=0.175 %stepsize=1.e-3 %rmax=0.18 %material=LH ! 2nd 1/2 absorber
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.18 %material=AL !H window 
\block %length=0.26735 %stepsize=1.e-3 %rmax=0.5 %material=VAC !free 
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window 
REPEAT
3
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=700.e-6 %stepsize1=1.e-6 %rmax1=0.14 %material1=VAC %inrad=0.14 %ourad=0.21 %material2=BE !
\block %length=700.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf window 
ENDR
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !RF GRADED WIND BE
!jcg NOTICE CHANGE 0.21====> 0.18
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window 
\block %length=0.26735 %stepsize=1.e-3 %rmax=0.5 %material=VAC !free 
\block %length=360.e-6 %stepsize=1.e-6 %rmax=0.18 %material=AL !H window 
\block %length=0.175 %stepsize=1.e-3 %rmax=0.18 %material=LH ! 2nd 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDCELL

CELL
4
\sheet %logical=.true. %model=3 %fileno=30 %gridz=0.01 %gridr=0.01 %longz=2.8 %rad=0.4 %cutoff=5.0 %inter=2 %fileout=86 %calc=0    !cool t52c
\block %length=0.175 %stepsize=1.e-3 %rmax=0.15 %material=LH ! 2nd 1/2 absorber
!jcg NOTICE 300 OR 360
\block %length=300.e-6 %stepsize=1.e-6 %rmax=0.15 %material=AL !H window
\block %length=0.26735 %stepsize=1.e-3 %rmax=0.5 %material=VAC !free 
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window 
REPEAT
3
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=700.e-6 %stepsize1=1.e-6 %rmax1=0.14 %material1=VAC %inrad=0.14 %ourad=0.21 %material2=BE !
\block %length=700.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf window
ENDR
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block %length=300.e-6 %stepsize=1.e-6 %rmax=0.15 %material=AL ! H wind
\block %length=0.175 %stepsize=1.e-3 %rmax=0.15 %material=LH ! 2nd 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDCELL

CELL
1
\sheet %logical=.true. %model=3 %fileno=72 %gridz=0.01 %gridr=0.01 %longz=5.7 %rad=0.4 %cutoff=5. %inter=2 %fileout=87 %calc=0   ! cool match 1,2 to 1,3
\block %length=0.175 %stepsize=1.e-3 %rmax=0.15 %material=LH ! 2nd 1/2 absorber
\block %length=300.e-6 %stepsize=1.e-6 %rmax=0.15 %material=AL ! H wind
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window
REPEAT
3
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
!jcg  NEED 700 MICRONS? 
\block2 %length1=700.e-6 %stepsize1=1.e-6 %rmax1=0.14 %material1=VAC %inrad=0.14 %ourad=0.21 %material2=BE !
\block %length=700.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf window
ENDR
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block %length=300.e-6 %stepsize=1.e-6 %rmax=0.15 %material=AL ! H wind
\block %length=0.175 %stepsize=1.e-3 %rmax=0.15 %material=LH ! 2nd 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
\block %length=0.175 %stepsize=1.e-3 %rmax=0.15 %material=LH ! 2nd 1/2 absorber
\block %length=300.e-6 %stepsize=1.e-6 %rmax=0.15 %material=AL ! H wind
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window
REPEAT
3
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=700.e-6 %stepsize1=1.e-6 %rmax1=0.14 %material1=VAC %inrad=0.14 %ourad=0.21 %material2=BE !
\block %length=700.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf window
ENDR
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block %length=300.e-6 %stepsize=1.e-6 %rmax=0.15 %material=AL ! H wind
\block %length=0.175 %stepsize=1.e-3 %rmax=0.15 %material=LH ! 1ST 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDCELL

CELL
4
\sheet %logical=.true. %model=3 %fileno=31 %gridz=0.01 %gridr=0.01 %longz=2.8 %rad=0.4 %cutoff=5. %inter=2 %fileout=88 %calc=0    !cool t51T
\block %length=0.175 %stepsize=1.e-3 %rmax=0.15 %material=LH ! 2nd 1/2 absorber
\block %length=260.e-6 %stepsize=1.e-6 %rmax=0.13 %material=AL ! H wind 
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window
REPEAT
3
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=700.e-6 %stepsize1=1.e-6 %rmax1=0.14 %material1=VAC %inrad=0.14 %ourad=0.21 %material2=BE !
\block %length=700.e-6 %stepsize=1.e-6 %rmax=0.21 %material=BE !rf window
ENDR
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.48 %phase=40. %material=VAC ! rf
\block2 %length1=200.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE !rf window
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block %length=260.e-6 %stepsize=1.e-6 %rmax=0.13 %material=AL ! 
\block %length=0.175 %stepsize=1.e-3 %rmax=0.13 %material=LH ! 1ST 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDCELL

CELL
1
\sheet %logical=.true. %model=3 %fileno=73 %gridz=0.01 %gridr=0.01 %longz=4.5 %rad=0.4 %cutoff=5. %inter=2 %fileout=89 %calc=0   !cool match 1,3 to 2,1  (t51u to s31u)
\block %length=0.175 %stepsize=1.e-3 %rmax=0.2 %material=LH ! 2nd 1/2 absorber
!jcg FIRST AL WIND IS 260 MICRO AND 0.13 M
\block %length=400.e-6 %stepsize=1.e-6 %rmax=0.2 %material=AL ! H window  
\block %length=0.26735 %stepsize=2.e-3 %rmax=0.5 %material=VAC !free
\block %length=250.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE ! rf wind
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=14. %phase=15. %material=VAC ! rf
!jcg FIRST BE WIND IS 250 MICRO
\block %length=500.e-6 %stepsize=1.e-6 %rmax=0.3 %material=BE !rf wind
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=14. %phase=15. %material=VAC ! rf
\block %length=500.e-6 %stepsize=1.e-6 %rmax=0.3 %material=BE !rf wind
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=14. %phase=15. %material=VAC ! rf 3
\block %length=500.e-6 %stepsize=1.e-6 %rmax=0.3 %material=BE !rf wind
\pill-box %length=0.4660 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=14. %phase=15. %material=VAC ! rf 4
\block %length=500.e-6 %stepsize=1.e-6 %rmax=0.3 %material=BE !rf wind
\block %length=0.21735 %stepsize=2.e-3 %rmax=0.5 %material=VAC ! 
\block %length=400.e-6 %stepsize=1.e-6 %rmax=0.5 %material=VAC !H  window    
\block %length=0.175 %stepsize=1.e-3 %rmax=0.5 %material=VAC ! 2nd 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.5 %material=VAC ! dummy
REPEAT
1
\block %length=0.105 %stepsize=1.e-3 %rmax=0.5 %material=VAC ! 1
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.5 %material=VAC ! H  window   
\block %length=0.2103 %stepsize=2.e-3 %rmax=0.5 %material=VAC !  1st  free
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.25 %material=BE !rf window    
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=14. %phase=15. %material=VAC ! rf 1
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.3 %material=BE ! rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=14. %phase=15. %material=VAC ! rf 2
\block %length=75.e-6 %stepsize=1.e-6 %rmax=0.3 %material=BE ! rf window
\block %length=0.1603 %stepsize=2.e-3 %rmax=0.5  %material=VAC !  free
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.2 %material=AL! hydrogen  window 
\block %length=0.105 %stepsize=1.e-3 %rmax=0.2  %material=LH !2nd 1/2 absorber  
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDREPEAT
ENDCELL

CELL
12
\sheet %logical=.true. %model=3 %fileno=32 %gridz=0.01 %gridr=0.01 %longz=1.7 %rad=0.4 %cutoff=5. %inter=2 %fileout=90 %calc=0    !cool s31t  3 rf cavity (2,1)
\block %length=0.105 %stepsize=3.e-3 %rmax=0.11 %material=LH !  1/2 HYDROGEN
\block %length=220.e-6 %stepsize=1.e-6 %rmax=0.11 %material=AL ! Hydrogen  window  
\block %length=0.16038 %stepsize=2.e-3 %rmax=0.5 %material=VAC ! 
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.15 %material=BE ! 
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=16.72 %phase=40. %material=VAC ! rf 1
\block2 %length1=350.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=350.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE ! 
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf 2
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100.e-6 %stepsize=1.e-6 %rmax=0.15 %material=BE !  rf window
\block %length=0.16038 %stepsize=2.e-3 %rmax=0.5 %material=VAC ! free
\block %length=220.e-6 %stepsize=1.e-6 %rmax=0.11 %material=AL !hydrogen wind  
\block %length=0.105  %stepsize=3.e-3 %rmax=0.11 %material=LH !2nd 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDCELL

CELL
1
\sheet %logical=.true. %model=3 %fileno=74 %gridz=0.01 %gridr=0.01 %longz=3.4 %rad=0.4 %cutoff=5. %inter=2 %fileout=91 %calc=0    !cool match 2,1 to 2,2
REPEAT
2
\block %length=0.105 %stepsize=3.e-3 %rmax=0.11 %material=LH ! 1/2 HYDROGEN
\block %length=220.e-6 %stepsize=1.e-6 %rmax=0.11 %material=AL !Hydrogen  window
\block %length=0.16038 %stepsize=2.e-3 %rmax=0.5 %material=VAC !  1st  free 
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100.e-6 %stepsize=5.e-6 %rmax=0.15 %material=BE !  rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=16.72 %phase=40. %material=VAC ! rf 1
\block2 %length1=350.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=350.e-6 %stepsize=10.e-6 %rmax=0.18 %material=BE ! rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf 2
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100.e-6 %stepsize=5.e-6 %rmax=0.15 %material=BE !  rf window
\block %length=0.16038  %stepsize=2e-3 %rmax=0.5 %material=VAC !  free
\block %length=220e-6 %stepsize=10e-6 %rmax=0.11 %material=AL !hydrogen  window 
\block %length=0.105 %stepsize=3e-3 %rmax=0.11 %material=LH ! 2nd 1/2 absorber 
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDREPEAT
ENDCELL

CELL
8
\sheet %logical=.true. %model=3 %fileno=35 %gridz=0.01 %gridr=0.01 %longz=1.7 %rad=0.4 %cutoff=5. %inter=2 %fileout=92 %calc=0    !cool s32t    3 rf cavity  (2,2)
\block %length=0.105 %stepsize=3e-3 %rmax=0.1 %material=LH !  1/2 HYDROGEN
\block %length=200e-6 %stepsize=10e-6 %rmax=0.1 %material=AL !Hydrogen  window
\block %length=0.1604  %stepsize=2e-3 %rmax=0.5 %material=VAC !1st  free
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100.e-6 %stepsize=50e-6 %rmax=0.15 %material=BE ! rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf
\block2 %length1=350.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=350.e-6 %stepsize=1.e-6 %rmax=0.18 %material=BE ! rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100.e-6 %stepsize=5.0e-6 %rmax=0.15 %material=BE ! rf window
\block %length=0.1604 %stepsize=2e-3 %rmax=0.5 %material=VAC ! free
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.1 %material=AL ! hydrogen  window
\block %length=0.105 %stepsize=3.e-3 %rmax=0.1 %material=LH ! 1ST 1/2 absorber
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDCELL

CELL    
1
\sheet %logical=.true. %model=3 %fileno=75 %gridz=0.01 %gridr=0.01 %longz=3.4 %rad=0.4 %cutoff=5. %inter=2 %fileout=94 %calc=0    !cool MATCH 2,2 TO 2,3
REPEAT
2
\block %length=0.105  %stepsize=3.e-3 %rmax=0.1 %material=LH !2ND 1/2 HYDROGEN
\block %length=200.e-6 %stepsize=1.e-6 %rmax=0.1 %material=AL !Hydrogen  window
\block %length=0.1604 %stepsize=2.e-3 %rmax=0.5 %material=VAC !1st  free
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100e-6 %stepsize=5e-6 %rmax=0.15 %material=BE ! rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf 1
\block2 %length1=350.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=350e-6  %stepsize=10e-6 %rmax=0.18 %material=BE !  rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf 2
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100.e-6 %stepsize=5.0e-6 %rmax=0.15 %material=BE ! rf window
\block %length=0.1604  %stepsize=2e-3 %rmax=0.5 %material=VAC ! free
\block %length=200e-6 %stepsize=1.0e-6 %rmax=0.1 %material=AL ! hydrogen  window 
\block %length=0.105 %stepsize=3e-3 %rmax=0.1 %material=LH ! 1ST 1/2 absorber 
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDREPEAT
ENDCELL

CELL
20
\sheet %logical=.true. %model=3 %fileno=33 %gridz=0.01 %gridr=0.01 %longz=1.7 %rad=0.4 %cutoff=5 %inter=2 %fileout=95 %calc=0   !cool s33U part1 (2,3)
!jcg RADIUS IS 0.1 v 0.09 
\block %length=0.105 %stepsize=3e-3 %rmax=0.09 %material=LH !  1/2 HYDROGEN 
\block %length=180e-6 %stepsize=1.0e-6 %rmax=0.09 %material=AL !Hydrogen  window 
\block %length=0.16047  %stepsize=2e-3 %rmax=0.5 %material=VAC ! 1st  free 
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100e-6 %stepsize=5.0e-6 %rmax=0.15 %material=BE !rf window 
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf  1
\block2 %length1=350.e-6 %stepsize1=1.e-6 %rmax1=0.12 %material1=VAC %inrad=0.12 %ourad=0.18 %material2=BE !
\block %length=350e-6 %stepsize=10.0e-6 %rmax=0.18 %material=BE ! rf window
\pill-box %length=0.5592 %stepsize=0.005 %rmax3=0.65 %model=2. %RFfreq=201.25 %peakgrad=15.84 %phase=40. %material=VAC ! rf 2
\block2 %length1=100.e-6 %stepsize1=1.e-6 %rmax1=0.10 %material1=VAC %inrad=0.10 %ourad=0.15 %material2=BE !
\block %length=100e-6 %stepsize=50e-6 %rmax=0.15 %material=BE ! rf window 
\block %length=0.16047 %stepsize=2e-3 %rmax=0.5 %material=VAC ! FREE
\block %length=180e-6 %stepsize=1.0e-6 %rmax=0.09 %material=AL !  hydrogen  window   
\block %length=0.105  %stepsize=3e-3 %rmax=0.09 %material=LH !2nd 1/2 absorber 
!jcg NEED AL WIND:  DONE
\block %length=180e-6 %stepsize=1.0e-6 %rmax=0.09 %material=AL !hydrogen window
OUTPUT
\block %length=1.e-4 %stepsize=1.e-5 %rmax=0.25 %material=VAC ! dummy
ENDCELL
ENDSECTION

\def sheet
%logical
SHEET
%model %fileno %gridz %gridr %longz %rad %cutoff %inter %fileout %calc 0 0 0 0 0
\enddef


\def block
SREGION
%length 1 %stepsize
1 0 %rmax(1.0)
NONE
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0. 
%material
CBLOCK
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0. 
\enddef

\def block2
SREGION
%length1 2 %stepsize1
1 0 %rmax1(1.0)
NONE
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0. 
%material1
CBLOCK
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0.
2 %inrad %ourad 
NONE
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0. 
%material2
CBLOCK
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0. 
\enddef


\def induc
SREGION
%length 1 %stepsize
1 0 %rmax2(1.0)
ACCEL
%model %timeoffset %gap %timereset %fileno %inter  0. 0. 0. 0. 0. 0. 0. 0. 0.
%material
CBLOCK
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0. 
\enddef

\def pill-box
SREGION
%length 1 %stepsize
1 0 %rmax3(1.0)
ACCEL
%model %RFfreq %peakgrad %phase 0. 0. 0. 0. 0. 0. 0. 0. 0. 0. 0.
%material
NONE
0. 0. 0. 0. 0. 0. 0. 0. 0. 0.  0. 0. 0. 0. 0.
\enddef  

\def sol
%logical1
SOL
1 0 0 0 %bfield 0 0 0 0 0 0 0 0 0 0
\enddef