! 
! CLIC Main Beam RTML
! Transfer Line
! 
! initial Twiss: betax=856.387062, alphax=0.0, betay=382.4304501, alphay=0.0
! final Twiss: betax=382.4304501, alphax=0.0, betay=856.387062, alphay=0.0

!% global_csr sto 070_usecsr
% 0 sto 070_usecsr

% 0.36 sto 070_lquad

% 0.009713020617 sto 070_kqmx
% 070_kqmx sto 070_kqm1
% 070_kqmx -1.0 * sto 070_kqm2
% 070_kqmx sto 070_kqm3
% 070_kqmx -1.0 * sto 070_kqm4

% 219.0 0.36 - sto 070_ldm1
% 070_ldm1 sto 070_ldm2
% 070_ldm1 sto 070_ldm3
% 070_ldm1 sto 070_ldm4

070_Q12: QUAD, L="070_lquad 2 /", K1="070_kqm1", ORDER=3
070_Q1: QUAD, L="070_lquad", K1="070_kqm1", ORDER=3
070_Q2: QUAD, L="070_lquad", K1="070_kqm2", ORDER=3
070_Q3: QUAD, L="070_lquad", K1="070_kqm3", ORDER=3
070_Q4: QUAD, L="070_lquad", K1="070_kqm4", ORDER=3
070_Q42: QUAD, L="070_lquad 2 /", K1="070_kqm4", ORDER=3

070_D01: DRIFT, L="070_ldm1", ORDER=2
070_D02: DRIFT, L="070_ldm2", ORDER=2
070_D03: DRIFT, L="070_ldm3", ORDER=2
070_D04: DRIFT, L="070_ldm4", ORDER=2

070_D01E: EDRIFT, L="070_ldm1"
070_D02E: EDRIFT, L="070_ldm2"
070_D03E: EDRIFT, L="070_ldm3"
070_D04E: EDRIFT, L="070_ldm4"

070_D01CSR: CSRDRIFT, L="070_ldm1", &
            CSR="070_usecsr", DZ=0.01, USE_STUPAKOV=1
070_D02CSR: CSRDRIFT, L="070_ldm2", &
            CSR="070_usecsr", DZ=0.01, USE_STUPAKOV=1
070_D03CSR: CSRDRIFT, L="070_ldm3", &
            CSR="070_usecsr", DZ=0.01, USE_STUPAKOV=1
070_D04CSR: CSRDRIFT, L="070_ldm4", &
            CSR="070_usecsr", DZ=0.01, USE_STUPAKOV=1


CELL070S: LINE=(070_Q12,070_D01,070_Q2,070_D02,&
                070_Q3,070_D03,070_Q4,070_D04)
CELL070: LINE=(070_Q1,070_D01,070_Q2,070_D02,&
               070_Q3,070_D03,070_Q4,070_D04)
LINE070: LINE=(CELL070S,23*CELL070)


CELL070SE: LINE=(070_Q12,070_D01E,070_Q2,070_D02E,&
                 070_Q3,070_D03E,070_Q4,070_D04E)
CELL070E: LINE=(070_Q1,070_D01E,070_Q2,070_D02E,&
                070_Q3,070_D03E,070_Q4,070_D04E)
LINE070E: LINE=(CELL070SE,23*CELL070E)


CELL070SCSR: LINE=(070_Q12,070_D01CSR,070_Q2,070_D02CSR,&
                   070_Q3,070_D03CSR,070_Q4,070_D04CSR)
CELL070CSR: LINE=(070_Q1,070_D01CSR,070_Q2,070_D02CSR,&
                  070_Q3,070_D03CSR,070_Q4,070_D04CSR)
LINE070CSR: LINE=(CELL070SCSR,23*CELL070CSR)