! actual length of ring
! L = 2304 m (2304/25.2 = 91.43)
! Ncell = 23
!
dring:drift,l="25.2 92 *"
!
! ILMATRIX element
! 21/07/2017: H7BA_2520cm.lte
!
1sector:ILMATRIX,L="25.2 1 *", cross_resonance=1,&
 nux="2.375",nux1m=0.0, nux2m=0.0, nux3m=0.0,&
 nuy="0.875",nuy1m=0.0, nuy2m=0.0, nuy3m=0.0,&
 betax=6.60e+00, alphax=0.0, etax=0.00e+00, etapx=0.0,& 
 betay=2.10e+00, alphay=0.0, etay=0.00e+00, etapy=0.0,& 
 betax1m= 0.000e+00, alphax1m=0.0, etax1=0.0, etapx1=0.0,&
 betay1m=-0.000e+00, alphay1m=0.0, etay1=0.0, etapy1=0.0,&
 alphac=2.084974e-05, alphac2=4.152670e-05,&
 nux1ax=0.0, nux1ay=0.0, nuy1ax=0.0, nuy1ay=0.0

1quarter:ILMATRIX,L="25.2 92 * 4 /", cross_resonance=1,&
 nux="2.375 92 * 4 / 0.001 +",nux1m=0.0, nux2m=0.0, nux3m=0.0,&
 nuy="0.875 92 * 4 / 0.001 +",nuy1m=0.0, nuy2m=0.0, nuy3m=0.0,&
 betax=6.89e+00, alphax=0.0, etax=4.33e-02, etapx=0.0,& 
 betay=2.05e+00, alphay=0.0, etay=0.00e+00, etapy=0.0,& 
 betax1m= 0.000e+00, alphax1m=0.0, etax1=0.0, etapx1=0.0,&
 betay1m=-0.000e+00, alphay1m=0.0, etay1=0.0, etapy1=0.0,&
 alphac=5.620e-05, alphac2=0.000e+00,&
 nux1ax=0.0, nux1ay=0.0, nuy1ax=0.0, nuy1ay=0.0

!
! rf cavities
!

rf1: rfca, l=0, volt=4.0e6, freq="c_mks 25.2 92 * / 3866 * 0.93772 -",phase="180 1.9688e6 4.0e6 / dasin -"

!
! radiation element
!
sr:sreffect,pref=" 13698.630137 6e9 7e9 / *",jx=1.496251,jy=1,jdelta=1.503749,&
    exref=17.6e-12,eyref=17.6e-14,sdeltaref=0.06825917e-2,ddeltaref="-1.9688e6 6e9 /",&
    fraction=1,damping=1,losses=1,qexcitation=1
!
! aperture
!

aper8mm: rcol,l=0,x_max=20e-3,y_max=4.0e-3,open_side="+x"
aper5mm: ecol,l=0,x_max=15e-3,y_max=2.5e-3,open_side="+x"
aperdyn: rcol,l=0,x_max=3.0e-3,y_max=1.5e-3
!aperdyn: ecol,l=0,x_max=15e-3,y_max=2.0e-3,dx=-5.0e-3,dy=0.0

!
! special element
!
rc:recirc
mal:malign,on_pass=0,dx=0.2e-3,dy=0.2e-3,de=0
!mal:malign,on_pass=0,dx=0.0e-3,dy=0.0e-4,de=0
Tcharge: charge, total=1e-9
w2: watch, filename="%s.w2", mode="coordinate", interval=100
w3: watch, filename="%s.w3", mode="parameter",flush_interval=1

ring_cell: line=(1sector)
ring_bare: line=(Tcharge,mal,w3,w2,1quarter,sr,rf1,1quarter,1quarter,1quarter)

RETURN