!ap: maxamp,x_max=0.010,y_max=0.010
! Elliptical aperture offset in horizontal plane
AP: MAXAMP,X_MAX=0.013,Y_MAX=0.010,ELLIPTICAL=1
MM:MARKER
MD:MARKER
MA:MARKER
D51   : drift, l = 0.117
D52   : drift, l = 0.120
D53   : drift, l = 0.120
D54   : drift, l = 0.3061
D55A  : drift, l = 0.063032
D55B  : drift, l = 0.063032
DW    : drift, l = 0.075000
D21A  : drift, l = 0.117
D21B  : drift, l = 0.100
D24   : drift, l = 0.418804
D25   : drift, l = 0.110
D26   : drift, l = 0.110
D271   : drift, l = 0.109
D272   : drift, l = 0.184
D28   : drift, l = 0.100
D29   : drift, l = 0.117
D13   : drift, l = 0.117
D11A  : drift, l = 3.11786
D11B  : drift, l = 0.100
D12A  : drift, l = 0.100
D12B  : drift, l = 0.1435
DSH1  : drift, l = 0.120
DSH2  : drift, l = 0.150

Q1       : kquad, l = 0.300000, k1 = +2.39426, n_slices=5,integration_order=6
Q2       : kquad, l = 0.300000, k1 = -2.02495, n_slices=5,integration_order=6 
Q3       : kquad, l = 0.200000, k1 = -1.731155, n_slices=5,integration_order=6 
Q4       : kquad, l = 0.300000, k1 =  1.881102, n_slices=5,integration_order=6 
Q5       : kquad, l = 0.300000, k1 =  1.966286, n_slices=5,integration_order=6
Q6       : kquad, l = 0.250000, k1 = -2.771466, n_slices=5,integration_order=6 
Q7       : kquad, l = 0.500000, k1 =  3.260706, n_slices=5,integration_order=6 
Q8       : kquad, l = 0.600000, k1 =  3.520153, n_slices=5,integration_order=6 


B1       : csbend, l=1.8,angle=0.0304,k1=-0.000000,e1=0.0000000,e2=0.0000000,n_slices=5,integration_order=6
B2       : csbend, l=1.8,angle=0.0304,k1=-0.000000,e1=0.0000000,e2=0.0000000,n_slices=5,integration_order=6
B3       : csbend, l=1.0,angle =0.0252,k1=-1.713598,e1=0.0000000,e2=0.0000000,n_slices=5,integration_order=6
B4       : csbend, l=0.8,angle =0.0244,k1=-1.654527,e1=0.0000000,e2=0.0000000,n_slices=5,integration_order=6
 
S1      : ksext, l = 0.25, k2 = -135.4404, n_slices=5,integration_order=6
S2      : ksext, l = 0.25, k2 = +197.8939, n_slices=5,integration_order=6
S3      : ksext, l = 0.25, k2 = -150.4, n_slices=5,integration_order=6


OXY      : koct, l=0.09, k3 = 1.6668e4 , n_slices=5,integration_order=6

RF: rfca,freq="9.1182490e+02 6000 mev / beta.p c_mks * / rec 1520 *",volt=7.00e6,phase="180 2.3762 7.00 / dasin -"
!RF     : RFCA, FREQ=4.9975E+08, VOLT=7E+06, PHASE=170
!SR     : SREFFECTS,QEXCITATION=1
SR     : SREFFECTS

BPM: MONI
CH: HKICK
CV: VKICK
 

!100 mA corresponds to 304 nC
q: charge,total=304e-9 !An element to establish the total charge of a beam

!bunch 1
W1: watch,filename="%s.w1",mode="coord"

W2: watch,filename="%s.w2",mode="parameters", flush_interval=1

!OUTERAP: SCRAPER,POSITION=1,INSERT_FROM="+X"
!INNERAP: SCRAPER,POSITION=-1,INSERT_FROM="-X"

SEPTUM1: SCRAPER,POSITION=-1,INSERT_FROM="-X"
SEPTUM2: SCRAPER,POSITION=1,INSERT_FROM="+X"
SEPTUM: LINE=(SEPTUM1,SEPTUM2)


D1KA: drift, l=2.50786
D1KB: drift, l=0.2
D110: drift, l=0.010



ICELL   : line=( D11A, BPM, Q1, D12A, CH, CV, DSH2, D12B, Q2, D13, B1, &
       		D21A, Q3, D21B, S1, CH, CV, D24, BPM, Q4, D25, S2, CH, CV, &
       		D26, Q5, D271, OXY,BPM, D272, S3, CH, CV, D28, Q6, D29, &
       		B2, D51, Q7, D52, B3, BPM, D53, Q8, CH, CV, D54, BPM, &
       		B4, BPM, D54, CH, CV, Q8, D53, BPM, B3, D52, Q7,D51, &
       		B2, D29, Q6, D28, CH, CV, S3, D272, BPM, OXY, D271, Q5, D26, &
       		CH, CV, S2, D25, Q4, BPM, D24, CH, CV, S1, D21B, Q3, D21A, &
       		B1, D13, Q2, D12B, DSH2, CH, CV, D12A, Q1, BPM, D11A)


!RINGP             : line = (32*ICELL)
RING              : line =(ICELL,ICELL,ICELL,ICELL,ICELL,ICELL,ICELL,ICELL, ICELL, &
                           ICELL, ICELL, ICELL,ICELL,ICELL,ICELL,ICELL,ICELL,ICELL, &
                           ICELL,ICELL,ICELL,ICELL,ICELL,ICELL,ICELL,ICELL,ICELL,ICELL, &
                           ICELL, ICELL, ICELL, ICELL) 

!RINGRF: line=(RING,sr,rf)


ILM_4SECT: ILMATRIX,L=91.18,NUX=7.615,NUY=2.721,NUX1M=0.0,NUY1M=0.0,&
	 BETAX=11.61,BETAY=3.846,ALPHAX=-2.76E-14,ALPHAY=4.77e-15,&
	 ETAX=0.0,ETAY=0.0,ETAPX=6.9E-17,ALPHAC=0.00008,ALPHAC2=0.0

d0: drift,l=0
GB: line=(d0)

!ion0: mark

ion0: IONEFFECTS,x_span=0.010,y_span=0.010,macro_ions=100

RECIRC: RECIRC
!Bunch 1 is wp00
wp00: watch,filename="%s.wp00",mode="param",start_pid=1,end_pid=100, flush_interval=1

wp701: watch,filename="%s.wp701",mode="param",start_pid=70001,end_pid=70100, flush_interval=1


!RING_ILM10: LINE=(q,RECIRC,wp00,wp701,&
!	    ion0,ILM_4SECT,ion0,ILM_4SECT,ion0,ILM_4SECT,ion0,ILM_4SECT,&
!	    ion0,ILM_4SECT,ion0,ILM_4SECT,ion0,ILM_4SECT,ion0,ILM_4SECT,&
!	    ion0,ILM_4SECT,ion0,ILM_4SECT,AP)

RING_ILM10: LINE=(q,RECIRC,wp00,wp701,&
	    ILM_4SECT,ILM_4SECT,ILM_4SECT,ILM_4SECT,&
	    ion0,ILM_4SECT,ILM_4SECT,ILM_4SECT,ILM_4SECT,&
	    ILM_4SECT,ILM_4SECT,AP)
	 

RETURN