TITLE, "Post-CDR-LCLS: lcls200pCGTF" OPTION, -INTER, -ECHO ASSIGN, PRINT="lcls200pCGTF.print" ASSIGN, ECHO="lcls200pCGTF.echo" ! ============================================================================== ! 31-JAN-2002, P. Emma ! Reoptimize compression for a GTF-like beam at 0.2 nC with 376 micron rms ! input bunch length at 150 MeV. ! 29-NOV-2001, P. Emma ! New input beam from Cecile with 120 MV/m at gun, 18 MV/m in L0a, and ! 30.5 MV/m in L0b. Now converging beam at L0-exit. Beta's in DL1 and ! BC1 now more like 07-NOV-01, but L1 FODO sign-flipped w.r.t. 07-NOV. Still ! need better L1-entrance and L2-entrance matching conversion. ! 26-NOV-2001, P. Emma ! Tweak matching through DL1 and BC1 to reduce CSR? ! 15-NOV-2001, M. Woodley ! New DL1/injector design: 35 degee off-axis injection, load-lock/gun/L0 ! moved upstream, more space between L0 sections, larger betas at WS02, ! fewer quads to match through DL1 bend, reverse polarity of L1 quads; add ! 55 cm transverse deflecting structure; rematch to Emma's latest BC1 optics ! 13-NOV-2001, P. Emma ! Move BC2 CQ21 and CQ22 to better locations within BC2 (mostly CQ21 goes ! 4 m past B21 to get bigger etaX/betaX ratio) ... rematch BC2 area ! 07-NOV-2001, P. Emma ! Move BC2 superconducting wiggler upstream by one quad to get betaX smaller ! in wiggler (reduces ISR emittance growth, plus allows better BC2 CSR ! match); make all drifts, which are downstream of and close to bends, of ! TYPE="CSR"; set MUX from B24 to B31 = 0 for better BC2-DL2 CSR emittance ! cancellation ! 23-OCT-2001, P. Emma ! Add a pre-BC2 one-period superconducting wiggler to kill the CSR micro- ! bunching ! 13-AUG-2001, P. Emma ! Replace double-chicanes with single, long chicanes to beat high-frequency ! CSR ! 02-JAN-2001, P. Emma ! Tweak R56 of BC2-2 from 3.60 mm to 3.55 mm to get 22 um rms final bunch ! length, rather than 21 um; clean up this file ! 06-DEC-2000, P. Emma ! Re-match end-of-L0 quads to Patrick's 100000-particle Parmela beta ! functions ... had to increase drifts between QE01-2,3,4 and reduce BMIN0 ! from 1 m to 0.733855 m (WS02 sig=50 microns now) which moves WS01-2-3 ! closer together accordingly - plus slightly shorter LMED so that length to ! DL1END is unchanged ... this now allows matching either JR beam or PKR ! beam ! 25-OCT-2000, P. Emma ! Tweak basic compression parameters to get more spare klystrons (L1phase ! from -38.479 deg to -37.824 deg, L2phase from -42.963 to -42.528 deg, ! R56(BC1) from (24.012+11.500) mm to (24.807+11.900) mm, R56(BC2) from ! (18.40+3.50) mm to (18.923+3.600) mm ... TRACKED in Elegant: gives 16% CSR ! emittance growth total ! 22-OCT-2000, M. Woodley ! Change sign of BC1 and BC2 chicanes (bend away from the aisle); adjust ! horizontal phase advance of L3 to get 3*360 degrees between last bend ! of BC2 and center of QL32 in DL2; define CSR drifts for translation to ! ELEGANT; change "INJ45" back to "DL1" ! 21-OCT-2000, P. Emma ! Change BC2 beta's to reduce CSR emittance growth (betax=7 m, alphax=-1.1 ! at B28B-exit) and adjust both BC2 chicanes for same total R56, but ! R56(1)=18.4 mm, R56(2)=3.5 mm (~ 20-OCT values) ! 13-OCT-2000, P. Emma ! Change BC1 beta's to reduce CSR emittance growth (betax=1.2 m at B18B-exit) ! and adjust both BC1 chicanes for same total R56, but R56(1)=24.012 mm, ! R56(2)=11.500 mm; add a few MARKers, like XBEG and XEND ! 10-OCT-2000, M. Woodley ! Move DL1 line to 3 feet from injector tunnel wall; tweak length and ! location of X-band section; change BC1 to double chicane system; adjust ! horizontal phase advance of L2 to get 7*180 degrees between last bend ! of BC1 and last bend of BC2; add vertical bend system between DL2 dogleg ! and ED2 emittance diagnostic section to bring beamline level; R56=0 ! optics for DL2 dogleg ! 31-AUG-2000, P. Emma ! New compression parameters based on optimizer (e.g. sigZ(BC1)=200 um) ! 03-AUG-2000, P. Emma ! Match injector for Jamie Rosenzweig input beta functions (i.e. ! "thermal1_jr.sdds"); add X-band to BC1 entrance; re-tune BC1 & BC2 R56 to ! accomodate different initial beam ! 24-JUL-2000, M. Woodley ! Verify that all fitting results have been propagated into element ! definitions; define dummy quads for matching L1/L2/L3 phase advance per ! cell (coasting) ! 20-JUL-2000, P. Emma ! Add TCAVPROF screen near H25901; reset R56(BC2-1)=26.0 mm (BB21=10.9.. kG) ! 19-JUL-2000, M. Woodley ! Remove 25-5a section ... increase gradient on 25-5b; add 8' transverse ! deflecting cavity at 25-5a for bunch length measurement; adjust phase ! advance per cell of L3 linac from 30 to 33.4 degrees/cell to get 270 ! degrees of vertical phase advance between the transverse deflecting cavity ! at 25-5a and PR31 in DL2 ! 05-JUL-2000, P. Emma ! Added 1st-guess zero-length correctors to make ELEGANT steering work; ! reduce BC2-to-L3 quad strengths to reduce chromatic dilution and rematch; ! fix effective length of DL1 bends ! 27-APR-2000, M. Woodley ! From L0 exit to undulator entrance; 45 degree off-axis injection; location ! of injection line wrt off-axis tunnel per P. Stephens ! ------------------------------------------------------------------------------ ! initial conditions (exit of L0) ! (NOTE: from P. Krejcik's 06-DEC-00 100000-particle PARMELA output file: ! lclscdr.sdds ... includes thermal emittance) Ei := 0.150 !initial beam energy (GeV) EBC1 := 0.250 !BC1 energy (GeV) EBC2 := 4.540 !BC2 energy (GeV) Ef := 14.346 !final beam energy (GeV) EMITXN := 0.60E-06 !normalized horizontal emittance (m) EMITYN := 0.60E-06 !normalized vertical emittance (m) BLENG := 0.376E-3 !bunch length (m) ESPRD := 0.02E-02 !energy spread (1) ! twiss parameters from Cecile's 20 MV/m L0a and 28 MV/m L0b (at end of L0b) ! w/200K particles (ToPaul_GTF_4_lcls_200k.dat) TBETX := 11.3882 !twiss beta x (m) TALFX := 1.1601 !twiss alpha x TBETY := 11.3881 !twiss beta y (m) TALFY := 1.1601 !twiss alpha y ! set up TWSS0 TWSS0 : BETA0, ENERGY=Ei, BETX=TBETX, ALFX=TALFX, BETY=TBETY, ALFY=TALFY ! construct input beam matrix EMITX := EMITXN/(TWSS0[ENERGY]/EMASS) EMITY := EMITYN/(TWSS0[ENERGY]/EMASS) TGAMX := (1+TWSS0[ALFX]*TWSS0[ALFX])/TWSS0[BETX] TGAMY := (1+TWSS0[ALFY]*TWSS0[ALFY])/TWSS0[BETY] SIG11 := EMITX*TWSS0[BETX] SIG21 := -EMITX*TWSS0[ALFX] SIG22 := EMITX*TGAMX SIG33 := EMITY*TWSS0[BETY] SIG43 := -EMITY*TWSS0[ALFY] SIG44 := EMITY*TGAMY C21 := SIG21/SQRT(SIG11*SIG22) C43 := SIG43/SQRT(SIG33*SIG44) SIG0 : SIGMA0, SIGX=SQRT(SIG11), SIGPX=SQRT(SIG22), R21=C21, & SIGY=SQRT(SIG33), SIGPY=SQRT(SIG44), R43=C43, & SIGT=BLENG, SIGPT=ESPRD BEAM, PARTICLE=ELECTRON, ENERGY=TWSS0[ENERGY], EX=EMITX, EY=EMITY, & SIGT=BLENG, SIGE=ESPRD ! conversion factors Cb : CONSTANT=1.0E10/CLIGHT !energy to magnetic rigidity GeV2MeV : CONSTANT=1000.0 !GeV to MeV in2m : CONSTANT=0.0254 !inches to meters ! ============================================================================== ! LCAVs ! ------------------------------------------------------------------------------ ! the L1 linac consists of: 1 9.4 ft S-band section @ 50% power (L1_9_50) ! 1 9.4 ft S-band section @ 25% power (L1_9_25) ! 1 10 ft S-band section @ 25% power (L1_10_25) ! 1 0.6 m X-band section @ 32 MW power (L1X) ! the L2 linac consists of: 104 10 ft S-band sections @ 25% power (L2_10_25) ! 4 10 ft S-band sections @ 50% power (L2_10_50) ! the L3 linac consists of: 167 10 ft S-band sections @ 25% power (L3_10_25) ! 9 10 ft S-band sections @ 50% power (L3_10_50) ! 3 9.4 ft S-band sections @ 25% power (L3_9_25) ! 4 7 ft S-band sections @ 25% power (L3_7_25) ! ------------------------------------------------------------------------------ ! global LCAV parameters XbandF := 11424.0 !rf frequency (MHz) DLWLX := 0.600 !Xband structure length (m) SbandF := 2856.0 !rf frequency (MHz) DLWL10 := 3.0441 !"10 ft" (29 Sband wavelengths; 87 DLWG cavities) DLWL9 := 2.8692 !"9.4 ft" (27 1/3 Sband wavelengths; 82 DLWG cavities) DLWL7 := 2.1694 !"7 ft" (20 2/3 Sband wavelengths; 62 DLWG cavities) P25 := 1 !25% power factor P50 := SQRT(2) !50% power factor ! L1 energy profile L1phase := -33.847019 !L1 S-band rf phase (deg) L1Xphase := 180.0 !L1 X-band rf phase (deg) dEL1 := GeV2MeV*(EBC1-Ei) !total L1 energy gain (MeV) dEL1X := 14.088 !L1 X-band amplitude (MeV) PhiL1 := L1phase/360 !radians/2pi PhiL1X := L1Xphase/360 !radians/2pi gfac1 := P50*DLWL9+P25*DLWL9+P25*DLWL10 gradL1 := (dEL1-dEL1X*COS(PhiL1X*TWOPI))/(gfac1*COS(PhiL1*TWOPI)) ! L2 energy profile L2phase := -28.453131 !L2 rf phase (deg) dEL2 := GeV2MeV*(EBC2-EBC1) !total L2 energy gain (MeV) PhiL2 := L2phase/360 !radians/2pi gfac2 := 104*P25*DLWL10+4*P50*DLWL10 gradL2 := dEL2/(gfac2*COS(PhiL2*TWOPI)) ! L3 energy profile L3phase := -3.9011 !L3 rf phase (deg) dEL3 := GeV2MeV*(Ef-EBC2) !total L3 energy gain (MeV) PhiL3 := L3phase/360 !radians/2pi gfac3 := 167*P25*DLWL10+9*P50*DLWL10+3*P25*DLWL9+4*P25*DLWL7 gradL3 := dEL3/(gfac3*COS(PhiL3*TWOPI)) ! LCAV classes L1_9_50 : LCAV, TYPE="L1_9_50", FREQ=SbandF, L=DLWL9, & DELTAE=P50*gradL1*DLWL9, PHI0=PhiL1 L1_9_25 : LCAV, TYPE="L1_9_25", FREQ=SbandF, L=DLWL9, & DELTAE=P25*gradL1*DLWL9, PHI0=PhiL1 L1_10_25 : LCAV, TYPE="L1_10_25", FREQ=SbandF, L=DLWL10, & DELTAE=P25*gradL1*DLWL10, PHI0=PhiL1 L1X : LCAV, TYPE="X1_Xband", FREQ=XbandF, L=DLWLX, & DELTAE=dEL1X, PHI0=PhiL1X L2_10_25 : LCAV, TYPE="L2_10_25", FREQ=SbandF, L=DLWL10, & DELTAE=P25*gradL2*DLWL10, PHI0=PhiL2 L2_10_50 : LCAV, TYPE="L2_10_50", FREQ=SbandF, L=DLWL10, & DELTAE=P50*gradL2*DLWL10, PHI0=PhiL2 L3_10_25 : LCAV, TYPE="L3_10_25", FREQ=SbandF, L=DLWL10, & DELTAE=P25*gradL3*DLWL10, PHI0=PhiL3 L3_10_50 : LCAV, TYPE="L3_10_50", FREQ=SbandF, L=DLWL10, & DELTAE=P50*gradL3*DLWL10, PHI0=PhiL3 L3_9_25 : LCAV, TYPE="L3_9_25", FREQ=SbandF, L=DLWL9, & DELTAE=P25*gradL3*DLWL9, PHI0=PhiL3 L3_7_25 : LCAV, TYPE="L3_7_25", FREQ=SbandF, L=DLWL7, & DELTAE=P25*gradL3*DLWL7, PHI0=PhiL3 ! L1 sections K21_1b : L1_9_50 ; K21_1c : L1_9_25 ; K21_1d : L1_10_25 ; K21X : L1X ! L2 sections K21_3b : L2_10_50 ; K21_3c : L2_10_25 ; K21_3d : L2_10_25 K21_4a : L2_10_25 ; K21_4b : L2_10_25 ; K21_4c : L2_10_25 ; K21_4d : L2_10_25 K21_5a : L2_10_25 ; K21_5b : L2_10_25 ; K21_5c : L2_10_25 ; K21_5d : L2_10_25 K21_6a : L2_10_25 ; K21_6b : L2_10_25 ; K21_6c : L2_10_25 ; K21_6d : L2_10_25 K21_7a : L2_10_25 ; K21_7b : L2_10_25 ; K21_7c : L2_10_25 ; K21_7d : L2_10_25 K21_8a : L2_10_25 ; K21_8b : L2_10_25 ; K21_8c : L2_10_25 ; K21_8d : L2_10_25 K22_1a : L2_10_25 ; K22_1b : L2_10_25 ; K22_1c : L2_10_25 ; K22_1d : L2_10_25 K22_2a : L2_10_25 ; K22_2b : L2_10_25 ; K22_2c : L2_10_25 ; K22_2d : L2_10_25 K22_3a : L2_10_25 ; K22_3b : L2_10_25 ; K22_3c : L2_10_25 ; K22_3d : L2_10_25 K22_4a : L2_10_25 ; K22_4b : L2_10_25 ; K22_4c : L2_10_25 ; K22_4d : L2_10_25 K22_5a : L2_10_25 ; K22_5b : L2_10_25 ; K22_5c : L2_10_25 ; K22_5d : L2_10_25 K22_6a : L2_10_25 ; K22_6b : L2_10_25 ; K22_6c : L2_10_25 ; K22_6d : L2_10_25 K22_7a : L2_10_25 ; K22_7b : L2_10_25 ; K22_7c : L2_10_25 ; K22_7d : L2_10_25 K22_8a : L2_10_25 ; K22_8b : L2_10_25 ; K22_8c : L2_10_25 ; K22_8d : L2_10_25 K23_1a : L2_10_25 ; K23_1b : L2_10_25 ; K23_1c : L2_10_25 ; K23_1d : L2_10_25 K23_2a : L2_10_25 ; K23_2b : L2_10_25 ; K23_2c : L2_10_25 ; K23_2d : L2_10_25 K23_3a : L2_10_25 ; K23_3b : L2_10_25 ; K23_3c : L2_10_25 ; K23_3d : L2_10_25 K23_4a : L2_10_25 ; K23_4b : L2_10_25 ; K23_4c : L2_10_25 ; K23_4d : L2_10_25 K23_5a : L2_10_25 ; K23_5b : L2_10_25 ; K23_5c : L2_10_25 ; K23_5d : L2_10_25 K23_6a : L2_10_25 ; K23_6b : L2_10_25 ; K23_6c : L2_10_25 ; K23_6d : L2_10_25 K23_7a : L2_10_25 ; K23_7b : L2_10_25 ; K23_7c : L2_10_25 ; K23_7d : L2_10_25 K23_8a : L2_10_25 ; K23_8b : L2_10_25 ; K23_8c : L2_10_25 ; K23_8d : L2_10_25 K24_1a : L2_10_25 ; K24_1b : L2_10_25 ; K24_1c : L2_10_25 ; K24_1d : L2_10_25 K24_2a : L2_10_25 ; K24_2b : L2_10_25 ; K24_2c : L2_10_25 ; K24_2d : L2_10_25 K24_3a : L2_10_25 ; K24_3b : L2_10_25 ; K24_3c : L2_10_50 K24_4a : L2_10_25 ; K24_4b : L2_10_25 ; K24_4c : L2_10_50 K24_5a : L2_10_25 ; K24_5b : L2_10_25 ; K24_5c : L2_10_50 K24_6a : L2_10_25 ; K24_6b : L2_10_25 ; K24_6c : L2_10_25 ; K24_6d : L2_10_25 ! L3 sections K25_1a : L3_10_25 ; K25_1b : L3_10_25 ; K25_1c : L3_10_25 ; K25_1d : L3_10_25 K25_2a : L3_10_25 ; K25_2b : L3_10_25 ; K25_2c : L3_10_25 ; K25_2d : L3_10_25 K25_3a : L3_10_25 ; K25_3b : L3_10_25 ; K25_3c : L3_10_25 ; K25_3d : L3_10_25 K25_4a : L3_10_25 ; K25_4b : L3_10_25 ; K25_4c : L3_10_25 ; K25_4d : L3_10_25 K25_5b : L3_10_50 ; K25_5c : L3_10_25 ; K25_5d : L3_10_25 K25_6a : L3_10_25 ; K25_6b : L3_10_25 ; K25_6c : L3_10_25 ; K25_6d : L3_10_25 K25_7a : L3_10_25 ; K25_7b : L3_10_25 ; K25_7c : L3_10_25 ; K25_7d : L3_10_25 K25_8a : L3_10_25 ; K25_8b : L3_10_25 ; K25_8c : L3_10_25 ; K25_8d : L3_10_25 K26_1a : L3_10_25 ; K26_1b : L3_10_25 ; K26_1c : L3_10_25 ; K26_1d : L3_10_25 K26_2a : L3_10_25 ; K26_2b : L3_10_25 ; K26_2c : L3_10_25 ; K26_2d : L3_10_25 K26_3a : L3_10_25 ; K26_3b : L3_10_25 ; K26_3c : L3_10_25 ; K26_3d : L3_10_25 K26_4a : L3_10_25 ; K26_4b : L3_10_25 ; K26_4c : L3_10_25 ; K26_4d : L3_10_25 K26_5a : L3_10_25 ; K26_5b : L3_10_25 ; K26_5c : L3_10_25 ; K26_5d : L3_10_25 K26_6a : L3_10_25 ; K26_6b : L3_10_25 ; K26_6c : L3_10_25 ; K26_6d : L3_10_25 K26_7a : L3_10_25 ; K26_7b : L3_10_25 ; K26_7c : L3_10_25 ; K26_7d : L3_10_25 K26_8a : L3_10_25 ; K26_8b : L3_10_25 ; K26_8c : L3_10_25 ; K26_8d : L3_10_25 K27_1a : L3_10_25 ; K27_1b : L3_10_25 ; K27_1c : L3_10_25 ; K27_1d : L3_10_25 K27_2a : L3_10_25 ; K27_2b : L3_10_25 ; K27_2c : L3_10_25 ; K27_2d : L3_10_25 K27_3a : L3_10_25 ; K27_3b : L3_10_25 ; K27_3c : L3_10_25 ; K27_3d : L3_10_25 K27_4a : L3_10_25 ; K27_4b : L3_10_25 ; K27_4c : L3_10_25 ; K27_4d : L3_10_25 K27_5a : L3_10_25 ; K27_5b : L3_10_25 ; K27_5c : L3_10_25 ; K27_5d : L3_10_25 K27_6a : L3_10_25 ; K27_6b : L3_10_25 ; K27_6c : L3_10_50 K27_7a : L3_10_25 ; K27_7b : L3_10_25 ; K27_7c : L3_10_25 ; K27_7d : L3_10_25 K27_8a : L3_10_25 ; K27_8b : L3_10_25 ; K27_8c : L3_10_25 ; K27_8d : L3_10_25 K28_1a : L3_10_25 ; K28_1b : L3_10_25 ; K28_1c : L3_10_50 K28_2a : L3_10_25 ; K28_2b : L3_10_25 ; K28_2c : L3_10_25 ; K28_2d : L3_10_25 K28_3a : L3_10_25 ; K28_3b : L3_10_25 ; K28_3c : L3_10_25 ; K28_3d : L3_10_25 K28_4a : L3_10_25 ; K28_4b : L3_10_25 ; K28_4c : L3_10_50 K28_5a : L3_10_25 ; K28_5b : L3_10_25 ; K28_5c : L3_10_25 ; K28_5d : L3_10_25 K28_6a : L3_10_25 ; K28_6b : L3_10_25 ; K28_6c : L3_10_25 ; K28_6d : L3_10_25 K28_7a : L3_10_25 ; K28_7b : L3_10_25 ; K28_7c : L3_10_50 K28_8a : L3_10_25 ; K28_8b : L3_10_25 ; K28_8c : L3_10_25 ; K28_8d : L3_10_25 K29_1a : L3_10_25 ; K29_1b : L3_10_25 ; K29_1c : L3_10_50 K29_2a : L3_10_25 ; K29_2b : L3_10_25 ; K29_2c : L3_10_25 ; K29_2d : L3_10_25 K29_3a : L3_10_25 ; K29_3b : L3_10_25 ; K29_3c : L3_10_25 ; K29_3d : L3_10_25 K29_4a : L3_10_25 ; K29_4b : L3_10_25 ; K29_4c : L3_10_50 K29_5a : L3_10_25 ; K29_5b : L3_10_25 ; K29_5c : L3_10_50 K29_6a : L3_10_25 ; K29_6b : L3_10_25 ; K29_6c : L3_10_25 ; K29_6d : L3_10_25 K29_7a : L3_10_25 ; K29_7b : L3_10_25 ; K29_7c : L3_10_25 ; K29_7d : L3_9_25 K29_8a : L3_10_25 ; K29_8b : L3_10_25 ; K29_8c : L3_10_25 ; K29_8d : L3_10_25 K30_1a : L3_10_25 ; K30_1b : L3_10_25 ; K30_1c : L3_10_25 ; K30_1d : L3_7_25 K30_2a : L3_10_25 ; K30_2b : L3_10_25 ; K30_2c : L3_10_25 ; K30_2d : L3_10_25 K30_3a : L3_10_25 ; K30_3b : L3_10_25 ; K30_3c : L3_10_25 ; K30_3d : L3_7_25 K30_4a : L3_10_25 ; K30_4b : L3_10_25 ; K30_4c : L3_10_25 ; K30_4d : L3_7_25 K30_5a : L3_10_25 ; K30_5b : L3_10_25 ; K30_5c : L3_10_25 ; K30_5d : L3_7_25 K30_6a : L3_10_25 ; K30_6b : L3_10_25 ; K30_6c : L3_10_25 ; K30_6d : L3_9_25 K30_7a : L3_10_25 ; K30_7b : L3_10_25 ; K30_7c : L3_10_25 ; K30_7d : L3_9_25 K30_8a : L3_10_25 ; K30_8b : L3_10_25 ; K30_8c : L3_10_50 ! transverse deflecting cavities TCAV0 : DRIFT, L=0.55, TYPE="TCAV0" ! ============================================================================== ! BENDs ! ------------------------------------------------------------------------------ ! global BEND parameters LB0 := 0.2032 !5D7.1 "Z" length (m) GB0 := 1.05*in2m !5D7.1 gap height (m) LB1 := 0.2032 !5D7.1 "Z" length (m) GB1 := 1.05*in2m !5D7.1 gap height (m) LB2 := 0.4000 !1D30.5 "Z" length (m) GB2 := 0.0254 !1D30.5 gap height (m) LW1 := 0.1000 !pre-BC2 wiggler (B1,B4) "Z" length (m) LW2 := 0.2000 !pre-BC2 wiggler (B2,B3) "Z" length (m) GW := 0.0254/2 !guess at wiggler gap height (m) LB3 := 2.623 !4D102.36T effective length (m) GB3 := 0.023 !4D102.36T gap height (m) LVB := 0.4 !vertical bend effective length (m) GVB := 0.023 !vertical bend gap height (m) ! DL1 ADL1 := -35.0*RADDEG !injection line angle (rad) AB0 := ADL1/2 !full bend angle (rad) LeffB0 := LB0*AB0/(2*SIN(AB0/2)) !full bend path length (m) AEB0 := AB0/2 !edge angles B01A : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E1=AEB0, FINT=0.5, FINTX=0 B01B : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E2=AEB0, FINT=0, FINTX=0.5 B02A : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E1=AEB0, FINT=0.5, FINTX=0 B02B : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E2=AEB0, FINT=0, FINTX=0.5 ! BC1-1 Brho1 := Cb*EBC1 !beam rigidity at BC1 (kG-m) BB11 := -3.305139713147 !chicane-1 bend field (kG) RB11 := Brho1/BB11 !chicane-1 bend radius (m) AB11 := ASIN(LB1/RB11) !full chicane bend angle (rad) AB11S := ASIN((LB1/2)/RB11) !"short" half chicane bend angle (rad) LB11S := RB11*AB11S !"short" half chicane bend path length (m) AB11L := AB11-AB11S !"long" half chicane bend angle (rad) LB11L := RB11*AB11L !"long" half chicane bend path length (m) B11A : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=+AB11S, HGAP=GB1/2, & E1=0, FINT=0.5, FINTX=0 B11B : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=+AB11L, HGAP=GB1/2, & FINT=0, E2=+AB11, FINTX=0.5 B12A : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=-AB11L, HGAP=GB1/2, & E1=-AB11, FINT=0.5, FINTX=0 B12B : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=-AB11S, HGAP=GB1/2, & FINT=0, E2=0, FINTX=0.5 B13A : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=-AB11S, HGAP=GB1/2, & E1=0, FINT=0.5, FINTX=0 B13B : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=-AB11L, HGAP=GB1/2, & FINT=0, E2=-AB11, FINTX=0.5 B14A : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=+AB11L, HGAP=GB1/2, & E1=+AB11, FINT=0.5, FINTX=0 B14B : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=+AB11S, HGAP=GB1/2, & FINT=0, E2=0, FINTX=0.5 ! magnet-to-magnet path lengths LD11x := 0.0166 !drift outboard of new BC1 to keep length const. [m] LD11 := 2.6 !outer bend-to-bend "Z" distance (m) LD11o := LD11/COS(AB11) !outer bend-to-bend path length (m) LD11i := 0.5 !inner bend-to-bend "Z" distance (m) ! BC2-1 Brho2 := Cb*EBC2 !beam rigidity at BC2 (kG-m) BB21 := -12.398833952746 !chicane bend field (kG) RB21 := Brho2/BB21 !chicane bend radius (m) AB21 := ASIN(LB2/RB21) !full chicane bend angle (rad) AB21S := ASIN((LB2/2)/RB21) !"short" half chicane bend angle (rad) LB21S := RB21*AB21S !"short" half chicane bend path length (m) AB21L := AB21-AB21S !"long" half chicane bend angle (rad) LB21L := RB21*AB21L !"long" half chicane bend path length (m) B21A : SBEN, TYPE="1D30.5", L=LB21S, ANGLE=+AB21S, HGAP=GB2/2, & E1=0, FINT=0.5, FINTX=0 B21B : SBEN, TYPE="1D30.5", L=LB21L, ANGLE=+AB21L, HGAP=GB2/2, & FINT=0, E2=+AB21, FINTX=0.5 B22A : SBEN, TYPE="1D30.5", L=LB21L, ANGLE=-AB21L, HGAP=GB2/2, & E1=-AB21, FINT=0.5, FINTX=0 B22B : SBEN, TYPE="1D30.5", L=LB21S, ANGLE=-AB21S, HGAP=GB2/2, & FINT=0, E2=0, FINTX=0.5 B23A : SBEN, TYPE="1D30.5", L=LB21S, ANGLE=-AB21S, HGAP=GB2/2, & E1=0, FINT=0.5, FINTX=0 B23B : SBEN, TYPE="1D30.5", L=LB21L, ANGLE=-AB21L, HGAP=GB2/2, & FINT=0, E2=-AB21, FINTX=0.5 B24A : SBEN, TYPE="1D30.5", L=LB21L, ANGLE=+AB21L, HGAP=GB2/2, & E1=+AB21, FINT=0.5, FINTX=0 B24B : SBEN, TYPE="1D30.5", L=LB21S, ANGLE=+AB21S, HGAP=GB2/2, & FINT=0, E2=0, FINTX=0.5 ! magnet-to-magnet path lengths LD21x := 0.7136 !drift outboard of new BC2 to keep length const. (m) LD21i := 0.5 !inner bend-to-bend "Z" distance (m) LD1 := 4.00 !outer bend-to-bend "Z" distance (m) LD2 := 6.00 !outer bend-to-bend "Z" distance (m) LD3 := 9.00 !outer bend-to-bend "Z" distance (m) LD4 := 1.00 !outer bend-to-bend "Z" distance (m) LDo1 := LD1/COS(AN) !outer bend-to-bend path length (m) LDo2 := LD2/COS(AN)-LQE !outer bend-to-bend path length (m) LDo3 := LD3/COS(AN)-LQE !outer bend-to-bend path length (m) LDo4 := LD4/COS(AN) !outer bend-to-bend path length (m) ! pre-BC2 one-period wiggler Bwig := 39.646 !wiggler bend field (kG) RW := Brho2/Bwig !wiggler bend radius (m) AW1 := ASIN(LW1/RW) !wiggler bend-1 angle (rad) AW1S := ASIN((LW1/2)/RW) !"short" half bend-1 angle (rad) LW1S := RW*AW1S !"short" half bend-1 path length (m) AW1L := AW1-AW1S !"long" half bend-1 angle (rad) LW1L := RW*AW1L !"long" half bend-1 path length (m) AW2 := ASIN(LW2/RW) !wiggler bend-2 angle (rad) AW2S := ASIN((LW2/2)/RW) !"short" half bend-2 angle (rad) LW2S := RW*AW2S !"short" half bend-2 path length (m) AW2L := AW2-AW2S !"long" half bend-2 angle (rad) LW2L := RW*AW2L !"long" half bend-2 path length (m) B1WA : SBEN, L=LW1S, ANGLE=+AW1S, HGAP=GW/2, E1=0, FINT=0.5, FINTX=0 B1WB : SBEN, L=LW1L, ANGLE=+AW1L, HGAP=GW/2, E2=+AW1, FINT=0, FINTX=0.5 B2WA : SBEN, L=LW2S, ANGLE=-AW2S, HGAP=GW/2, E1=-AW2/2, FINT=0.5, FINTX=0 B2WB : SBEN, L=LW2L, ANGLE=-AW2L, HGAP=GW/2, E2=-AW2/2, FINT=0, FINTX=0.5 B3WA : SBEN, L=LW2S, ANGLE=+AW2S, HGAP=GW/2, E1=+AW2/2, FINT=0.5, FINTX=0 B3WB : SBEN, L=LW2L, ANGLE=+AW2L, HGAP=GW/2, E2=+AW2/2, FINT=0, FINTX=0.5 B4WA : SBEN, L=LW1S, ANGLE=-AW1S, HGAP=GW/2, E1=0, FINT=0.5, FINTX=0 B4WB : SBEN, L=LW1L, ANGLE=-AW1L, HGAP=GW/2, E2=-AW1, FINT=0, FINTX=0.5 ! magnet-to-magnet path lengths W0 := 0.2 !post-wiggler "Z" distance (m) W1 := LW1/2/COS(AW1) !bend-1-to-bend-2 path length (m) W2 := LW2/COS(AW2) !bend-2-to-bend-3 path length (m) W3 := 0.93160+0.2+0.518 !bend-2-to-bend-3 path length (m) ! DL2 AB3 := 0.65*RADDEG B31A : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=+AB3/2, HGAP=GB3/2, & E1=+AB3/2, FINT=0.5, FINTX=0 B31B : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=+AB3/2, HGAP=GB3/2, & FINT=0, E2=+AB3/2, FINTX=0.5 B32A : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=+AB3/2, HGAP=GB3/2, & E1=+AB3/2, FINT=0.5, FINTX=0 B32B : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=+AB3/2, HGAP=GB3/2, & FINT=0, E2=+AB3/2, FINTX=0.5 B33A : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=-AB3/2, HGAP=GB3/2, & E1=-AB3/2, FINT=0.5, FINTX=0 B33B : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=-AB3/2, HGAP=GB3/2, & FINT=0, E2=-AB3/2, FINTX=0.5 B34A : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=-AB3/2, HGAP=GB3/2, & E1=-AB3/2, FINT=0.5, FINTX=0 B34B : SBEN, TYPE="4D102.36T", L=LB3/2, ANGLE=-AB3/2, HGAP=GB3/2, & FINT=0, E2=-AB3/2, FINTX=0.5 AVB := -(0.2727279*RADDEG)/2 !bend up VB1A : SBEN, TYPE="VB", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT VB1B : SBEN, TYPE="VB", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & FINT=0, E2=AVB/2, FINTX=0.5, TILT VB2A : SBEN, TYPE="VB", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT VB2B : SBEN, TYPE="VB", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & FINT=0, E2=AVB/2, FINTX=0.5, TILT ! ============================================================================== ! QUADs ! ------------------------------------------------------------------------------ ! global QUAD parameters LQA := 0.102 !QA effective length (m) rQA := (1.2*in2m)/2 !QA pole-tip radius (m) LQE := 0.1068 !QE effective length (m) rQE := (1.085*in2m)/2 !QE pole-tip radius (m) LQ := 0.1549 !1Q5.6 effective length (m) rQ := (1.0*in2m)/2 !1Q5.6 pole-tip radius (m) LQF := 0.46092 !0.91Q17.72 effective length (m) rQF := 0.023/2 !0.91Q17.72 pole-tip radius (m) ! DL1 KQE01 := -0.067852595276 KQE02 := 4.486215785002 KQE03 := -7.950605258917 KQE04 := 10.655421246488 ! KQE01 := -4.057389152123 ! KQE02 := 8.521038104394 ! KQE03 := -8.557756083635 ! KQE04 := 12.727649783196 KQM01 := 11.974948010683 KQM02 := -12.852875533245 KQM03 := -13.658768513187 KQM04 := 11.090013377372 ! KQM01 := 10.781667620918 ! KQM02 := -12.119056073219 ! KQM03 := -15.895328838576 ! KQM04 := 11.202330874302 KQB := 24.638389547568 QE01 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQE01, APER=rQ QE02 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQE02, APER=rQ QE03 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQE03, APER=rQ QE04 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQE04, APER=rQ QM01 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQM01, APER=rQ QM02 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQM02, APER=rQ QB : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQB, APER=rQ QM03 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQM03, APER=rQ QM04 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQM04, APER=rQ ! L1 KQL1 := 3.971710393254 QFL1 : QUAD, TYPE="QA", L=LQA/2, K1=+KQL1, APER=rQA QDL1 : QUAD, TYPE="QA", L=LQA/2, K1=-KQL1, APER=rQA KQA11 := -KQL1 KQA12 := 2.003171080554 !-KQL1 ! KQA12 := KQL1 !-KQL1 ! KQA12 := 3.35605091348 !-KQL1 QA11 : QUAD, TYPE="QA", L=LQA/2, K1=KQA11, APER=rQA QA12 : QUAD, TYPE="QA", L=LQA/2, K1=KQA12, APER=rQA ! BC1 KQ21201 := -10.659954554493 KQM11 := 6.141626011051 KQM12 := -5.64349590718 KQM13 := 6.261762534575 ! KQ21201 := -7.264362627079 ! KQM11 := 5.483063403614 ! KQM12 := -5.705943766011 ! KQM13 := 6.980714317716 KCQ11 := 0 KCQ12 := 0 KQ21301 := -0.105474350047E-9 KQM14 := 9.113029197097 KQM15 := -8.934725800652 ! KQ21301 := -1.101090230086 ! KQM14 := 8.886188352509 ! KQM15 := -8.433425169522 Q21201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21201, APER=rQE QM11 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQM11, APER=rQ CQ11 : QUAD, TYPE="QA", L=LQA/2, K1=KCQ11, APER=rQA CQ12 : QUAD, TYPE="QA", L=LQA/2, K1=KCQ12, APER=rQA QM12 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQM12, APER=rQ QM13 : QUAD, TYPE="1Q5.6", L=LQ/2, K1=KQM13, APER=rQ Q21301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21301, APER=rQE QM14 : QUAD, TYPE="QE", L=LQE/2, K1=KQM14, APER=rQE QM15 : QUAD, TYPE="QE", L=LQE/2, K1=KQM15, APER=rQE ! L2 KQL2 := 0.708388522907 QFL2 : QUAD, TYPE="QE", L=LQE/2, K1=+KQL2, APER=rQE QDL2 : QUAD, TYPE="QE", L=LQE/2, K1=-KQL2, APER=rQE KQ21401 := 0.996064957958 KQ21501 := -0.809953650073 ! KQ21401 := 0.849859085188 ! KQ21501 := -0.765960750317 KQ21601 := KQL2 KQ21701 := -KQL2 KQ21801 := 0.738055885452 KQ21901 := -0.721456895953 KQ22201 := 0.720891789708 KQ22301 := -0.760137599135 KQ22401 := KQL2 KQ22501 := -KQL2 KQ22601 := KQL2 KQ22701 := -KQL2 KQ22801 := 0.747522525929 KQ22901 := -0.709893413644 KQ23201 := 0.720724547039 KQ23301 := -0.741755189278 KQ23401 := KQL2 KQ23501 := -KQL2 KQ23601 := KQL2 KQ23701 := -KQL2 KQ23801 := 0.767443601658 KQ23901 := -0.7203438666 KQ24201 := 0.758705212737 KQ24301 := -0.800698732673 KQ24401 := 0.877038085261 KQ24501 := -1.10145514537 !gets varied twice in fitting ... final value KQ24601 := 0.483191027175 Q21401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21401, APER=rQE Q21501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21501, APER=rQE Q21601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21601, APER=rQE Q21701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21701, APER=rQE Q21801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21801, APER=rQE Q21901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21901, APER=rQE Q22201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22201, APER=rQE Q22301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22301, APER=rQE Q22401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22401, APER=rQE Q22501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22501, APER=rQE Q22601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22601, APER=rQE Q22701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22701, APER=rQE Q22801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22801, APER=rQE Q22901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22901, APER=rQE Q23201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23201, APER=rQE Q23301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23301, APER=rQE Q23401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23401, APER=rQE Q23501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23501, APER=rQE Q23601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23601, APER=rQE Q23701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23701, APER=rQE Q23801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23801, APER=rQE Q23901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23901, APER=rQE Q24201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24201, APER=rQE Q24301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24301, APER=rQE Q24401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24401, APER=rQE Q24501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24501, APER=rQE Q24601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24601, APER=rQE ! BC2 KQ24701 := -1.369525830736 KQM21 := 1.409429140502 KCQ21 := 0 KCQ22 := 0 KQM22 := 4.592446341848 KQ24901 := -4.795945083571 Q24701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24701, APER=rQE QM21 : QUAD, TYPE="QE", L=LQE/2, K1=KQM21, APER=rQE CQ21 : QUAD, TYPE="QE", L=LQE/2, K1=KCQ21, APER=rQE CQ22 : QUAD, TYPE="QE", L=LQE/2, K1=KCQ22, APER=rQE QM22 : QUAD, TYPE="QE", L=LQE/2, K1=KQM22, APER=rQE Q24901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24901, APER=rQE ! L3 KQFL3 := 0.461731952486 KQDL3 := -0.448604022671 QFL3 : QUAD, TYPE="QE", L=LQE/2, K1=KQFL3, APER=rQE QDL3 : QUAD, TYPE="QE", L=LQE/2, K1=KQDL3, APER=rQE KQ25201 := 0.953313073715 KQ25301 := -0.937995402506 KQ25401 := 0.598365644861 KQ25501 := -0.486919050956 KQ25601 := KQFL3 KQ25701 := KQDL3 KQ25801 := 0.479348856797 KQ25901 := -0.439265589507 KQ26201 := 0.449980474764 KQ26301 := -0.456579766101 KQ26401 := KQFL3 KQ26501 := KQDL3 KQ26601 := KQFL3 KQ26701 := KQDL3 KQ26801 := 0.475719104137 KQ26901 := -0.441753313514 KQ27201 := 0.457931994354 KQ27301 := -0.460242182401 KQ27401 := KQFL3 KQ27501 := KQDL3 KQ27601 := KQFL3 KQ27701 := KQDL3 KQ27801 := 0.475841527458 KQ27901 := -0.441937433398 KQ28201 := 0.458005598284 KQ28301 := -0.460200569124 KQ28401 := KQFL3 KQ28501 := KQDL3 KQ28601 := KQFL3 KQ28701 := KQDL3 KQ28801 := 0.475905349628 KQ28901 := -0.442036938111 KQ29201 := 0.458048903681 KQ29301 := -0.460186767736 KQ29401 := KQFL3 KQ29501 := KQDL3 KQ29601 := KQFL3 KQ29701 := KQDL3 KQ29801 := 0.476917263535 KQ29901 := -0.441991167731 KQ30201 := 0.457503959529 KQ30301 := -0.460585990535 KQ30401 := KQFL3 KQ30501 := KQDL3 KQ30601 := KQFL3 KQ30701 := KQDL3 KQ30801 := 0.418749839133 Q25201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25201, APER=rQE Q25301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25301, APER=rQE Q25401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25401, APER=rQE Q25501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25501, APER=rQE Q25601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25601, APER=rQE Q25701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25701, APER=rQE Q25801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25801, APER=rQE Q25901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25901, APER=rQE Q26201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26201, APER=rQE Q26301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26301, APER=rQE Q26401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26401, APER=rQE Q26501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26501, APER=rQE Q26601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26601, APER=rQE Q26701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26701, APER=rQE Q26801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26801, APER=rQE Q26901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26901, APER=rQE Q27201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27201, APER=rQE Q27301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27301, APER=rQE Q27401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27401, APER=rQE Q27501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27501, APER=rQE Q27601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27601, APER=rQE Q27701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27701, APER=rQE Q27801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27801, APER=rQE Q27901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27901, APER=rQE Q28201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28201, APER=rQE Q28301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28301, APER=rQE Q28401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28401, APER=rQE Q28501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28501, APER=rQE Q28601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28601, APER=rQE Q28701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28701, APER=rQE Q28801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28801, APER=rQE Q28901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28901, APER=rQE Q29201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29201, APER=rQE Q29301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29301, APER=rQE Q29401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29401, APER=rQE Q29501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29501, APER=rQE Q29601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29601, APER=rQE Q29701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29701, APER=rQE Q29801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29801, APER=rQE Q29901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29901, APER=rQE Q30201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30201, APER=rQE Q30301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30301, APER=rQE Q30401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30401, APER=rQE Q30501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30501, APER=rQE Q30601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30601, APER=rQE Q30701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30701, APER=rQE Q30801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30801, APER=rQE ! BSY K50Q := 0.275314085856 KQ50Q1 := -K50Q KQ50Q2 := K50Q KQ50Q3 := -K50Q KQSM1 := 0 KQ5 := -0.191400829776 KQ6 := 0.161837391065 KQA0 := 0.085206882089 Q50Q1 : QUAD, TYPE="50Q1", L=0.093671, K1=KQ50Q1, APER=0.010325 Q50Q2 : QUAD, TYPE="50Q2", L=0.162151, K1=KQ50Q2, APER=0.010325 Q50Q3 : QUAD, TYPE="50Q3", L=0.143254, K1=KQ50Q3, APER=0.010325 QSM1 : QUAD, TYPE="FFTBQSM", L=0.101, K1=KQSM1, APER=0.0115 Q5 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQ5, APER=rQF Q6 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQ6, APER=rQF QA0 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQA0, APER=rQF ! DL2 KDL21 := -1.475282366074 KDL22 := 1.612553926687 KDL23 := 1.565870513515 KDL24 := -1.632341217451 KQEF := 0.601029777635 KQED := -KQEF KQL31 := KDL21 KQL32 := KDL22 KQL33 := KDL21 KQL34 := KDL23 KQL35 := KDL24 KQL36 := KDL23 KQL37 := KDL21 KQL38 := KDL22 KQL39 := KDL21 KQM31 := 1.051200676306 KQM32 := -1.637414043186 KQVBF := 1.65 KQVBD := -1.65 KQM33 := -1.366884308411 KQM34 := 0.585678564316 KQM35 := 1.127883819532 KQM36 := -0.554321641988 KQM37 := -0.995921251742 KQM38 := 1.039662213713 QL31 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL31, APER=rQF QL32 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL32, APER=rQF QL33 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL33, APER=rQF QL34 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL34, APER=rQF QL35 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL35, APER=rQF QL36 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL36, APER=rQF QL37 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL37, APER=rQF QL38 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL38, APER=rQF QL39 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQL39, APER=rQF QM31 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM31, APER=rQF QM32 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM32, APER=rQF QVB1 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVBF, APER=rQF QVB2 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVBD, APER=rQF QVB3 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVBD, APER=rQF QVB4 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVBF, APER=rQF QM33 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM33, APER=rQF QM34 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM34, APER=rQF QE31 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQED, APER=rQF QE32 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQEF, APER=rQF QE33 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQED, APER=rQF QE34 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQEF, APER=rQF QE35 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQED, APER=rQF QE36 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQEF, APER=rQF QM35 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM35, APER=rQF QM36 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM36, APER=rQF QM37 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM37, APER=rQF QM38 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM38, APER=rQF ! ============================================================================== ! DRIFTs ! ------------------------------------------------------------------------------ ! L1/2/3 FODO cells D9 : DRIF, L=DLWL9 D10 : DRIF, L=DLWL10 DAQ1 : DRIF, L=0.0342 DAQ2 : DRIF, L=0.027 ! DL1 LGGUN := 7.51*0.3048 LGL0 := 2*3.0441+1.0 LGBEND := 0.95 LGEMIT := 9.000328707307 LGMATCH := 1.5134597681 DGGUN : DRIF, L=LGGUN DGL0 : DRIF, L=LGL0 DGEMIT : DRIF, L=LGEMIT DGBEND : DRIF, L=LGBEND DGMATCH : DRIF, L=LGMATCH DL0 : DRIF, L=1.0 BMIN0 := 1.25 !beta at WS02 (m) DE00 : DRIF, L=0.50 DE01 : DRIF, L=0.25 DE02 : DRIF, L=LGEMIT-(6*LQ+2*SQRT(3)*BMIN0+2.55) DE03 : DRIF, L=0.5 DE04 : DRIF, L=0.375 DE05 : DRIF, L=SQRT(3)*BMIN0/10 DE06 : DRIF, L=SQRT(3)*BMIN0/10 DE07 : DRIF, L=0.375 DE08 : DRIF, L=0.25 DE09 : DRIF, L=0.30 DE02b : DRIF, L=0.25 DE02a : DRIF, L=DE02[L]-(TCAV0[L]+DE02b[L]) DB00 : DRIF, L=(LGBEND-LQ)/2, TYPE="CSR" DM00 : DRIF, L=0.30, TYPE="CSR" DM01 : DRIF, L=0.25, TYPE="CSR" DM02 : DRIF, L=LGMATCH-(2*LQ+0.55), TYPE="CSR" ! L1 LAQA := 0.03645 DAQA : DRIF, L=LAQA ! BC1 BMIN1 := 0.783 DL1X : DRIF, L=0.25 DM10 : DRIF, L=0.25 DM11 : DRIF, L=0.25 DM12 : DRIF, L=0.3 DBQ1 : DRIF, L=0.15, TYPE="CSR" D11o : DRIF, L=LD11o-(DBQ1[L]+LQA), TYPE="CSR" D11i : DRIF, L=LD11i/2, TYPE="CSR" DM13 : DRIF, L=0.3, TYPE="CSR" DM14 : DRIF, L=0.515877506673, TYPE="CSR" DM15 : DRIF, L=0.613096254453+0.5, TYPE="CSR" DWW1 : DRIF, L=BMIN1*SQRT(3) DM16 : DRIF, L=0.25 DM17 : DRIF, L=1.833434238874-0.5 DM18 : DRIF, L=0.25 DM19 : DRIF, L=0.027 DM17a : DRIF, L=DM17[L]/2 DM17b : DRIF, L=DM17[L]/2 ! L2 and L3 DAQ3 : DRIF, L=0.3533 DAQ4 : DRIF, L=2.5527 DAQ4A : DRIF, L=0.5 DAQ4B : DRIF, L=2.0527 DAQ5 : DRIF, L=2.841 DAQ6 : DRIF, L=0.2373 DAQ7 : DRIF, L=0.2091 DAQ8 : DRIF, L=0.9089 DAQ9 : DRIF, L=0.7073 DAQ10 : DRIF, L=0.2286 DAQ11 : DRIF, L=0.0231 DAQ12 : DRIF, L=0.2130 DAQ13 : DRIF, L=0.0087 DAQ14 : DRIF, L=0.2274 DAQ15 : DRIF, L=3.9709 TCAVh : DRIF, L=2.4380/2 D255a : DRIF, L=0.6061 ! Pre-BC2 wiggler DW0 : DRIF, L=W0 DW1 : DRIF, L=W1, TYPE="CSR" DW2 : DRIF, L=W2, TYPE="CSR" DW3 : DRIF, L=W3, TYPE="CSR" ! BC2 DM20 : DRIF, L=0.0342 DM21A : DRIF, L=0.2 DM21B : DRIF, L=0.2 DM21C : DRIF, L=0.2, TYPE="CSR" DBQ2a : DRIF, L=LDo1, TYPE="CSR" D21oa : DRIF, L=LDo2, TYPE="CSR" D21i : DRIF, L=LD21i/2, TYPE="CSR" D21ob : DRIF, L=LDo3, TYPE="CSR" DBQ2b : DRIF, L=LDo4, TYPE="CSR" D21x : DRIF, L=LD21x, TYPE="CSR" DM23A : DRIF, L=0.4, TYPE="CSR" DM23B : DRIF, L=0.410385, TYPE="CSR" DM24 : DRIF, L=0.25, TYPE="CSR" DM25 : DRIF, L=0.027 ! BSY DRIF0105 : DRIF, L=0.134786 DRIF0106 : DRIF, L=0.140208 DRIF0107 : DRIF, L=1.605264 DRIF0108 : DRIF, L=0.0184 DRIF0109 : DRIF, L=2.688336 DRIF0110 : DRIF, L=0.35052 DRIF0111 : DRIF, L=2.93 DRIF0112 : DRIF, L=0.5411 DRIF0113 : DRIF, L=2.0764 DRIF0114 : DRIF, L=4.843132 DRIF0115 : DRIF, L=0.382923 DRIF0116 : DRIF, L=0.128016 DRIF0117 : DRIF, L=0.950976 DRIF0118 : DRIF, L=0.192024 DRIF0119 : DRIF, L=0.466344 DRIF0120 : DRIF, L=0.331248 DRIF0121 : DRIF, L=0.566 DRIF0122 : DRIF, L=0.247 DRIF0123 : DRIF, L=0.459 DRIF0124 : DRIF, L=0.487899 DRIF0125 : DRIF, L=0.204216 DRIF0126 : DRIF, L=0.377343 B50B1 : DRIF, L=1.132027 DR19 : DRIF, L=0.76197 DR20 : DRIF, L=17.808583 DR21 : DRIF, L=9.09461 DR22 : DRIF, L=0.578 DR23 : DRIF, L=0.1524 A4DXL : DRIF, L=0.08335 DR23A : DRIF, L=0.0233 DR23B : DRIF, L=0.134 A4DYL : DRIF, L=0.08335 DR24 : DRIF, L=0.0684 PMV : DRIF, L=0.3429 DR25 : DRIF, L=0.2032 DR25A : DRIF, L=0.255 FPM1 : DRIF, L=0.83085 PM1 : DRIF, L=0.600075 DR26 : DRIF, L=2.708228 DR27 : DRIF, L=4.901982 DR28 : DRIF, L=65.897951 D10D : DRIF, L=4.29893 DMB01 : DRIF, L=3.687288 DMB02 : DRIF, L=0.27604 H1DL : DRIF, L=0.08335 DM03 : DRIF, L=0.110211 V1DL : DRIF, L=0.08335 DM04 : DRIF, L=0.49955 DM05 : DRIF, L=0.660502 DM08 : DRIF, L=0.686013 DM09 : DRIF, L=0.550794 DM10B : DRIF, L=0.423278 DQSM1 : DRIF, L=0.23738 DM11B : DRIF, L=0.1016 I4 : DRIF, L=0.32385 I5 : DRIF, L=0.32385 DM12A : DRIF, L=0.044958 I6 : DRIF, L=0.32385 DM12B : DRIF, L=1.449314 DM2 : DRIF, L=0.561408 D2L : DRIF, L=0.6096 DM3 : DRIF, L=0.1524 ST60L : DRIF, L=0.6096 DM4 : DRIF, L=9.211462 ST61L : DRIF, L=0.6096 DM5 : DRIF, L=0.561379 DM6 : DRIF, L=0.567588 DMONI : DRIF, L=0.009525 WALL : DRIF, L=16.764 ! DL2 L20cm := 0.2 L50cm := 0.5 L75cm := 0.75 LDVB2 := 0.403932448893 LE3 := 1.23 D20cm : DRIF, L=L20cm DDL1 : DRIF, L=1.63576, TYPE="CSR" DDL2 : DRIF, L=1.25963, TYPE="CSR" DDL3 : DRIF, L=L20cm, TYPE="CSR" DDL4 : DRIF, L=1.42153, TYPE="CSR" DDL5 : DRIF, L=1.39587, TYPE="CSR" D50cm : DRIF, L=L50cm D75cm : DRIF, L=L75cm D50cmC : DRIF, L=L50cm, TYPE="CSR" D75cmC : DRIF, L=L75cm, TYPE="CSR" DVB1 : DRIF, L=L50cm, TYPE="CSR" DVB2 : DRIF, L=LDVB2, TYPE="CSR" DE3 : DRIF, L=LE3 ! ============================================================================== ! MARKERs ! ------------------------------------------------------------------------------ ! wire scanners WS01 : MARK !DL1- emittance WS02 : MARK !DL1- emittance WS03 : MARK !DL1- emittance WS04 : MARK !DL1 energy spread WS11 : MARK !BC1 energy spread WS12 : HKIC !BC1+ emittance WS13 : HKIC !BC1+ emittance WS14 : HKIC !BC1+ emittance WS21 : MARK !LI24 emittance WS22 : MARK !LI24 emittance WS23 : MARK !LI24 emittance WS24 : MARK !BC2- emittance WS25 : MARK !BC2 energy spread W044 : MARK !LI27 emittance (existing; moved) W144 : MARK !LI28 emittance W444 : MARK !LI28 emittance W544 : MARK !LI28 emittance (existing; moved) WS31 : MARK !DL2 energy spread WS32 : MARK !DL2+ emittance WS33 : MARK !DL2+ emittance WS34 : MARK !DL2+ emittance WS35 : MARK !DL2+ emittance ! profile monitors PR01 : MARK !DL1 energy spread PR11 : MARK !BC1 energy spread PR21 : MARK !BC2 energy spread TCAVPROF : MARK !LI25 longitudinal diagnostics PR31 : MARK !DL2 nergy spread ! bunch length monitors BL01 : MARK !DL1- BL02 : MARK !DL1+ BL11 : MARK !BC1+ BL21 : MARK !BC2+ BL31 : MARK !DL2+ ! bunch charge monitors (toroids) I01 : MARK !DL1- I02 : MARK !DL1+ I11 : MARK !BC1+ I21 : MARK !BC2+ I31 : MARK !DL2+ ! collimators CE01 : MARK !DL1 CE11 : MARK !BC1 CE21 : MARK !BC2 CE31 : MARK !DL2 (1st bend) CE32 : MARK !DL2 (2nd bend) CU1 : MARK !UND- fixed (somewhere in FFTB) CU2 : MARK !UND- movable x&y (somewhere in FFTB) ! dumps TD11 : MARK !BC1+ insertable block TD21 : MARK !BC2+ insertable block SBD : MARK !BSY? fast veto TD31 : MARK !DL2+ insertable block ! miscellany L0SHIFT : MARK L0WAKE : MARK DL1beg : MARK CNT0 : MARK ETA0 : MARK DL1end : MARK L1beg : MARK L1end : MARK BC1mrk : MARK XBEG : MARK !before X-band RF, but after L1 XEND : MARK !after X-band RF, but before BC1 BC1beg : MARK CHIC11 : MARK !center of 1st BC1 chicane CNT1 : MARK !ELEGANT will correct the orbit here ETA1 : MARK !ELEGANT will correct eta here BC1end : MARK BC1fin : MARK L2beg : MARK LI21beg : MARK LI21end : MARK LI22beg : MARK LI22end : MARK LI23beg : MARK LI23end : MARK LI24beg : MARK LI24end : MARK L2end : MARK BC2mrk : MARK BC2beg : MARK CHIC21 : MARK !center of 1st BC2 chicane CNT2 : MARK !ELEGANT will correct the orbit here ETA2 : MARK !ELEGANT will correct eta here BC2end : MARK BC2fin : MARK L3beg : MARK LI25beg : MARK LI25end : MARK LI26beg : MARK LI26end : MARK LI27beg : MARK LI27end : MARK LI28beg : MARK LI28end : MARK LI29beg : MARK LI29end : MARK LI30beg : MARK RWWAKEss : MARK !will be resistive wall wake of stainless steel in ELEGANT LI30end : MARK L3end : MARK BSYbeg : MARK BSYend : MARK DL2beg : MARK DL2Bin : MARK CNT3a : MARK !ELEGANT will correct the orbit here CNT3b : MARK !ELEGANT will correct the orbit here DL2Bout : MARK VBin : MARK VBout : MARK RWWAKEAl : MARK !will be resistive wall wake of aluminum in ELEGANT CNT4 : MARK !ELEGANT will correct the orbit here DL2end : MARK PFILT1 : MARK ! BSY stuff (exists) FFTBORGN : MARK S100 : MARK C50PC20 : MARK I40IW1 : MARK M40B1 : MARK P460031T : MARK P460032T : MARK C50PC30 : MARK T850034T : MARK W460042T : MARK DBMARK14 : MARK P460045T : MARK PM3 : MARK B2 : MARK D10B : MARK PC90 : MARK I3 : MARK P950020T : MARK IV4 : MARK D2 : MARK ST60 : MARK ST61 : MARK ! reference points in the linac Z-coordinate system ZLIN01 : MARK ! entrance to 21-1b : Z=2035.0441 ZLIN02 : MARK ! center of QUAD LI21 201 : Z=2044.2640 ZLIN03 : MARK ! center of QUAD LI21 301 : Z=2056.6084 ZLIN04 : MARK ! entrance to 21-3b : Z=2059.7329 ZLIN05 : MARK ! start of LI22 : Z=2133.6000 ZLIN06 : MARK ! start of LI23 : Z=2235.2000 ZLIN07 : MARK ! start of LI24 : Z=2336.8000 ZLIN08 : MARK ! center of QUAD LI24 701 : Z=2410.7860 ZLIN09 : MARK ! start of LI25 : Z=2438.4000 ZLIN10 : MARK ! start of LI26 : Z=2540.0000 ZLIN11 : MARK ! start of LI27 : Z=2641.6000 ZLIN12 : MARK ! start of LI28 : Z=2743.2000 ZLIN13 : MARK ! start of LI29 : Z=2844.8000 ZLIN14 : MARK ! start of LI30 : Z=2946.4000 ZLIN15 : MARK ! station 100 : Z=3048.0000 ! ============================================================================== ! existing XCORs ! ------------------------------------------------------------------------------ H21401 : HKIC H21501 : HKIC H21601 : HKIC H21701 : HKIC H21801 : HKIC H21901 : HKIC H22201 : HKIC H22301 : HKIC H22401 : HKIC H22501 : HKIC H22601 : HKIC H22701 : HKIC H22801 : HKIC H22901 : HKIC H23201 : HKIC H23301 : HKIC H23401 : HKIC H23501 : HKIC H23601 : HKIC H23701 : HKIC H23801 : HKIC H23901 : HKIC H24201 : HKIC H24301 : HKIC H24401 : HKIC H24501 : HKIC H24601 : HKIC H24701 : HKIC H24901 : HKIC H25201 : HKIC H25301 : HKIC H25401 : HKIC H25501 : HKIC H25601 : HKIC H25701 : HKIC H25801 : HKIC H25901 : HKIC H26201 : HKIC H26301 : HKIC H26401 : HKIC H26501 : HKIC H26601 : HKIC H26701 : HKIC H26801 : HKIC H26901 : HKIC H27201 : HKIC H27301 : HKIC H27401 : HKIC H27501 : HKIC H27601 : HKIC H27701 : HKIC H27801 : HKIC H27901 : HKIC H28201 : HKIC H28301 : HKIC H28401 : HKIC H28501 : HKIC H28601 : HKIC H28701 : HKIC H28801 : HKIC H28901 : HKIC H29201 : HKIC H29301 : HKIC H29401 : HKIC H29501 : HKIC H29601 : HKIC H29701 : HKIC H29801 : HKIC H29901 : HKIC H30201 : HKIC H30301 : HKIC H30401 : HKIC H30501 : HKIC H30601 : HKIC H30701 : HKIC H30801 : HKIC X460009T : HKIC X460026T : HKIC X460034T : MARK !do not use to steer ... bad results X460036T : MARK !do not use to steer ... bad results X920020T : HKIC X921010T : HKIC ! ============================================================================== ! new XCORs ! ------------------------------------------------------------------------------ HE02 : HKIC HE04 : HKIC HM04 : HKIC HA11 : HKIC HA12 : HKIC HM11 : HKIC HS11 : HKIC HM13 : HKIC HM14 : HKIC HS21 : HKIC H6 : HKIC HA0 : HKIC HDL2 : HKIC HL32 : HKIC HL34 : HKIC HL36 : HKIC HL38 : HKIC HM31 : HKIC HVB1 : HKIC HVB2 : HKIC HM34 : HKIC HE32 : HKIC HE34 : HKIC HE36 : HKIC HM35 : HKIC HM37 : HKIC HM38 : HKIC ! ============================================================================== ! existing YCORs ! ------------------------------------------------------------------------------ V21401 : VKIC V21501 : VKIC V21601 : VKIC V21701 : VKIC V21801 : VKIC V21901 : VKIC V22201 : VKIC V22301 : VKIC V22401 : VKIC V22501 : VKIC V22601 : VKIC V22701 : VKIC V22801 : VKIC V22901 : VKIC V23201 : VKIC V23301 : VKIC V23401 : VKIC V23501 : VKIC V23601 : VKIC V23701 : VKIC V23801 : VKIC V23901 : VKIC V24201 : VKIC V24301 : VKIC V24401 : VKIC V24501 : VKIC V24601 : VKIC V24701 : VKIC V24901 : VKIC V25201 : VKIC V25301 : VKIC V25401 : VKIC V25501 : VKIC V25601 : VKIC V25701 : VKIC V25801 : VKIC V25901 : VKIC V26201 : VKIC V26301 : VKIC V26401 : VKIC V26501 : VKIC V26601 : VKIC V26701 : VKIC V26801 : VKIC V26901 : VKIC V27201 : VKIC V27301 : VKIC V27401 : VKIC V27501 : VKIC V27601 : VKIC V27701 : VKIC V27801 : VKIC V27901 : VKIC V28201 : VKIC V28301 : VKIC V28401 : VKIC V28501 : VKIC V28601 : VKIC V28701 : VKIC V28801 : VKIC V28901 : VKIC V29201 : VKIC V29301 : VKIC V29401 : VKIC V29501 : VKIC V29601 : VKIC V29701 : VKIC V29801 : VKIC V29901 : VKIC V30201 : VKIC V30301 : VKIC V30401 : VKIC V30501 : VKIC V30601 : VKIC V30701 : VKIC V30801 : VKIC Y460010T : VKIC Y460027T : VKIC Y460035T : MARK Y460037T : MARK Y920020T : VKIC Y921010T : VKIC ! ============================================================================== ! new YCORs ! ------------------------------------------------------------------------------ VE01 : VKIC VE03 : VKIC VM02 : VKIC VM03 : VKIC VA11 : VKIC VA12 : VKIC V21201 : VKIC VS11 : VKIC VM12 : VKIC VM15 : VKIC VS21 : VKIC V5 : VKIC VDL2 : VKIC VL31 : VKIC VL33 : VKIC VL35 : VKIC VL37 : VKIC VL39 : VKIC VM32 : VKIC VVB : VKIC VM33 : VKIC VE31 : VKIC VE33 : VKIC VE35 : VKIC VM36 : VKIC VM38 : VKIC ! ============================================================================== ! existing BPMs ! ------------------------------------------------------------------------------ M21201 : MONI M21301 : MONI M21401 : MONI M21501 : MONI M21601 : MONI M21701 : MONI M21801 : MONI M21901 : MONI M22201 : MONI M22301 : MONI M22401 : MONI M22501 : MONI M22601 : MONI M22701 : MONI M22801 : MONI M22901 : MONI M23201 : MONI M23301 : MONI M23401 : MONI M23501 : MONI M23601 : MONI M23701 : MONI M23801 : MONI M23901 : MONI M24201 : MONI M24301 : MONI M24401 : MONI M24501 : MONI M24601 : MONI M24701 : MONI M24901 : MONI M25201 : MONI M25301 : MONI M25401 : MONI M25501 : MONI M25601 : MONI M25701 : MONI M25801 : MONI M25901 : MONI M26201 : MONI M26301 : MONI M26401 : MONI M26501 : MONI M26601 : MONI M26701 : MONI M26801 : MONI M26901 : MONI M27201 : MONI M27301 : MONI M27401 : MONI M27501 : MONI M27601 : MONI M27701 : MONI M27801 : MONI M27901 : MONI M28201 : MONI M28301 : MONI M28401 : MONI M28501 : MONI M28601 : MONI M28701 : MONI M28801 : MONI M28901 : MONI M29201 : MONI M29301 : MONI M29401 : MONI M29501 : MONI M29601 : MONI M29701 : MONI M29801 : MONI M29901 : MONI M30201 : MONI M30301 : MONI M30401 : MONI M30501 : MONI M30601 : MONI M30701 : MONI M30801 : MONI M304001T : MONI M460029T : MONI M460039T : MONI M460051T : MONI M920020T : MONI M920030T : MONI M920050T : MONI M921010T : MONI M921020T : MONI M921030T : MONI ! ============================================================================== ! new BPMs ! ------------------------------------------------------------------------------ ME01 : MONI ME02 : MONI ME03 : MONI MW01 : MONI MW02 : MONI MW03 : MONI MM02 : MONI MB : MONI MM04 : MONI MA11 : MONI MA12 : MONI MS11 : MONI MM12 : MONI MW13 : MONI MM14 : MONI MS21 : MONI MDL2 : MONI ML31 : MONI ML32 : MONI ML33 : MONI ML34 : MONI ML35 : MONI ML36 : MONI ML37 : MONI ML38 : MONI ML39 : MONI MM31 : MONI MM32 : MONI MVB1 : MONI MVB2 : MONI MVB3 : MONI MVB4 : MONI MM33 : MONI MM34 : MONI ME31 : MONI ME32 : MONI ME33 : MONI ME34 : MONI ME35 : MONI ME36 : MONI MM35 : MONI MM36 : MONI MM37 : MONI MM38 : MONI ! ============================================================================== ! BEAMLINEs ! ------------------------------------------------------------------------------ L1c : LINE=(D9,DAQ1,QFL1,QFL1,DAQ1,& D9,DAQ1,QDL1,QDL1,DAQ1) L2c : LINE=(4*D10,DAQ1,QFL2,QFL2,DAQ2,& 4*D10,DAQ1,QDL2,QDL2,DAQ2) L3c : LINE=(4*D10,DAQ1,QFL3,QFL3,DAQ2,& 4*D10,DAQ1,QDL3,QDL3,DAQ2) K21_3 : LINE=( K21_3b,K21_3c,K21_3d) K21_4 : LINE=(K21_4a,K21_4b,K21_4c,K21_4d) K21_5 : LINE=(K21_5a,K21_5b,K21_5c,K21_5d) K21_6 : LINE=(K21_6a,K21_6b,K21_6c,K21_6d) K21_7 : LINE=(K21_7a,K21_7b,K21_7c,K21_7d) K21_8 : LINE=(K21_8a,K21_8b,K21_8c,K21_8d) K22_1 : LINE=(K22_1a,K22_1b,K22_1c,K22_1d) K22_2 : LINE=(K22_2a,K22_2b,K22_2c,K22_2d) K22_3 : LINE=(K22_3a,K22_3b,K22_3c,K22_3d) K22_4 : LINE=(K22_4a,K22_4b,K22_4c,K22_4d) K22_5 : LINE=(K22_5a,K22_5b,K22_5c,K22_5d) K22_6 : LINE=(K22_6a,K22_6b,K22_6c,K22_6d) K22_7 : LINE=(K22_7a,K22_7b,K22_7c,K22_7d) K22_8 : LINE=(K22_8a,K22_8b,K22_8c,K22_8d) K23_1 : LINE=(K23_1a,K23_1b,K23_1c,K23_1d) K23_2 : LINE=(K23_2a,K23_2b,K23_2c,K23_2d) K23_3 : LINE=(K23_3a,K23_3b,K23_3c,K23_3d) K23_4 : LINE=(K23_4a,K23_4b,K23_4c,K23_4d) K23_5 : LINE=(K23_5a,K23_5b,K23_5c,K23_5d) K23_6 : LINE=(K23_6a,K23_6b,K23_6c,K23_6d) K23_7 : LINE=(K23_7a,K23_7b,K23_7c,K23_7d) K23_8 : LINE=(K23_8a,K23_8b,K23_8c,K23_8d) K24_1 : LINE=(K24_1a,K24_1b,K24_1c,K24_1d) K24_2 : LINE=(K24_2a,K24_2b,K24_2c,K24_2d) K24_3 : LINE=(K24_3a,K24_3b,K24_3c ) K24_4 : LINE=(K24_4a,K24_4b,K24_4c ) K24_5 : LINE=(K24_5a,K24_5b,K24_5c ) K24_6 : LINE=(K24_6a,K24_6b,K24_6c,K24_6d) K25_1 : LINE=(K25_1a,K25_1b,K25_1c,K25_1d) K25_2 : LINE=(K25_2a,K25_2b,K25_2c,K25_2d) K25_3 : LINE=(K25_3a,K25_3b,K25_3c,K25_3d) K25_4 : LINE=(K25_4a,K25_4b,K25_4c,K25_4d) K25_5 : LINE=( K25_5b,K25_5c,K25_5d) K25_6 : LINE=(K25_6a,K25_6b,K25_6c,K25_6d) K25_7 : LINE=(K25_7a,K25_7b,K25_7c,K25_7d) K25_8 : LINE=(K25_8a,K25_8b,K25_8c,K25_8d) K26_1 : LINE=(K26_1a,K26_1b,K26_1c,K26_1d) K26_2 : LINE=(K26_2a,K26_2b,K26_2c,K26_2d) K26_3 : LINE=(K26_3a,K26_3b,K26_3c,K26_3d) K26_4 : LINE=(K26_4a,K26_4b,K26_4c,K26_4d) K26_5 : LINE=(K26_5a,K26_5b,K26_5c,K26_5d) K26_6 : LINE=(K26_6a,K26_6b,K26_6c,K26_6d) K26_7 : LINE=(K26_7a,K26_7b,K26_7c,K26_7d) K26_8 : LINE=(K26_8a,K26_8b,K26_8c,K26_8d) K27_1 : LINE=(K27_1a,K27_1b,K27_1c,K27_1d) K27_2 : LINE=(K27_2a,K27_2b,K27_2c,K27_2d) K27_3 : LINE=(K27_3a,K27_3b,K27_3c,K27_3d) K27_4 : LINE=(K27_4a,K27_4b,K27_4c,K27_4d) K27_5 : LINE=(K27_5a,K27_5b,K27_5c,K27_5d) K27_6 : LINE=(K27_6a,K27_6b,K27_6c ) K27_7 : LINE=(K27_7a,K27_7b,K27_7c,K27_7d) K27_8 : LINE=(K27_8a,K27_8b,K27_8c,K27_8d) K28_1 : LINE=(K28_1a,K28_1b,K28_1c ) K28_2 : LINE=(K28_2a,K28_2b,K28_2c,K28_2d) K28_3 : LINE=(K28_3a,K28_3b,K28_3c,K28_3d) K28_4 : LINE=(K28_4a,K28_4b,K28_4c ) K28_5 : LINE=(K28_5a,K28_5b,K28_5c,K28_5d) K28_6 : LINE=(K28_6a,K28_6b,K28_6c,K28_6d) K28_7 : LINE=(K28_7a,K28_7b,K28_7c ) K28_8 : LINE=(K28_8a,K28_8b,K28_8c,K28_8d) K29_1 : LINE=(K29_1a,K29_1b,K29_1c ) K29_2 : LINE=(K29_2a,K29_2b,K29_2c,K29_2d) K29_3 : LINE=(K29_3a,K29_3b,K29_3c,K29_3d) K29_4 : LINE=(K29_4a,K29_4b,K29_4c ) K29_5 : LINE=(K29_5a,K29_5b,K29_5c ) K29_6 : LINE=(K29_6a,K29_6b,K29_6c,K29_6d) K29_7 : LINE=(K29_7a,K29_7b,K29_7c,K29_7d) K29_8 : LINE=(K29_8a,K29_8b,K29_8c,K29_8d) K30_1 : LINE=(K30_1a,K30_1b,K30_1c,K30_1d) K30_2 : LINE=(K30_2a,K30_2b,K30_2c,K30_2d) K30_3 : LINE=(K30_3a,K30_3b,K30_3c,K30_3d) K30_4 : LINE=(K30_4a,K30_4b,K30_4c,K30_4d) K30_5 : LINE=(K30_5a,K30_5b,K30_5c,K30_5d) K30_6 : LINE=(K30_6a,K30_6b,K30_6c,K30_6d) K30_7 : LINE=(K30_7a,K30_7b,K30_7c,K30_7d) K30_8 : LINE=(K30_8a,K30_8b,K30_8c ) LI21 : LINE=(LI21beg,ZLIN04,& K21_3,DAQ1,Q21401,M21401,Q21401,DAQ2,H21401,V21401,& K21_4,DAQ1,Q21501,M21501,Q21501,DAQ2,H21501,V21501,& K21_5,DAQ1,Q21601,M21601,Q21601,DAQ2,H21601,V21601,& K21_6,DAQ1,Q21701,M21701,Q21701,DAQ2,H21701,V21701,& K21_7,DAQ1,Q21801,M21801,Q21801,DAQ2,H21801,V21801,& K21_8,DAQ3,Q21901,M21901,Q21901,DAQ4,H21901,V21901,& LI21end) LI22 : LINE=(LI22beg,ZLIN05,& K22_1,DAQ1,Q22201,M22201,Q22201,DAQ2,H22201,V22201,& K22_2,DAQ1,Q22301,M22301,Q22301,DAQ2,H22301,V22301,& K22_3,DAQ1,Q22401,M22401,Q22401,DAQ2,H22401,V22401,& K22_4,DAQ1,Q22501,M22501,Q22501,DAQ2,H22501,V22501,& K22_5,DAQ1,Q22601,M22601,Q22601,DAQ2,H22601,V22601,& K22_6,DAQ1,Q22701,M22701,Q22701,DAQ2,H22701,V22701,& K22_7,DAQ1,Q22801,M22801,Q22801,DAQ2,H22801,V22801,& K22_8,DAQ3,Q22901,M22901,Q22901,DAQ4,H22901,V22901,& LI22end) LI23 : LINE=(LI23beg,ZLIN06,& K23_1,DAQ1,Q23201,M23201,Q23201,DAQ2,H23201,V23201,& K23_2,DAQ1,Q23301,M23301,Q23301,DAQ2,H23301,V23301,& K23_3,DAQ1,Q23401,M23401,Q23401,DAQ2,H23401,V23401,& K23_4,DAQ1,Q23501,M23501,Q23501,DAQ2,H23501,V23501,& K23_5,DAQ1,Q23601,M23601,Q23601,DAQ2,H23601,V23601,& K23_6,DAQ1,Q23701,M23701,Q23701,DAQ2,H23701,V23701,& K23_7,DAQ1,Q23801,M23801,Q23801,DAQ2,H23801,V23801,& K23_8,DAQ3,Q23901,M23901,Q23901,DAQ4,H23901,V23901,& LI23end) LI24 : LINE=(LI24beg,ZLIN07,& K24_1,DAQ1,Q24201,M24201,Q24201,DAQ2,H24201,V24201,& K24_2,DAQ1,Q24301,M24301,Q24301,DAQ2,H24301,V24301,& K24_3,DAQ5,WS21,DAQ6,Q24401,M24401,Q24401,DAQ2,H24401,V24401,& K24_4,DAQ5,WS22,DAQ6,Q24501,M24501,Q24501,DAQ2,H24501,V24501,& K24_5,DAQ5,WS23,DAQ6,Q24601,M24601,Q24601,DAQ2,H24601,V24601,& K24_6,& LI24end) LI25 : LINE=(LI25beg,ZLIN09,& K25_1,DAQ1,Q25201,M25201,Q25201,DAQ2,H25201,V25201,& K25_2,DAQ1,Q25301,M25301,Q25301,DAQ2,H25301,V25301,& K25_3,DAQ1,Q25401,M25401,Q25401,DAQ2,H25401,V25401,& K25_4,DAQ1,Q25501,M25501,Q25501,DAQ2,H25501,V25501,& TCAVh,TCAVh,D255a,K25_5,DAQ1,Q25601,M25601,Q25601,DAQ2,H25601,& V25601,& K25_6,DAQ1,Q25701,M25701,Q25701,DAQ2,H25701,V25701,& K25_7,DAQ1,Q25801,M25801,Q25801,DAQ2,H25801,V25801,& K25_8,DAQ3,Q25901,M25901,Q25901,DAQ4A,TCAVPROF,DAQ4B,H25901,& V25901,& LI25end) LI26 : LINE=(LI26beg,ZLIN10,& K26_1,DAQ1,Q26201,M26201,Q26201,DAQ2,H26201,V26201,& K26_2,DAQ1,Q26301,M26301,Q26301,DAQ2,H26301,V26301,& K26_3,DAQ1,Q26401,M26401,Q26401,DAQ2,H26401,V26401,& K26_4,DAQ1,Q26501,M26501,Q26501,DAQ2,H26501,V26501,& K26_5,DAQ1,Q26601,M26601,Q26601,DAQ2,H26601,V26601,& K26_6,DAQ1,Q26701,M26701,Q26701,DAQ2,H26701,V26701,& K26_7,DAQ1,Q26801,M26801,Q26801,DAQ2,H26801,V26801,& K26_8,DAQ3,Q26901,M26901,Q26901,DAQ4,H26901,V26901,& LI26end) LI27 : LINE=(LI27beg,ZLIN11,& K27_1,DAQ1,Q27201,M27201,Q27201,DAQ2,H27201,V27201,& K27_2,DAQ1,Q27301,M27301,Q27301,DAQ2,H27301,V27301,& K27_3,DAQ1,Q27401,M27401,Q27401,DAQ2,H27401,V27401,& K27_4,DAQ1,Q27501,M27501,Q27501,DAQ2,H27501,V27501,& K27_5,DAQ1,Q27601,M27601,Q27601,DAQ2,H27601,V27601,& K27_6,DAQ5,W044,DAQ6,Q27701,M27701,Q27701,DAQ2,H27701,V27701,& K27_7,DAQ1,Q27801,M27801,Q27801,DAQ2,H27801,V27801,& K27_8,DAQ3,Q27901,M27901,Q27901,DAQ4,H27901,V27901,& LI27end)) LI28 : LINE=(LI28beg,ZLIN12,& K28_1,DAQ5,W144,DAQ6,Q28201,M28201,Q28201,DAQ2,H28201,V28201,& K28_2,DAQ1,Q28301,M28301,Q28301,DAQ2,H28301,V28301,& K28_3,DAQ1,Q28401,M28401,Q28401,DAQ2,H28401,V28401,& K28_4,DAQ5,W444,DAQ6,Q28501,M28501,Q28501,DAQ2,H28501,V28501,& K28_5,DAQ1,Q28601,M28601,Q28601,DAQ2,H28601,V28601,& K28_6,DAQ1,Q28701,M28701,Q28701,DAQ2,H28701,V28701,& K28_7,DAQ5,W544,DAQ6,Q28801,M28801,Q28801,DAQ2,H28801,V28801,& K28_8,DAQ3,Q28901,M28901,Q28901,DAQ4,H28901,V28901,& LI28end) LI29 : LINE=(LI29beg,ZLIN13,& K29_1,D10,DAQ1,Q29201,M29201,Q29201,DAQ2,H29201,V29201,& K29_2,DAQ1,Q29301,M29301,Q29301,DAQ2,H29301,V29301,& K29_3,DAQ1,Q29401,M29401,Q29401,DAQ2,H29401,V29401,& K29_4,D10,DAQ1,Q29501,M29501,Q29501,DAQ2,H29501,V29501,& K29_5,D10,DAQ1,Q29601,M29601,Q29601,DAQ2,H29601,V29601,& K29_6,DAQ1,Q29701,M29701,Q29701,DAQ2,H29701,V29701,& K29_7,DAQ7,Q29801,M29801,Q29801,DAQ2,H29801,V29801,& K29_8,DAQ3,Q29901,M29901,Q29901,DAQ4,H29901,V29901,& LI29end) LI30 : LINE=(LI30beg,ZLIN14,& K30_1,DAQ8,Q30201,M30201,Q30201,DAQ2,H30201,V30201,& K30_2,DAQ1,Q30301,M30301,Q30301,DAQ2,H30301,V30301,& K30_3,DAQ8,Q30401,M30401,Q30401,DAQ2,H30401,V30401,& K30_4,DAQ8,Q30501,M30501,Q30501,DAQ2,H30501,V30501,& K30_5,DAQ9,Q30601,M30601,Q30601,DAQ10,H30601,V30601,& K30_6,DAQ11,Q30701,M30701,Q30701,DAQ12,H30701,V30701,& K30_7,RWWAKEss,DAQ13,Q30801,M30801,Q30801,DAQ14,H30801,V30801,& K30_8,DAQ15,& LI30end) DL1 : LINE=(L0SHIFT,L0WAKE,DL1beg,DE00,VE01,& QE01,QE01,ME01,DE01,& QE02,QE02,ME02,HE02,DE02a,TCAV0,DE02b,& QE03,QE03,ME03,VE03,DE03,& QE04,QE04,HE04,DE04,& WS01,MW01,10*DE05,WS02,MW02,10*DE06,WS03,MW03,I01,BL01,DE07,& QM01,QM01,DE08,& QM02,QM02,MM02,VM02,DE09,& B01A,B01B,CE01,DB00,PR01,& QB,QB,MB,WS04,DB00,& B02A,B02B,CNT0,ETA0,DM00,& QM03,QM03,VM03,DM01,& QM04,QM04,MM04,HM04,I02,BL02,DM02,DL1end) L1 : LINE=(L1beg,ZLIN01,& K21_1b,DAQA,& QA11,MA11,QA11,HA11,VA11,DAQA,& K21_1c,DAQA,& QA12,MA12,QA12,HA12,VA12,DAQA,& K21_1d,& L1end) BC1c : LINE=(BC1BEG,B11A,B11B,DBQ1,& CQ11,CQ11,D11o,& B12A,B12B,D11i,CHIC11,CE11,WS11,PR11,MS11,HS11,VS11,D11i,& B13A,B13B,D11o,& CQ12,CQ12,DBQ1,& B14A,B14B,CNT1,ETA1,BC1END) BC1i : LINE=(DL1X,XBEG,K21X,XEND,DM10,& Q21201,M21201,ZLIN02,Q21201,V21201,DM11,& QM11,QM11,HM11,DM12) BC1e : LINE=(DM13,& QM12,MM12,QM12,VM12,BL11,DM14,& QM13,QM13,HM13,DM15,& WS12,DWW1,WS13,MW13,DWW1,WS14,DM16,& Q21301,M21301,ZLIN03,Q21301,DM17a,I11,TD11,DM17b,HM14,& QM14,MM14,QM14,DM18,VM15,& QM15,QM15,DM19) BC1 : LINE=(BC1mrk,& BC1i,BC1c,BC1e,& BC1fin) L2 : LINE=(L2beg,& LI21,LI22,LI23,LI24,& L2end) BC2WIG: LINE=(DW0,B1WA,B1WB,DW1,B2WA,B2WB,DW2,& B3WA,B3WB,DW1,B4WA,B4WB,DW3) BC2C1 : LINE=(BC2BEG,B21A,B21B,DBQ2a,& CQ21,CQ21,D21oa,& B22A,B22B,D21i,CHIC21,CE21,WS25,PR21,MS21,HS21,VS21,D21i,& B23A,B23B,D21ob,& CQ22,CQ22,DBQ2b,& B24A,B24B,CNT2,ETA2,BC2END) BC2C : LINE=(BC2C1,D21x) BC2 : LINE=(BC2mrk,& DM20,& Q24701,M24701,ZLIN08,Q24701,H24701,V24701,DM21A,WS24,DM21B,& BC2WIG,QM21,QM21,DM21C,& BC2C,DM23A,BL21,I21,TD21,DM23B,& QM22,QM22,DM24,& Q24901,M24901,Q24901,DM25,H24901,V24901,& BC2fin) L3 : LINE=(L3beg,& LI25,LI26,LI27,LI28,LI29,LI30,& L3end) BSY : LINE=(BSYbeg ,& DRIF0105,Q50Q1 ,Q50Q1 ,DRIF0106,M304001T,& DRIF0107,FFTBORGN,DRIF0108,S100 ,ZLIN15 ,DRIF0109,& X460009T,DRIF0110,Y460010T,DRIF0111,C50PC20 ,& DRIF0112,I40IW1 ,DRIF0113,M40B1 ,DRIF0114,& X460026T,DRIF0110,Y460027T,DRIF0115,Q50Q2 ,& Q50Q2 ,DRIF0116,M460029T,DRIF0117,P460031T,& DRIF0118,P460032T,DRIF0119,C50PC30 ,DRIF0120,& T850034T,DRIF0121,X460034T,DRIF0122,Y460035T,& DRIF0123,X460036T,DRIF0110,Y460037T,DRIF0124,& Q50Q3 ,Q50Q3 ,DRIF0125,M460039T,DRIF0125,& W460042T,DRIF0126,DBMARK14,B50B1 ,B50B1 ,& DR19 ,P460045T,DR20 ,M460051T,DR21 ,& DR22 ,DR23 ,A4DXL ,X920020T,A4DXL ,& DR23A ,M920020T,DR23B ,A4DYL ,Y920020T,& A4DYL ,DR24 ,PMV ,PMV ,DR25 ,& DR25A ,M920030T,FPM1 ,PM1 ,PM1 ,& DR26 ,PM3 ,DR27 ,B2 ,DR28 ,& D10D ,D10B ,DMB01 ,PC90 ,DMB02 ,& H1DL ,X921010T,H1DL ,DM03 ,V1DL ,& Y921010T,V1DL ,DM04 ,I3 ,DM05 ,& P950020T,DM08 ,IV4 ,DM09 ,M920050T,& DM10B ,QSM1 ,QSM1 ,DQSM1 ,Q5 ,& M921010T,Q5 ,V5 ,DM11B ,I4 ,I4 ,& I5 ,I5 ,DM12A ,I6 ,I6 ,& DM12B ,H6 ,Q6 ,M921020T,Q6 ,DM2 ,& D2L ,D2 ,D2L ,DM3 ,ST60L ,& ST60 ,ST60L ,DM4 ,ST61L ,ST61 ,& ST61L ,DM5 ,HA0 ,QA0 ,M921030T,QA0 ,& DM6 ,DMONI ,DMONI ,WALL ,& BSYend ) DL2B : LINE=(DL2Bin,& B31A,B31B,DDL1,& QL31,ML31,QL31,VL31,DDL2,CE31,DDL3,& QL32,ML32,QL32,HL32,DDL2,PR31,DDL3,& QL33,ML33,QL33,VL33,DDL1,& B32A,B32B,CNT3a,DDL4,& QL34,ML34,QL34,HL34,DDL5,& QL35,ML35,QL35,VL35,DDL5,& QL36,ML36,QL36,HL36,DDL4,& B33A,B33B,DDL1,& QL37,ML37,QL37,VL37,DDL3,DDL2,& QL38,ML38,QL38,HL38,DDL3,CE32,WS31,DDL2,& QL39,ML39,QL39,VL39,DDL1,& B34A,B34B,CNT3b,& DL2Bout) ECELL : LINE=(QE31,DE3,DE3,QE32,QE32,DE3,DE3,QE31) VBEND : LINE=(VBin,& VB1A,VB1B,DVB1,& QVB1,MVB1,QVB1,HVB1,DVB2,& QVB2,MVB2,QVB2,VVB,DVB1,& QVB3,MVB3,QVB3,DVB2,& QVB4,MVB4,QVB4,HVB2,DVB1,& VB2A,VB2B,& VBout) VBSYS : LINE=(BL31,D50cmC,& QM31,MM31,QM31,HM31,D75cmC,& QM32,MM32,QM32,VM32,D50cmC,& VBEND,D50cm,& QM33,MM33,QM33,VM33,D50cm,& QM34,MM34,QM34,HM34,D50cm) EDSYS : LINE=(WS32,DE3,& QE31,ME31,QE31,VE31,DE3,DE3,& QE32,ME32,QE32,HE32,DE3,WS33,DE3,& QE33,ME33,QE33,VE33,DE3,DE3,& QE34,ME34,QE34,HE34,DE3,WS34,DE3,& QE35,ME35,QE35,VE35,DE3,DE3,& QE36,ME36,QE36,HE36,DE3,WS35) UNDM : LINE=(D50cm,& QM35,MM35,QM35,HM35,D75cm,& QM36,MM36,QM36,VM36,D75cm,& QM37,MM37,QM37,HM37,D75cm,& QM38,MM38,QM38,VM38,HM38,D50cm,I31,TD31) DL2 : LINE=(DL2beg,& MDL2,HDL2,VDL2,D20cm,& DL2B,VBSYS,EDSYS,UNDM,RWWAKEAl,& CNT4,DL2end) LCLS : LINE=(DL1,L1,BC1,L2,BC2,L3,BSY,DL2,PFILT1) ! ============================================================================== ! SUBROUTINEs ! ------------------------------------------------------------------------------ ML1c : SUBROUTINE ! match L1 phase advance per cell (coasting) USE, L1c CELL VARY, KQL1, STEP=1.E-5, LOWER=0, UPPER=100 CONSTR, #E, MUX=MU_L1, MUY=MU_L1 !LMDIF !MIGRAD ENDMATCH VALUE, KQL1 ENDSUBROUTINE ! ------------------------------------------------------------------------------ ML2c : SUBROUTINE ! match L2 phase advance per cell (coasting) USE, L2c CELL VARY, KQL2, STEP=1.E-5, LOWER=0, UPPER=100 CONSTR, #E, MUX=MU_L2, MUY=MU_L2 !LMDIF !MIGRAD ENDMATCH VALUE, KQL2 ENDSUBROUTINE ! ------------------------------------------------------------------------------ ML3c : SUBROUTINE ! match L3 phase advance per cell (coasting) USE, L3c CELL VARY, KQFL3, STEP=1.E-5, LOWER=0 , UPPER=100 VARY, KQDL3, STEP=1.E-5, LOWER=-100, UPPER=0 CONSTR, #E, MUX=MUX_L3, MUY=MUY_L3 !LMDIF !MIGRAD ENDMATCH VALUE, KQFL3 VALUE, KQDL3 ENDSUBROUTINE ! ------------------------------------------------------------------------------ MBSYS : SUBROUTINE ! match DL1 bend system dispersion USE, DL1 MATCH, BETA0=TWSS0 VARY, KQB, STEP=1.E-5 RMATRIX, DE09/B02B, RM(1,6)=0 !LMDIF !MIGRAD ENDMATCH VALUE, KQB ENDSUBROUTINE ! ------------------------------------------------------------------------------ MED0 : SUBROUTINE ! match from exit of L0 into ED0 VALUE, KQE01 VALUE, KQE02 VALUE, KQE03 VALUE, KQE04 USE, DL1 MATCH, BETA0=TWSS0 VARY, KQE01, STEP=1.E-5, LOWER=-20, UPPER=+20 VARY, KQE02, STEP=1.E-5, LOWER=-20, UPPER=+20 VARY, KQE03, STEP=1.E-5, LOWER=-20, UPPER=+20 VARY, KQE04, STEP=1.E-5, LOWER=-20, UPPER=+20 CONSTR, WS02, BETX=BMIN0, ALFX=0., BETY=BMIN0, ALFY=0. LMDIF MIGRAD ENDMATCH VALUE, KQE01 VALUE, KQE02 VALUE, KQE03 VALUE, KQE04 ENDSUBROUTINE ! ------------------------------------------------------------------------------ MED2L1 : SUBROUTINE ! match from ED0 through injection bend system to L1 VALUE, KQM01 VALUE, KQM02 VALUE, KQM03 VALUE, KQM04 USE, (DL1,L1) MATCH, BETA0=TWSS0 VARY, KQM01, STEP=1.E-5, LOWER=-100,UPPER=+100 VARY, KQM02, STEP=1.E-5, LOWER=-100,UPPER=+100 VARY, KQM03, STEP=1.E-5, LOWER=-100,UPPER=+100 VARY, KQM04, STEP=1.E-5, LOWER=-100,UPPER=+100 CONSTR, QA11[1], BETY=BET11, BETX=BET12 CONSTR, QA12[1], BETY=BET12, BETX=BET11 LMDIF MIGRAD ENDMATCH VALUE, KQM01 VALUE, KQM02 VALUE, KQM03 VALUE, KQM04 ENDSUBROUTINE ! ------------------------------------------------------------------------------ MBC1R56 : SUBROUTINE ! match BC1 R56 VALUE, BB11 USE, BC1c MATCH, ENERGY=EBC1 VARY, BB11, STEP=1.E-5, LOWER=-16, UPPER=0 RMATRIX, #S/#E, RM(5,6)=0.0474645 LMDIF MIGRAD ENDMATCH VALUE, BB11 VALUE, AB11 VALUE, AB11S VALUE, LB11S VALUE, AB11L VALUE, LB11L ENDSUBROUTINE ! ------------------------------------------------------------------------------ MBC1e : SUBROUTINE ! match through BC1 chicane into emittance measurement system VALUE, KQA12 VALUE, KQ21201 VALUE, KQM11 VALUE, KQM12 VALUE, KQM13 USE, (DL1,L1,BC1) MATCH, BETA0=TWSS0 VARY, KQA12, STEP=1.E-5, LOWER=-100, UPPER=+100 VARY, KQ21201, STEP=1.E-5, LOWER=-100, UPPER=0 VARY, KQM11, STEP=1.E-5, LOWER=-100, UPPER=+100 VARY, KQM12, STEP=1.E-5, LOWER=-100, UPPER=+100 VARY, KQM13, STEP=1.E-5, LOWER=-100, UPPER=+100 CONSTR, B14B, BETX<4.0, ALFX<-0.0 ! CONSTR, QM12[1], BETY<24.5 CONSTR, WS13, BETX=BMIN1, ALFX=0, BETY=BMIN1, ALFY=0 LMDIF MIGRAD ENDMATCH VALUE, KQA12 VALUE, KQ21201 VALUE, KQM11 VALUE, KQM12 VALUE, KQM13 ENDSUBROUTINE ! ------------------------------------------------------------------------------ MBC1L2 : SUBROUTINE ! match BC1 to L2 USE, (DL1,L1,BC1,LI21) MATCH, BETA0=TWSS0 VARY, KQ21301, STEP=1.E-5, LOWER=-100, UPPER=0 VARY, KQM14, STEP=1.E-5, LOWER=0 , UPPER=100 VARY, KQM15, STEP=1.E-5, LOWER=-100, UPPER=0 VARY, KQ21401, STEP=1.E-5, LOWER=0 , UPPER=100 VARY, KQ21501, STEP=1.E-5, LOWER=-100, UPPER=0 CONSTR, QM15[1], BETY