! ! CLIC Main Beam RTML ! Turn Around Loop ! ! initial Twiss: betax=73.5, alphax=0.0, betay=35.2, alphay=0.0 ! final Twiss: betax=73.5, alphax=0.0, betay=35.2, alphay=0.0 % global_csr sto 090_usecsr % global_isr sto 090_useisr % 0 sto 090_usesyn % 1 atan 4 * sto Pi ! general parameters of arc % 2.0 sto 090_lbend % 0.5 sto 090_lquad % 0.2 sto 090_lsext ! dipoles % 1.5 180 / Pi * sto 090_bendangle % 090_lbend 2 / 090_bendangle 2 / sin / sto 090_r0 % 090_bendangle 090_r0 * sto 090_larc ! for arc bending to the left 090_BL : SBEND, L="090_larc", ANGLE="090_bendangle -1.0 *",& E1 = "090_bendangle -2.0 /", E2 = "090_bendangle -2.0 /",& ORDER = 2 ! for arc bending to the right 090_BR : SBEND, L="090_larc", ANGLE="090_bendangle",& E1 = "090_bendangle 2.0 /", E2 = "090_bendangle 2.0 /",& ORDER = 2 090_BLE : CSBEND, L="090_larc", ANGLE="090_bendangle -1.0 *",& E1 = "090_bendangle -2.0 /", E2 = "090_bendangle -2.0 /",& INTEGRATION_ORDER = 4,ISR="090_useisr",SYNCH_RAD="090_usesyn",& USE_RAD_DIST=1 ! for arc bending to the right 090_BRE : CSBEND, L="090_larc", ANGLE="090_bendangle",& E1 = "090_bendangle 2.0 /", E2 = "090_bendangle 2.0 /",& INTEGRATION_ORDER = 4,ISR= "090_useisr",SYNCH_RAD="090_usesyn",& USE_RAD_DIST=1 090_BLCSR : CSRCSBEND, L = "090_larc", ANGLE = "090_bendangle -1.0 *",& E1 = "090_bendangle -2.0 /", E2 = "090_bendangle -2.0 /",& INTEGRATION_ORDER = 4,& CSR = "090_usecsr", ISR = "090_useisr",& N_KICKS = 1000,& BINS = 2000, SG_HALFWIDTH = 10,& DERBENEV_CRITERION_MODE = "disable" ! OUTPUT_FILE = "wakes1.dat",& ! OUTPUT_INTERVAL= 10,& ! PARTICLE_OUTPUT_FILE = "part1.dat", & ! PARTICLE_OUTPUT_INTERVAL = 10,& ! SLICE_ANALYSIS_INTERVAL = 5 090_BRCSR : CSRCSBEND, L = "090_larc", ANGLE = "090_bendangle 1.0 *",& E1 = "090_bendangle 2.0 /", E2 = "090_bendangle 2.0 /",& INTEGRATION_ORDER = 4,& CSR = "090_usecsr", ISR = "090_useisr",& N_KICKS = 1000, & BINS = 2000, SG_HALFWIDTH = 10,& DERBENEV_CRITERION_MODE = "disable" ! OUTPUT_FILE = "wakes1.dat",& ! OUTPUT_INTERVAL= 10,& ! PARTICLE_OUTPUT_FILE = "part1.dat",& ! PARTICLE_OUTPUT_INTERVAL = 10,& ! SLICE_ANALYSIS_INTERVAL = 5 ! quadrupoles %1.580449653 sto 090_kq1 %-0.7605336329 sto 090_kq2 %0.9155124479 sto 090_kq3 %-0.4598785488 sto 090_kq4 % 090_kq4 sto 090_kq5 % 090_kq3 sto 090_kq6 % 090_kq2 sto 090_kq7 % 090_kq1 sto 090_kq8 % 0.9096194233 sto 090_kq8l8 % 090_kq8l8 sto 090_kq1r1 090_Q1: QUAD, L="090_lquad 2.0 /", K1="090_kq1", ORDER=3 090_Q2: QUAD, L="090_lquad", K1="090_kq2", ORDER=3 090_Q3: QUAD, L="090_lquad", K1="090_kq3", ORDER=3 090_Q4: QUAD, L="090_lquad", K1="090_kq4", ORDER=3 090_Q5: QUAD, L="090_lquad", K1="090_kq5", ORDER=3 090_Q6: QUAD, L="090_lquad", K1="090_kq6", ORDER=3 090_Q7: QUAD, L="090_lquad", K1="090_kq7", ORDER=3 090_Q8: QUAD, L="090_lquad 2.0 /", K1="090_kq8", ORDER=3 090_Q8L8: QUAD, L="090_lquad", K1="090_kq8l8", ORDER=3 090_Q1R1: QUAD, L="090_lquad", K1="090_kq1r1", ORDER=3 ! drifts % 0.50 sto 090_ld01 % 0.55 sto 090_ld02 % 6.38 sto 090_ld03 % 1.17 sto 090_ld04 % 1.30 sto 090_ld05 % 0.50 sto 090_ld06 % 090_ld05 sto 090_ld07 % 090_ld04 sto 090_ld08 % 090_ld03 sto 090_ld09 % 090_ld02 sto 090_ld10 % 090_ld01 sto 090_ld11 % 090_ld03 0.3 - sto 090_ld03a % 0.10 sto 090_ld03b % 0.10 sto 090_ld04a % 090_ld04 0.3 - sto 090_ld04b % 090_ld03b sto 090_ld09a % 090_ld03a sto 090_ld09b 090_D01: DRIFT, L="090_ld01", ORDER=2 090_D02: DRIFT, L="090_ld02", ORDER=2 090_D03: DRIFT, L="090_ld03", ORDER=2 090_D03A: DRIFT, L="090_ld03a", ORDER=2 090_D03B: DRIFT, L="090_ld03b", ORDER=2 090_D04: DRIFT, L="090_ld04", ORDER=2 090_D04A: DRIFT, L="090_ld04a", ORDER=2 090_D04B: DRIFT, L="090_ld04b", ORDER=2 090_D05: DRIFT, L="090_ld05", ORDER=2 090_D06: DRIFT, L="090_ld06", ORDER=2 090_D07: DRIFT, L="090_ld07", ORDER=2 090_D08: DRIFT, L="090_ld08", ORDER=2 090_D09A: DRIFT, L="090_ld09a", ORDER=2 090_D09B: DRIFT, L="090_ld09b", ORDER=2 090_D10: DRIFT, L="090_ld10", ORDER=2 090_D11: DRIFT, L="090_ld11", ORDER=2 090_D01E: EDRIFT, L="090_ld01" 090_D02E: EDRIFT, L="090_ld02" 090_D03E: EDRIFT, L="090_ld03" 090_D03AE: EDRIFT, L="090_ld03a" 090_D03BE: EDRIFT, L="090_ld03b" 090_D04E: EDRIFT, L="090_ld04" 090_D04AE: EDRIFT, L="090_ld04a" 090_D04BE: EDRIFT, L="090_ld04b" 090_D05E: EDRIFT, L="090_ld05" 090_D06E: EDRIFT, L="090_ld06" 090_D07E: EDRIFT, L="090_ld07" 090_D08E: EDRIFT, L="090_ld08" 090_D09AE: EDRIFT, L="090_ld09a" 090_D09BE: EDRIFT, L="090_ld09b" 090_D10E: EDRIFT, L="090_ld10" 090_D11E: EDRIFT, L="090_ld11" 090_D01CSR: CSRDRIFT, L="090_ld01", & CSR=0, DZ=0.01, USE_STUPAKOV=1 090_D02CSR: CSRDRIFT, L="090_ld02", & CSR=0, DZ=0.01, USE_STUPAKOV=1 090_D03CSR: CSRDRIFT, L="090_ld03", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D03ACSR: CSRDRIFT, L="090_ld03a", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D03BCSR: CSRDRIFT, L="090_ld03b", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D04CSR: CSRDRIFT, L="090_ld04", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D04ACSR: CSRDRIFT, L="090_ld04a", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D04BCSR: CSRDRIFT, L="090_ld04b", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D05CSR: CSRDRIFT, L="090_ld05", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D06CSR: CSRDRIFT, L="090_ld06", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D07CSR: CSRDRIFT, L="090_ld07", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D08CSR: CSRDRIFT, L="090_ld08", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D09ACSR: CSRDRIFT, L="090_ld09a", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D09BCSR: CSRDRIFT, L="090_ld09b", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D10CSR: CSRDRIFT, L="090_ld10", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_D11CSR: CSRDRIFT, L="090_ld11", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 ! sextupoles ! for 0.5% energy spread !% -40.0 sto 090_ks1 !% -40.0 sto 090_ks2 % 0.0 sto 090_ks1 % 0.0 sto 090_ks2 % -22.0 sto 090_ks1 % -22.0 sto 090_ks2 090_SL1: SEXT, L="090_lsext", K2="090_ks1", ORDER=3 090_SL2: SEXT, L="090_lsext", K2="090_ks2", ORDER=3 090_SR1: SEXT, L="090_lsext", K2="090_ks1 -1.0 *", ORDER=3 090_SR2: SEXT, L="090_lsext", K2="090_ks2 -1.0 *", ORDER=3 ! arc definition 090_ARCLS: LINE=(090_Q1,090_D01,090_Q2,090_D02,090_BL,090_D03,090_Q3,090_D04A,090_SL1,090_D04B,090_Q4,090_D05,& 090_BL,090_D06,090_BL,090_D06,090_BL,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SL2,090_D09B,090_BL,090_D10,090_Q7,090_D11,090_Q8) 090_ARCLST: LINE=(090_Q1,090_D01,090_Q2,090_D02,090_BL,090_D03A,090_SL1,090_D03B,090_Q3,090_D04,090_Q4,090_D05,& 090_BL,090_D06,090_BL,090_D06,090_BL,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SL2,090_D09B,090_BL,090_D10,090_Q7,090_D11,090_Q8) 090_ARCL8: LINE=(090_Q1,090_D01,090_Q2,090_D02,090_BL,090_D03,090_Q3,090_D04A,090_SL1,090_D04B,090_Q4,090_D05,& 090_BL,090_D06,090_BL,090_D06,090_BL,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SL2,090_D09B,090_BL,090_D10,090_Q7,090_D11,090_Q8L8) 090_ARCL8T: LINE=(090_Q1,090_D01,090_Q2,090_D02,090_BL,090_D03A,090_SL1,090_D03B,090_Q3,090_D04,090_Q4,090_D05,& 090_BL,090_D06,090_BL,090_D06,090_BL,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SL2,090_D09B,090_BL,090_D10,090_Q7,090_D11,090_Q8L8) 090_ARCL: LINE=(7*090_ARCLS,090_ARCL8) 090_ARCLT: LINE=(7*090_ARCLST,090_ARCL8T) 090_ARCR1: LINE=(090_Q1R1,090_D01,090_Q2,090_D02,090_BR,090_D03,090_Q3,090_D04A,090_SR1,090_D04B,090_Q4,090_D05,& 090_BR,090_D06,090_BR,090_D06,090_BR,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SR2,090_D09B,090_BR,090_D10,090_Q7,090_D11,090_Q8) 090_ARCR1T: LINE=(090_Q1R1,090_D01,090_Q2,090_D02,090_BR,090_D03A,090_SR1,090_D03B,090_Q3,090_D04,090_Q4,090_D05,& 090_BR,090_D06,090_BR,090_D06,090_BR,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SR2,090_D09B,090_BR,090_D10,090_Q7,090_D11,090_Q8) 090_ARCRS: LINE=(090_Q1,090_D01,090_Q2,090_D02,090_BR,090_D03,090_Q3,090_D04A,090_SR1,090_D04B,090_Q4,090_D05,& 090_BR,090_D06,090_BR,090_D06,090_BR,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SR2,090_D09B,090_BR,090_D10,090_Q7,090_D11,090_Q8) 090_ARCRST: LINE=(090_Q1,090_D01,090_Q2,090_D02,090_BR,090_D03A,090_SR1,090_D03B,090_Q3,090_D04,090_Q4,090_D05,& 090_BR,090_D06,090_BR,090_D06,090_BR,& 090_D07,090_Q5,090_D08,090_Q6,090_D09A,090_SR2,090_D09B,090_BR,090_D10,090_Q7,090_D11,090_Q8) 090_ARCR: LINE=(090_ARCR1,31*090_ARCRS) 090_ARCRT: LINE=(090_ARCR1T,31*090_ARCRST) 090_ARCLSE: LINE=(090_Q1,090_D01E,090_Q2,090_D02E,090_BLE,090_D03E,090_Q3,090_D04AE,090_SL1,090_D04BE,090_Q4,090_D05E,& 090_BLE,090_D06E,090_BLE,090_D06E,090_BLE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SL2,090_D09BE,090_BLE,090_D10E,090_Q7,090_D11E,090_Q8) 090_ARCLSTE: LINE=(090_Q1,090_D01E,090_Q2,090_D02E,090_BLE,090_D03AE,090_SL1,090_D03BE,090_Q3,090_D04E,090_Q4,090_D05E,& 090_BLE,090_D06E,090_BLE,090_D06E,090_BLE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SL2,090_D09BE,090_BLE,090_D10E,090_Q7,090_D11E,090_Q8) 090_ARCL8E: LINE=(090_Q1,090_D01E,090_Q2,090_D02E,090_BLE,090_D03E,090_Q3,090_D04AE,090_SL1,090_D04BE,090_Q4,090_D05E,& 090_BLE,090_D06E,090_BLE,090_D06E,090_BLE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SL2,090_D09BE,090_BLE,090_D10E,090_Q7,090_D11E,090_Q8L8) 090_ARCL8TE: LINE=(090_Q1,090_D01E,090_Q2,090_D02E,090_BLE,090_D03AE,090_SL1,090_D03BE,090_Q3,090_D04E,090_Q4,090_D05E,& 090_BLE,090_D06E,090_BLE,090_D06E,090_BLE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SL2,090_D09BE,090_BLE,090_D10E,090_Q7,090_D11E,090_Q8L8) 090_ARCLE: LINE=(7*090_ARCLSE,090_ARCL8E) 090_ARCLTE: LINE=(7*090_ARCLSTE,090_ARCL8TE) 090_ARCR1E: LINE=(090_Q1R1,090_D01E,090_Q2,090_D02E,090_BRE,090_D03E,090_Q3,090_D04AE,090_SR1,090_D04BE,090_Q4,090_D05E,& 090_BRE,090_D06E,090_BRE,090_D06E,090_BRE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SR2,090_D09BE,090_BRE,090_D10E,090_Q7,090_D11E,090_Q8) 090_ARCR1TE: LINE=(090_Q1R1,090_D01E,090_Q2,090_D02E,090_BRE,090_D03AE,090_SR1,090_D03BE,090_Q3,090_D04E,090_Q4,090_D05E,& 090_BRE,090_D06E,090_BRE,090_D06E,090_BRE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SR2,090_D09BE,090_BRE,090_D10E,090_Q7,090_D11E,090_Q8) 090_ARCRSE: LINE=(090_Q1,090_D01E,090_Q2,090_D02E,090_BRE,090_D03E,090_Q3,090_D04AE,090_SR1,090_D04BE,090_Q4,090_D05E,& 090_BRE,090_D06E,090_BRE,090_D06E,090_BRE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SR2,090_D09BE,090_BR,090_D10E,090_Q7,090_D11E,090_Q8) 090_ARCRSTE: LINE=(090_Q1,090_D01E,090_Q2,090_D02E,090_BRE,090_D03AE,090_SR1,090_D03BE,090_Q3,090_D04E,090_Q4,090_D05E,& 090_BRE,090_D06E,090_BRE,090_D06E,090_BRE,& 090_D07E,090_Q5,090_D08E,090_Q6,090_D09AE,090_SR2,090_D09BE,090_BRE,090_D10E,090_Q7,090_D11E,090_Q8) 090_ARCRE: LINE=(090_ARCR1E,31*090_ARCRSE) 090_ARCRTE: LINE=(090_ARCR1TE,31*090_ARCRSTE) 090_ARCLSCSR: LINE=(090_Q1,090_D01CSR,090_Q2,090_D02CSR,090_BLCSR,090_D03CSR,090_Q3,090_D04ACSR,090_SL1,090_D04BCSR,090_Q4,090_D05CSR,& 090_BLCSR,090_D06CSR,090_BLCSR,090_D06CSR,090_BLCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SL2,090_D09BCSR,090_BLCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8) 090_ARCLSTCSR: LINE=(090_Q1,090_D01CSR,090_Q2,090_D02CSR,090_BLCSR,090_D03ACSR,090_SL1,090_D03BCSR,090_Q3,090_D04CSR,090_Q4,090_D05CSR,& 090_BLCSR,090_D06CSR,090_BLCSR,090_D06CSR,090_BLCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SL2,090_D09BCSR,090_BLCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8) 090_ARCL8CSR: LINE=(090_Q1,090_D01CSR,090_Q2,090_D02CSR,090_BLCSR,090_D03CSR,090_Q3,090_D04ACSR,090_SL1,090_D04BCSR,090_Q4,090_D05CSR,& 090_BLCSR,090_D06CSR,090_BLCSR,090_D06CSR,090_BLCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SL2,090_D09BCSR,090_BLCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8L8) 090_ARCL8TCSR: LINE=(090_Q1,090_D01CSR,090_Q2,090_D02CSR,090_BLCSR,090_D03ACSR,090_SL1,090_D03BCSR,090_Q3,090_D04CSR,090_Q4,090_D05CSR,& 090_BLCSR,090_D06CSR,090_BLCSR,090_D06CSR,090_BLCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SL2,090_D09BCSR,090_BLCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8L8) 090_ARCLCSR: LINE=(7*090_ARCLSCSR,090_ARCL8CSR) 090_ARCLTCSR: LINE=(7*090_ARCLSTCSR,090_ARCL8TCSR) 090_ARCR1CSR: LINE=(090_Q1R1,090_D01CSR,090_Q2,090_D02CSR,090_BRCSR,090_D03CSR,090_Q3,090_D04ACSR,090_SR1,090_D04BCSR,090_Q4,090_D05CSR,& 090_BRCSR,090_D06CSR,090_BRCSR,090_D06CSR,090_BRCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SR2,090_D09BCSR,090_BRCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8) 090_ARCR1TCSR: LINE=(090_Q1R1,090_D01CSR,090_Q2,090_D02CSR,090_BRCSR,090_D03ACSR,090_SR1,090_D03BCSR,090_Q3,090_D04CSR,090_Q4,090_D05CSR,& 090_BRCSR,090_D06CSR,090_BRCSR,090_D06CSR,090_BRCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SR2,090_D09BCSR,090_BRCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8) 090_ARCRSCSR: LINE=(090_Q1,090_D01CSR,090_Q2,090_D02CSR,090_BRCSR,090_D03CSR,090_Q3,090_D04ACSR,090_SR1,090_D04BCSR,090_Q4,090_D05CSR,& 090_BRCSR,090_D06CSR,090_BRCSR,090_D06CSR,090_BRCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SR2,090_D09BCSR,090_BRCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8) 090_ARCRSTCSR: LINE=(090_Q1,090_D01CSR,090_Q2,090_D02CSR,090_BRCSR,090_D03ACSR,090_SR1,090_D03BCSR,090_Q3,090_D04CSR,090_Q4,090_D05CSR,& 090_BRCSR,090_D06CSR,090_BRCSR,090_D06CSR,090_BRCSR,& 090_D07CSR,090_Q5,090_D08CSR,090_Q6,090_D09ACSR,090_SR2,090_D09BCSR,090_BRCSR,090_D10CSR,090_Q7,090_D11CSR,090_Q8) 090_ARCRCSR: LINE=(090_ARCR1CSR,31*090_ARCRSCSR) 090_ARCRTCSR: LINE=(090_ARCR1TCSR,31*090_ARCRSTCSR) ! matching between left and right arc % -0.1572892074 sto 090_kqms1 % 0.2136304422 sto 090_kqms2 % 0.090098406704 sto 090_kqmc1 % -0.093624668432 sto 090_kqmc2 090_QMS1: QUAD, L="090_lquad", K1="090_kqms1", ORDER=3 090_QMS2: QUAD, L="090_lquad", K1="090_kqms2", ORDER=3 090_QMC1: QUAD, L="090_lquad", K1="090_kqmc1", ORDER=3 090_QMC2: QUAD, L="090_lquad", K1="090_kqmc2", ORDER=3 % 13.4 sto 090_ldmc % 14.91552397 sto 090_ldms1 % 24.584 090_ldms1 - sto 090_ldms2 090_DMC: DRIFT, L="090_ldmc" 090_DMS1: DRIFT, L="090_ldms1" 090_DMS2: DRIFT, L="090_ldms2" 090_DMCE: EDRIFT, L="090_ldmc" 090_DMS1E: EDRIFT, L="090_ldms1" 090_DMS2E: EDRIFT, L="090_ldms2" 090_DMCCSR: CSRDRIFT, L="090_ldmc", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_DMS1CSR: CSRDRIFT, L="090_ldms1", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_DMS2CSR: CSRDRIFT, L="090_ldms2", & CSR="090_usecsr", DZ=0.01, USE_STUPAKOV=1 090_MCELL: LINE=(090_QMC1,090_DMC,090_QMC2,090_DMC) 090_MATCHLINE: LINE=(090_DMS1,090_QMS1,090_DMS2,090_QMS2,090_DMC,090_QMC2,090_DMC,& 090_MCELL,090_MCELL,090_MCELL,090_MCELL,090_MCELL,090_MCELL,& 090_QMS2,090_DMS2,090_QMS1,090_DMS1) 090_MCELLE: LINE=(090_QMC1,090_DMCE,090_QMC2,090_DMCE) 090_MATCHLINEE: LINE=(090_DMS1E,090_QMS1,090_DMS2E,090_QMS2,090_DMCE,090_QMC2,090_DMCE,& 090_MCELLE,090_MCELLE,090_MCELLE,090_MCELLE,090_MCELLE,090_MCELLE,& 090_QMS2,090_DMS2E,090_QMS1,090_DMS1E) 090_MCELLCSR: LINE=(090_QMC1,090_DMCCSR,090_QMC2,090_DMCCSR) 090_MATCHLINECSR: LINE=(090_DMS1CSR,090_QMS1,090_DMS2CSR,090_QMS2,090_DMCCSR,090_QMC2,090_DMCCSR,& 090_MCELLCSR,090_MCELLCSR,090_MCELLCSR,& 090_MCELLCSR,090_MCELLCSR,090_MCELLCSR,& 090_QMS2,090_DMS2CSR,090_QMS1,090_DMS1CSR) ! LOOP 090_LOOP: LINE=(090_ARCL,090_MATCHLINE,090_ARCR) 090_LOOPT: LINE=(090_ARCLT,090_MATCHLINE,090_ARCRT) 090_LOOPE: LINE=(090_ARCLE,090_MATCHLINEE,090_ARCRE) 090_LOOPTE: LINE=(090_ARCLTE,090_MATCHLINEE,090_ARCRTE) 090_LOOPCSR: LINE=(090_ARCLCSR,090_MATCHLINECSR,090_ARCRCSR) 090_LOOPTCSR: LINE=(090_ARCLTCSR,090_MATCHLINECSR,090_ARCRTCSR) LINE090: LINE=(090_LOOPT) LINE090E: LINE=(090_LOOPTE) LINE090CSR: LINE=(090_LOOPTCSR)