ap: maxamp,x_max=0.013,y_max=0.013
ap1: maxamp,x_max=0.010,y_max=0.0025
ap2: maxamp,x_max=0.013,y_max=0.010
ap3: maxamp,x_max=0.013,y_max=0.007
ap4: maxamp,x_max=0.007,y_max=0.007
! Elliptical aperture offset in horizontal plane
MM:MARKER
MD:MARKER
MA:MARKER

Loct1=0.09
Loct2=0.09

!  Drifts

D1 : EDRIFT, L= 3.118400
D2 : EDRIFT, L= 0.11600
D3 : EDRIFT, L= 0.251000
D4 : EDRIFT, L= 0.089500 
D5 : EDRIFT, L= 0.089500
D6 : EDRIFT, L= 0.100700
D7 : EDRIFT, L= 0.6705000
D8 : EDRIFT, L= 0.099500
!D9A & D9B LENGTH = 0.145-Loct1/2
D9A : EDRIFT, L= 0.1
D9B : EDRIFT, L= 0.1 

D10 : EDRIFT, L= 0.0835 
D11 : EDRIFT, L= 0.494000 
D12 : EDRIFT, L= 0.100700
D13 : EDRIFT, L= 0.089500 
D14 : EDRIFT, L= 0.352000
D15 : EDRIFT, L= 0.115500 
D16 : EDRIFT, L= 0.120800
D17 : EDRIFT, L= 0.322500
D18 : EDRIFT, L= 0.253500
!DOCT LENGTH = 0.04500-Loct2/2
DOCT : EDRIFT, L=0.0

! Dipoles

BM1LGB1   : CSBEND,L=0.360000, ANGLE = 0.0088929895681367, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM1LGB2   : CSBEND,L=0.360000, ANGLE = 0.0071202648613477, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM1LGB3   : CSBEND,L=0.360000, ANGLE = 0.0055520201435968, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM1LGB4   : CSBEND,L=0.360000, ANGLE = 0.0052038436637905, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM1LGB5   : CSBEND,L=0.360000, ANGLE = 0.0047683871856704, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM2LGB1   : CSBEND,L=0.360000, ANGLE = 0.0034564967946614, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM2LGB2   : CSBEND,L=0.360000, ANGLE = 0.0049649445906878, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM2LGB3   : CSBEND,L=0.360000, ANGLE = 0.0070642782962259, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM2LGB4   : CSBEND,L=0.360000, ANGLE = 0.0077596355271406, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM2LGB5   : CSBEND,L=0.360000, ANGLE = 0.0112920754970024, K1 = 0.0000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM31   : CSBEND,L=1.0000, ANGLE = 0.0240561266122211, K1 = -1.8054710000000000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 
BM41   : CSBEND,L=0.8000, ANGLE = 0.0260356469131049, K1 = -1.0278610000000000, E1= 0.0000, E2= 0.0000, N_SLICES= 40 



!  Quadrupoles

Q1   : kquad, l = 0.30, k1 = 2.369472162611259, N_SLICES=40
Q2   : kquad, l = 0.250, k1 = -2.189620725872678, N_SLICES=40
Q3   : kquad, l = 0.20, k1 = -1.792151, N_SLICES=40
Q6   : kquad,  L= 0.250, K1= -2.279661, N_SLICES= 40

Q4   : CSBEND, L=0.20, ANGLE = -0.00084027131508015, K1 = 2.598000, E1= 0.0000, E2= 0.0000, N_SLICES= 40
Q5   : CSBEND, L=0.20, ANGLE = -0.0008551066137221018, K1 = 2.344433, E1= 0.0000, E2= 0.0000, N_SLICES= 40
Q7   : CSBEND,  L=0.450, ANGLE = -0.0015385950020956012385, K1 = 3.718301, E1= 0.0000, E2= 0.0000, N_SLICES= 40
Q8   : CSBEND, L=0.50, ANGLE = -0.001739953637898187, K1 = 3.722488, E1= 0.0000, E2= 0.0000, N_SLICES= 40

! Sextupoles

S1   : KSEXT,  L= 0.20, K2= -132.9331720, N_SLICES= 40
S2   : KSEXT,  L= 0.20, K2= 149.339720, N_SLICES= 40 
S3   : KSEXT,  L= 0.20, K2= -116.2165620, N_SLICES= 40 

FCHV1   : KSEXT,  L= 0.10, K2= 0.0000000000000000, N_SLICES= 40 
FCHV2   : KSEXT,  L= 0.10, K2= 0.0000000000000000, N_SLICES= 40 

!  Octopoles

!OXY3   : MULT,  L= 0.090000000000, ORDER= 3, KNL= -2535.06625455555556, N_SLICES= 40
!OXY4   : MULT,  L= 0.090000000000, ORDER= 3, KNL= 334.2735037777777778, N_SLICES= 40
OXY3   : koct, l=0.09, k3 = -15210.3975273333333333333333333, N_SLICES=40
OXY4   : koct, l=0.09, k3 = 2005.64102266666666666666666667, N_SLICES=40



rf: rfca,freq="9.598144e+02 6000 mev / beta.p c_mks * / rec 1600 *",volt=7.00e6,phase="180 2.76541554 7.00 / dasin -"

BPM: MONI
HCOR: HKICK,L=0.0
VCOR: VKICK,L=0.0
 

ICELL   : line = ( ap, D1, Q1, D2, FCHV1, D3, Q2, D4, BM1LGB1, &
                  BM1LGB2, BM1LGB3, BM1LGB4, BM1LGB5, D5, Q3, D6, S1, &
                  D7, Q4, D8, S2, D9A, OXY3, D9B, Q5, D11, DOCT, &
                  OXY4, DOCT, D10, S3, D12, Q6, D13, BM2LGB1, BM2LGB2, BM2LGB3, &
                  BM2LGB4, BM2LGB5, ap4, D14, Q7, D15, BM31, D16, Q8, &
                  D17, FCHV2, D18, BM41, D18, FCHV2, D17, Q8, &
                  D16, BM31, D15, Q7, D14, ap, BM2LGB5, BM2LGB4, BM2LGB3, &
                  BM2LGB2, BM2LGB1, D13, Q6, D12, S3, D10, DOCT, &
                  OXY4, DOCT, D11, Q5, D9B, OXY3, D9A, S2, D8, Q4, D7, S1, &
                  D6, Q3, D5, BM1LGB5, BM1LGB4, BM1LGB3, BM1LGB2, BM1LGB1, &
                  D4, Q2, D3, FCHV1, D2, Q1, D1 )


ring             : line = (32*ICELL)
w1: watch,filename="%s.wc",mode="coord",interval=1
w2: watch,filename="%s.wp",mode="param",flush_interval=1
sr: sreffects,qexcitation=0
ringrf: line=(ring,sr,rf)

USE,RINGRF

RETURN