{*******************************}
{*                             *}
{*  SOLEIL Storage Ring        *}
{*  The IDEAL LATTICE updated  *}
{*                             *}
{*                             *}
{* 02/06/08 Laurent Nadolski   *}
{* maille BETA amor_test4.str  *}
{*                             *}
{* QUAD coupes en 2            *}
{* SEPTUM sur 70 cm coupe en 4 *}
{* SD moyenne coupee en        *}
{* troncons de 20 cm           *}
{* Long sextupoles             *}
{*                             *}
{* AJOUT +/- 2.5mm in vaccuum  *}
{*         undulator           *}
{*******************************}

define lattice;

intmeth= 4;
driftkick = 2;
ringtype=1;

{***** System parameters *****}
Energy= 2.739;    { GeV }
dP    = 1.0d-10;
CODeps= 1.0d-15;

{***** drift space *****}

 SD1  : drift, L= 6.000000-0.0201;
 SD1a : drift, L= 0.900000;
 SD1b : drift, L= 4.300000;
 SD1c : drift, L= 3.700000;
 SD1d : drift, L= 0.800000-0.0201;
 SEP  : drift, L= 0.200000;
 SD2  : drift, L= 0.390000-0.08-0.0201;
 SD3  : drift, L= 0.200000-0.08-0.0181;
 SD4  : drift, L= 0.390000-0.08-0.0181;
 SD5  : drift, L= 0.200000-0.08-0.0201;
 SD6  : drift, L= 0.790000-0.08;
 SD7  : drift, L= 0.440000-0.0201;
 SD8  : drift, L= 0.200000-0.08-0.0201;
 SD9  : drift, L= 0.476340-0.08-0.0201;
 SD10 : drift, L= 0.470000-0.08-0.0201;
 SD12 : drift, L= 0.470000-0.08-0.0201;
 SD13 : drift, L= 3.48255-0.0201;
 SD13a: drift, L= 0.200000;
 SD13b: drift, L= 0.150000;
 SD13c: drift, L= 0.732550-0.0201;
 SD14 : drift, L= 0.590000-0.0181-0.0201;
 SDAC : drift, L= 1.904680;
 SDAC3 : drift, L= 1.904680-0.08;
 SDAC1: drift, L= 1.004680;
 SDAC4: drift, L= 1.004680-0.08;
 SDAC2: drift, L= 0.200000;
 SDACm: drift, L= 1.904680-1.80/2;

{** Quadrupole **}
Nq=8/2; {Number of slices}
dgsurg=1.00;
dgsurgL=1.00;
quadfringe=1.0;
LQC=0.3602;
LQL=0.4962;

QP1a : quadrupole, L=LQC/2,K= -1.073038*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP2a : quadrupole, L=LQL/2,K=  1.603455*dgsurgL,  FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP3a : quadrupole, L=LQC/2,K= -0.649160*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP4a : quadrupole, L=LQC/2,K= -1.259864*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP5a : quadrupole, L=LQC/2,K=  1.696440*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP6a : quadrupole, L=LQC/2,K= -1.007805*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP7a : quadrupole, L=LQL/2,K=  2.084913*dgsurgL,  FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP8a : quadrupole, L=LQC/2,K= -1.551946*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP9a : quadrupole, L=LQC/2,K= -1.510915*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;
QP10a: quadrupole, L=LQC/2,K=  1.756880*dgsurg,   FF1=quadfringe, FF2=0, method=intmeth,N=Nq;

QP1b : quadrupole, L=LQC/2,K= -1.073038*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP2b : quadrupole, L=LQL/2,K=  1.603455*dgsurgL,  FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP3b : quadrupole, L=LQC/2,K= -0.649160*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP4b : quadrupole, L=LQC/2,K= -1.259864*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP5b : quadrupole, L=LQC/2,K=  1.696440*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP6b : quadrupole, L=LQC/2,K= -1.007805*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP7b : quadrupole, L=LQL/2,K=  2.084913*dgsurgL,  FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP8b : quadrupole, L=LQC/2,K= -1.551946*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP9b : quadrupole, L=LQC/2,K= -1.510915*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;
QP10b: quadrupole, L=LQC/2,K=  1.756880*dgsurg,   FF1=0, FF2=quadfringe, method=intmeth,N=Nq;

{** quad split into two parts **}
Q1 : QP1a,QP1b;
Q2 : QP2a,QP2b;
Q3 : QP3a,QP3b;
Q4 : QP4a,QP4b;
Q5 : QP5a,QP5b;
Q6 : QP6a,QP6b;
Q7 : QP7a,QP7b;
Q8 : QP8a,QP8b;
Q9 : QP9a,QP9b;
Q10: QP10a,QP10b;


{** bending **}
beta_gap=37e-3;
tracy_gap=beta_gap*2*0.724;

 BEND1 : bending, L= 1.05243, T= 11.25, T1=5.5906, T2=5.67658, K=0.00204, N=4,
        method=intmeth,gap=tracy_gap;

 BEND2 : bending, L= 1.052436/6, T= 11.25/6, T1=5.5906, T2=0.000, K=0.00204, N=4,
        method=intmeth,gap=tracy_gap;
 BEND3 : bending, L= 1.052436/6, T= 11.25/6, T1=0.000, T2=0.000, K=0.00204, N=4,
        method=intmeth;
 BEND4 : bending, L= 1.052436/6, T= 11.25/6, T1=0.000, T2=5.67658, K=0.00204, N=4,
        method=intmeth,gap=tracy_gap;

 BEND:  BEND2,4*BEND3,BEND4;


NqSx=1; {Number of slices}

{** Sextupole **}
coef=1.0/0.16;
method4sextu = 4;
sextfringe = 0;

SX1 : sextupole, L=0.16, K =  1.719190*coef, method=method4sextu, N = NqSx;
SX2 : sextupole, L=0.16, K = -4.104560*coef, method=method4sextu, N = NqSx;
SX3 : sextupole, L=0.16, K = -2.169380*coef, method=method4sextu, N = NqSx;
SX4 : sextupole, L=0.16, K =  3.604650*coef, method=method4sextu, N = NqSx;
SX5 : sextupole, L=0.16, K = -3.698210*coef, method=method4sextu, N = NqSx;
SX6 : sextupole, L=0.16, K =  3.246670*coef, method=method4sextu, N = NqSx;
SX7 : sextupole, L=0.16, K = -5.003520*coef, method=method4sextu, N = NqSx;
SX8 : sextupole, L=0.16, K =  4.193720*coef, method=method4sextu, N = NqSx;
SX9 : sextupole, L=0.16, K = -3.152295*coef, method=method4sextu, N = NqSx;
SX10: sextupole, L=0.16, K =  1.936432*coef, method=method4sextu, N = NqSx;

{** Cavities **}
CAV: Cavity, Frequency=352.202d6, Voltage=2.8d6;

{** Insertion **}

HU36: insertion, N = 10, scaling = 1.0, method = 2,
{file1= "/home/sources/physmach/brunelle/tracy-2.7/table_magic_finger_1er_ordre_calculee_par_olivier_affinee_mai2010.txt",}
file2= "/Users/nadolski/codes/tracy/maille/soleil/HU36/hu36_phase_0.txt";

{** Horizontal correctors **}
CH  : corrector, horizontal, method=intmeth;
KCH  : corrector, horizontal, method=intmeth;

{** Vertical correctors **}
CV  : corrector, vertical, method=intmeth;

{** Skew quads **}
Nsq = 1;

QT  : quadrupole, roll=-45.0, K= 0.0, method=intmeth,N=Nsq;

{** BPM **}
BPM   : marker;
g     : marker; {begin/end girder}

{** Marker **}
 SECT1:marker;
 SECT2:marker;
 SECT3:marker;
 SECT4:marker;
 SECT5:marker;
 SECT6:marker;
 SECT7:marker;
 SECT8:marker;
 SECT9:marker;
 SECT10: marker;
 SECT11: marker;
 SECT12: marker;
 BL31: marker;
 FIN : marker;
 DEBUT : marker;
 ssep  : marker;
 esep  : marker;
 eesep : marker;
 sSDM  : marker;
 eSDM  : marker;
 eeSDM : marker;
 sSDAC : marker;
 eSDAC : marker;
 eHU600: marker;

{**Superperiods**}
SINJ: SD1a,ssep,3*SEP,esep,SD1c,eHU600,SD1d;

SD13L: SD13c,sSDM, 13*SD13a,2*SD13b,13*SD13a,
       eSDM,eeSDM,SD13c;
SDACL: SDAC1,sSDAC, 9*SDAC2, eSDAC,SDAC1;
SDACL1: SDAC4,sSDAC, 9*SDAC2, eSDAC,SDAC4;


SUPM:  SINJ, Q1, SD2, SX1, SD3, Q2, SD14, Q3, SD5,
 SX2,  SD6, BEND, SD7, Q4, SD8, SX3, SD9, Q5, SD12,
 SX4,  SD10, Q5, SD9, SX3, SD8, Q4, SD7, BEND,
 SD7,  Q6, SD5, SX5, SD4, Q7, SD3, SX6, SD2, Q8,
 SD13L,Q8, SD2 ,SX8, SD3, Q7, SD4, SX7, SD5, Q6, SD7,
 BEND, SD7 ,Q9, SD8, SX9, SD9, Q10, SD8, SX10,
 SDACL1, SX10, SD8, Q10, SD9, SX9, SD8, Q9, SD7,
 BEND,  SD7, Q6, SD5, SX7, SD4, Q7, SD3, SX8, SD2,
 Q8,  SD13, SD13, Q8, SD2, SX8, SD3 ,Q7, SD4, SX7,
 SD5, Q6, SD7, BEND, SD7, Q9, SD8, SX9 , SD9, Q10,
 SD8, SX10, 2*SDAC3, SX10, SD8, Q10, SD9, SX9, SD8,
 Q9, SD7, BEND, SD7, Q6, SD5, SX7, SD4, Q7, SD3,
 SX8, SD2, Q8,  SD13, SD13, Q8, SD2, SX6, SD3, Q7,
 SD4, SX5, SD5, Q6, SD7, BEND, SD7, Q4, SD8, SX3,
 SD9, Q5, SD10,SX4, SD12, Q5, SD9, SX3, SD8, Q4,
 SD7, BEND, SD6, SX2, SD5, Q3, SD14, Q2, SD3, SX1,
 SD2, Q1, SD1;

SUP: SD1, Q1, SD2, SX1, SD3, Q2, SD14, Q3, SD5,
 SX2, SD6, BEND, SD7, Q4, SD8, SX3, SD9, Q5, SD12,
 SX4, SD10, Q5, SD9, SX3, SD8, Q4, SD7,  BEND,
 SD7, Q6, SD5, SX5, SD4, Q7, SD3, SX6, SD2, Q8,
 2*SD13, Q8, SD2 ,SX8, SD3, Q7, SD4, SX7, SD5, Q6,
 SD7, BEND, SD7 ,Q9, SD8, SX9, SD9, Q10, SD8, SX10,
 2*SDAC3, SX10, SD8, Q10, SD9, SX9, SD8, Q9, SD7,
 BEND, SD7, Q6, SD5, SX7, SD4, Q7, SD3, SX8, SD2,
 Q8, 2*SD13, Q8, SD2, SX8, SD3 ,Q7, SD4, SX7,
 SD5, Q6, SD7,  BEND, SD7, Q9, SD8, SX9 , SD9, Q10,
 SD8, SX10, 2*SDAC3, SX10, SD8, Q10, SD9, SX9, SD8,
 Q9, SD7, BEND, SD7, Q6, SD5, SX7, SD4, Q7, SD3,
 SX8, SD2, Q8, 2*SD13, Q8, SD2, SX6, SD3, Q7,
 SD4, SX5, SD5, Q6, SD7, BEND, SD7, Q4, SD8, SX3,
 SD9, Q5, SD10, SX4, SD12, Q5, SD9, SX3, SD8, Q4,
 SD7, BEND, SD6, SX2, SD5, Q3, SD14, Q2, SD3, SX1,
 SD2, Q1, SD1;

SUP1: KCH, KCH, KCH, SINJ, BPM, Q1, SD2, SX1, QT, CH, SD3, Q2,
 BPM, SD14, Q3, SD5, SX2, CV, SD6, BEND,
 SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8,
 Q4, SD7, BEND, SD7,Q6, SD5, SX5, CV, SD4, BPM, Q7,
 SD3, SX6, CH, SD2, Q8, BPM, SD13L,BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7, BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10,
 QT, CH, BPM, SDACL1, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND, SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8,
 QT, CH, SD2, Q8, BPM, 2*SD13, BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7, BEND,
 SD7, Q9, SD8, SX9, CV, BPM, SD9, Q10,
 SD8, SX10, CH, BPM, 2*SDAC3, BPM,
 SX10, QT, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8,
 Q9, SD7, BEND,
 SD7, Q6, SD5, SX7, SD4, CV, BPM, Q7, SD3,
 SX8, CH, SD2, Q8, BPM,
 2*SD13, BPM,
 Q8, SD2, SX6, CH, SD3, Q7, BPM,
 SD4, SX5, CV, SD5, Q6, SD7,
 BEND, SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CH, CV,  SD12, Q5, SD9, BPM,
 SX3, SD8, Q4, SD7,
 BEND, SD6, SX2, CV, SD5, Q3, SD14, BPM, Q2,
 SD3, SX1, QT, CH, SD2, Q1, BPM, SD1;

SUP2: SD1, BPM,
 Q1, SD2, SX1, QT, CH, SD3, Q2, BPM, SD14, Q3, SD5,
 SX2, CV, SD6,
 BEND,  SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8, Q4,
 SD7,  BEND,  SD7,
 Q6, SD5, SX5, CV, BPM, SD4, Q7, SD3, SX6, CH, BPM, SD2, Q8,
 2*SD13, BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV, SD5, Q6,
 SD7,  BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10, QT, CH,
 BPM, 2*SDAC3, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8, QT, CH, SD2,
 Q8, BPM, 2*SD13, BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7, BEND,
 SD7, Q9, SD8, SX9 , CV, BPM, SD9, Q10,
 SD8, SX10, QT, CH, BPM,  2*SDAC3, BPM,
 SX10, CH, SD8, Q10, SD9, BPM,  SX9, CV, SD8,
 Q9, SD7, BEND, SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3,
 SX8, CH, SD2, Q8, BPM, 2*SD13, BPM, Q8, SD2, SX6,
 CH, SD3, Q7, BPM,SD4, SX5, CV, SD5, Q6, SD7, BEND,
 SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CH , CV, SD12, Q5, SD9, BPM,
 SX3, SD8, Q4, SD7, BEND,
 SD6, SX2 , CV, SD5, Q3, SD14, BPM, Q2, SD3, SX1, QT, CH,
 SD2, Q1, BPM,
 SD1;

SUP3: SD1, BPM,
 Q1, SD2, SX1, QT, CH, SD3, Q2, BPM, SD14, Q3, SD5,
 SX2 , CV, SD6,
 BEND,
 SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8, Q4,
 SD7, BEND,
 SD7,
 Q6, SD5, SX5,CV, SD4, BPM, Q7, SD3, SX6, CH, SD2, Q8,
 BPM, 2*SD13, BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV, SD5, Q6,
 SD7,
 BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10, QT, CH,
 BPM, 2*SDAC3, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8, QT, CH, SD2,
 Q8, BPM,
 2*SD13, BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7,
 BEND,
 SD7, Q9, SD8, SX9, CV, BPM,  SD9, Q10,
 SD8, SX10, CH, BPM,
 2*SDAC3, BPM,
 SX10, QT, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8,
 Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3,
 SX8, CH, SD2, BPM, Q8,
 2*SD13, BPM,
 Q8, SD2, SX6, CH, SD3, Q7, BPM,
 SD4, SX5, CV, SD5, Q6, SD7,
 BEND,
 SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CV, CH, SD12, Q5, SD9, BPM,
 SX3, SD8, Q4, SD7,
 BEND,
 SD6, SX2, CV, SD5, Q3, SD14, BPM, Q2, SD3, SX1, QT, CH,
 SD2, Q1, BPM,
 SD1;

SUP4: SD1, BPM,
 Q1, SD2, SX1, QT, CH, SD3, Q2, BPM, SD14, Q3, SD5,
 SX2, CV, SD6,
 BEND,
 SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8, Q4,
 SD7,  BEND,
 SD7,
 Q6, SD5, SX5,CV, SD4, BPM, Q7, SD3, SX6, CH, SD2, Q8,
 BPM, 2*SD13, BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV, SD5,
 Q6, SD7,
 BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10, QT, CH,
 BPM, 2*SDAC3, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8, QT, CH,
 SD2,
 Q8, BPM,
 2*SD13, BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7,
 BEND,
 SD7, Q9, SD8, SX9, CV, BPM, SD9, Q10,
 SD8, SX10, CH, BPM,
 2*SDAC3, BPM,
 SX10, QT, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8,
 Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3,
 SX8, CH, SD2, Q8, BPM,
 2*SD13, BPM,
 Q8, SD2, SX6, CH, SD3, Q7, BPM,
 SD4, SX5, CV, SD5, Q6, SD7,
 BEND,
 SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CH,CV, SD12, Q5, SD9,
 BPM,
 SX3, SD8, Q4, SD7,
 BEND,
 SD6, SX2, CV, SD5, Q3, SD14, BPM, Q2, SD3, SX1, QT, CH,
 SD2, Q1, BPM,
 SD1;

SUP4_HU36: SD1, BPM,
 Q1, SD2, SX1, QT, CH, SD3, Q2, BPM, SD14, Q3, SD5,
 SX2, CV, SD6,
 BEND,
 SD7, Q4, SD8, SX3, BPM, SD9, Q5, SD12,
 SX4, QT, CH, CV, BPM, SD10, Q5, SD9, BPM, SX3, SD8, Q4,
 SD7,  BEND,
 SD7,
 Q6, SD5, SX5,CV, SD4, BPM, Q7, SD3, SX6, CH, SD2, Q8,
 BPM, 2*SD13, BPM,
 Q8, SD2 ,SX8, QT, CH, SD3, Q7, BPM, SD4, SX7, CV, SD5,
 Q6, SD7,
 BEND,
 SD7 ,Q9, SD8, SX9, CV, BPM, SD9, Q10, SD8, SX10, QT, CH,
 BPM, 2*SDAC3, BPM,
 SX10, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8, Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3, SX8, QT, CH,
 SD2,
 Q8, BPM,
 2*SD13, BPM,
 Q8, SD2, SX8, CH, SD3 ,Q7, BPM, SD4, SX7, CV,
 SD5, Q6, SD7,
 BEND,
 SD7, Q9, SD8, SX9, CV, BPM, SD9, Q10,
 SD8, SX10, CH, BPM,
 SDACm,  HU36, SDACm, BPM,
 SX10, QT, CH, SD8, Q10, SD9, BPM, SX9, CV, SD8,
 Q9, SD7,
 BEND,
 SD7, Q6, SD5, SX7, CV, SD4, BPM, Q7, SD3,
 SX8, CH, SD2, Q8, BPM,
 2*SD13, BPM,
 Q8, SD2, SX6, CH, SD3, Q7, BPM,
 SD4, SX5, CV, SD5, Q6, SD7,
 BEND,
 SD7, Q4, SD8, SX3, BPM,
 SD9, Q5, SD10, BPM, SX4, QT, CH,CV, SD12, Q5, SD9,
 BPM,
 SX3, SD8, Q4, SD7,
 BEND,
 SD6, SX2, CV, SD5, Q3, SD14, BPM, Q2, SD3, SX1, QT, CH,
 SD2, Q1, BPM,
 SD1;

{RING: DEBUT,SUPM,3*SUP,CAV,FIN;}
{RING: DEBUT,SUP1,SUP2,SUP3,SUP4,CAV,FIN;}
RING: DEBUT,SUP1,SUP2,SUP3,SUP4_HU36,CAV,FIN;
{***** Define CELL structure ****}
 CELL:  RING, symmetry = 1;

end;