!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.375
D52   : drift, l = 0.110
D53   : drift, l = 0.120
D54A   : drift, l = 0.155
D54B   : drift, l = 0.350

D21A  : drift, l = 0.101
D21B  : drift, l = 0.100
D24   : drift, l = 0.695
D25   : drift, l = 0.100
D26   : drift, l = 0.110
D271   : drift, l = 0.100
D272   : drift, l = 0.477
D28   : drift, l = 0.100
D29   : drift, l = 0.117
D13   : drift, l = 0.101
D11A  : drift, l = 3.000

D12A  : drift, l = 0.147
D12B  : drift, l = 0.1742


Q1       : kquad, l = 0.300000, k1 = +2.3361, n_slices=15,integration_order=6
Q2       : kquad, l = 0.250000, k1 = -2.236424, n_slices=15,integration_order=6 
Q3       : kquad, l = 0.150000, k1 = -2.062127, n_slices=15,integration_order=6 
Q4       : kquad, l = 0.200000, k1 =  2.7000, n_slices=15,integration_order=6 
Q5       : kquad, l = 0.200000, k1 =  2.49463, n_slices=15,integration_order=6
Q6       : kquad, l = 0.250000, k1 = -2.515848, n_slices=15,integration_order=6 
Q7       : kquad, l = 0.4500000, k1 =  3.818753, n_slices=15,integration_order=6 
Q8       : kquad, l = 0.500000, k1 =  3.670545, n_slices=15,integration_order=6 


B1       : csbend, l=1.8,angle=0.0305,k1=-0.000000,e1=0.0000000,e2=0.0000000,n_slices=15,integration_order=6
B2       : csbend, l=1.8,angle=0.0305,k1=-0.000000,e1=0.0000000,e2=0.0000000,n_slices=15,integration_order=6
B3       : csbend, l=1.0,angle =0.0288,k1=-1.814951,e1=0.0000000,e2=0.0000000,n_slices=15,integration_order=6
B41       : csbend, l=0.4,angle =0.0083,k1=-1.054558,e1=0.0000000,e2=0.0000000,n_slices=15,integration_order=6
 
S11      : ksext, l = 0.1, k2 = -81.89, n_slices=10,integration_order=6
S22      : ksext, l = 0.1, k2 = +93.396, n_slices=10,integration_order=6
S33      : ksext, l = 0.1, k2 = -66.73, n_slices=10,integration_order=6
SH1      : ksext, l = 0.1, k2 = 0, n_slices=10,integration_order=6
SH2      : ksext, l = 0.1, k2 = 0, n_slices=10,integration_order=6


OXY      : koct, l=0.09, k3 = 1.3333e4 , n_slices=10,integration_order=6

RF: rfca,freq="9.3582e+02 6000 mev / beta.p c_mks * / rec 1560 *",volt=7.00e6,phase="180 2.3762 7.00 / dasin -"
!RF     : RFCA, FREQ=4.9975E+08, VOLT=7E+06, PHASE=170
!RF     : RFCA, FREQ=100E+06, 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", interval=1
W2: watch,filename="%s.w2",mode="parameters", interval=1
W3: watch,filename="%s.w3",mode="centroid", interval=1


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


D1KA: drift, l=2.40
D1KB: drift, l=0.2

PSMK: mbumper,l=0.4,n_kicks=20,order=2,waveform="psmkick.sdds=t+A",fire_on_pass=0

AP1: MAXAMP,X_MAX=0.013,Y_MAX=0.013, elliptical=1  ! Aperture for B1, B2, Q1-Q6, S1-S3 & OXY
AP2: MAXAMP,X_MAX=0.007,Y_MAX=0.007,elliptical=1  ! Aperture for B3, B4, Q7, Q8
APID: MAXAMP,X_MAX=0.013,Y_MAX=0.005,elliptical=1 ! Aperture for ID in straight section 
APINJ: MAXAMP,X_MAX=0.015,Y_MAX=0.015, elliptical=1  ! Aperture for injection straight 

INJOFFSET: MALIGN,DX=0.0,ON_PASS=0


ICELL   : line=( D11A, BPM, AP1, Q1, D12A, SH1, CH, CV, D12B, Q2, D13, B1, &
       		D21A, Q3, D21B, S11, S11, CH, CV, D24, BPM, Q4, D25, S22, S22, CH, CV, &
       		D26, Q5, D271, OXY,BPM, D272, S33, S33, CH, CV, D28, Q6, D29, &
       		B2, D51, AP2, Q7, D52, B3, BPM, D53, Q8, CH, CV, D54A, SH2, D54B, BPM, &
       		B41, B41, BPM, D54B, SH2, D54A, CH, CV, Q8, D53, BPM, B3, D52, Q7, D51, AP1, &
       		B2, D29, Q6, D28, CH, CV, S33, S33, D272, BPM, OXY, D271, Q5, D26, &
       		CH, CV, S22, S22, D25, Q4, BPM, D24, CH, CV, S11, S11, D21B, Q3, D21A, &
       		B1, D13, Q2, D12B, SH1, CH, CV, D12A, Q1, BPM, APID, D11A)

ICELL1   : line=( D11A, BPM, AP1, Q1, D12A, SH1, CH, CV, D12B, Q2, D13, B1, &
       		D21A, Q3, D21B, S11, S11, CH, CV, D24, BPM, Q4, D25, S22, S22, CH, CV, &
       		D26, Q5, D271, OXY,BPM, D272, S33, S33, CH, CV, D28, Q6, D29, &
       		B2, D51, AP2, Q7, D52, B3, BPM, D53, Q8, CH, CV, D54A, SH2, D54B, BPM, &
       		B41, B41, BPM, D54B, SH2, D54A, CH, CV, Q8, D53, BPM, B3, D52, Q7, D51, AP1, &
       		B2, D29, Q6, D28, CH, CV, S33, S33, D272, BPM, OXY, D271, Q5, D26, &
       		CH, CV, S22, S22, D25, Q4, BPM, D24, CH, CV, S11, S11, D21B, Q3, D21A, &
       		B1, D13, Q2, D12B, SH1, CH, CV, D12A, Q1, BPM, D1KB, PSMK, D1KA)


ICELL32   : line=( D11A, BPM, AP1, Q1, D12A, SH1, CH, CV, D12B, Q2, D13, B1, &
       		D21A, Q3, D21B, S11, S11, CH, CV, D24, BPM, Q4, D25, S22, S22, CH, CV, &
       		D26, Q5, D271, OXY,BPM, D272, S33, S33, CH, CV, D28, Q6, D29, &
       		B2, D51, AP2, Q7, D52, B3, BPM, D53, Q8, CH, CV, D54A, SH2, D54B, BPM, &
       		B41, B41, BPM, D54B, SH2, D54A, CH, CV, Q8, D53, BPM, B3, D52, Q7, D51, AP1, &
       		B2, D29, Q6, D28, CH, CV, S33, S33, D272, BPM, OXY, D271, Q5, D26, &
       		CH, CV, S22, S22, D25, Q4, BPM, D24, CH, CV, S11, S11, D21B, Q3, D21A, &
       		B1, D13, Q2, D12B, SH1, CH, CV, D12A, Q1, BPM, APID, D11A, SEPTUM)


!RINGP             : line = (32*ICELL)
RING              : line =(ICELL1,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, ICELL32) 

RINGRF: line=(INJOFFSET,RING,SR,RF,W1,W2,W3)

	 

RETURN