! *** OPTICS=AD_ACCEL-12JAN22 *** ! LCLS2sc LTU and dump ! ============================================================================== ! Modification History ! ------------------------------------------------------------------------------ ! 30-NOV-2021, M. Woodley ! * change TYPE of BPMQD and BPMQDB to "Stripline-11" (vertical orientation) ! 22-NOV-2021, M. Woodley ! * undefer OTRDMPB per T. Maxwell ! ------------------------------------------------------------------------------ ! 14-JAN-2021, M. Woodley ! * move RFBHX12 9.373 mm u/s per G. Gassner ! ------------------------------------------------------------------------------ ! 08-OCT-2020, M. Woodley ! * rename OTRDL18 to YAGDL18 (TYPE="YAG-PAL") and undefer per B. Jacobson ! ------------------------------------------------------------------------------ ! 05-OCT-2020, M. Woodley ! * add XLEAP quadrupoles QFXL1 and QFXL2 ! 06-AUG-2020, M. Woodley ! * redefined XLEAP undulators ! ------------------------------------------------------------------------------ ! 03-MAR-2020, M. Woodley ! * move XLEAP wiggler to SXR cell #18 ! 12-DEC-2019, M. Woodley ! * move XLEAP wiggler to SXX (cell 17) ! * add "h" to UMXL1-4 (-> UMLX1-4h) ! 05-NOV-2019, M. Woodley ! * add BCS "collimator" plates per E. Johnson spreadsheet (10/24/2019) ! * remove LCLS CX31 per D. Hanquist ! 09-SEP-2019, M. Woodley ! * reinstall LTUH BLTOF per D. Bohler ! 05-SEP-2019, M. Woodley ! * change gap height of BX31/32/35/36 (now 0.68D102.36T) to 0.679" ! * change gap height of BX31B/32B (now 1.06D103.3T) to 1.06" ! 19-AUG-2019, M. Woodley ! * remove RFBPM's associated with XLEAP-II undulators per G. Kraft ! 24-JUL-2019, M. Woodley ! * new LTUH/LTUS BTM complement and locations per RP-RPG-170714-MEM-01-R5 ... ! installation locations per E. Johnson ! * relocate TDUNDB and PCMUONB per T. O'Heron ! 17-JUL-2019, M. Woodley ! * reinstall OTR30 per P. Krejcik ! * relocate TDUNDB and PCMUONB per T. O'Heron ! ------------------------------------------------------------------------------ ! 06-JUN-2019, M. Woodley ! * adjust location of BSY dump face per A. Ibrahimov ! 28-MAY-2019, M. Woodley ! * remove LTUS BFWXL1, BFWXL2, BFWXL3, BFWXL4 per G. Kraft ! * remove LTUH OTR30 per G. Kraft ! * add XCXL1/YCXL1 u/s of UMXL1, amd XCXL2/YCXL2 u/s of UMXL3 per T. O'Heron ! * flip RFBXL1-4 per T. O'Heron ... each moves 0.61" d/s ! 23-MAY-2019, M. Woodley ! * move TDKIKS and PCTDKIK1-4 u/s 0.020651 m per T. O'Heron ! * adjust BYKIK1S/BYKIK2S separation per T. O'Heron ! 24-APR-2019, M. Woodley ! * fix edge angle definitions for XLEAP-II self-seeding chicane per Yuri ! 20-FEB-2019, M. Woodley ! * remove CY32, CX35, and CY36 per D. Hanquist (reconfigured as CYBX32, ! CXQT22, and CYBX36 respectively) ! ------------------------------------------------------------------------------ ! 07-JAN-2019, M. Woodley ! * remove BTMBSY3, BTMBSY4, and BTMBSY5 per RP-RPG-181130-MEM-01 ! 24-JAN-2019, M. Woodley ! * move CC36 5.8" d/s per T. O'Heron ! ------------------------------------------------------------------------------ ! 24-NOV-2018, M. Woodley ! * EBD dump face to BTM face = 61.120" (per Alev) ! 09-NOV-2018, M. Woodley ! * move CC32 1.2924 m d/s per T. O'Heron ! * move WSVM2 0.0046 m d/s per T. O'Heron ! 29-OCT-2018, M. Woodley ! * add XLEAP-II components (4 undulators, self-seeding chicane, wiggler) ! > wiggler and undulators scale with Eu ! 19-OCT-2018, M. Woodley ! * move BTM06 d/s 4 cm per T. O'Heron ! 11-OCT-2018, M. Woodley ! * use average measured FINT for 0.788D11.50's ! 04-OCT-2018, M. Woodley ! * include alternative DC extraction into CUSXR: ! - change length of DBSY52b (moves BEGCLTH2 and BEGCLTS u/s 0.621262 m) ! - change definition of DBSY52c ! * undefer all BCS BTMs listed in RP-RPG-170714-MEM-01-R1 (Table 1) ! 24-SEP-2018, M. Woodley ! * defer OTRDMPB (level 1) per D. Hanquist ! 10-SEP-2018, M. Woodley ! * set TYPE of "YAGPSI" (in LTUH) to "YAG-PAL", as in LCLS ! 15-AUG-2018, M. Woodley ! * remove BXKIK1, SPOILER1, and TDKIK1 (replaced by STCLTS) ! 06-AUG-2018, M. Woodley ! * move LCLS XLEAP self-seeding chicane to LTUS (between QUM3B and QUM4B) ! 26-JUL-2018, Y. Nosochkov ! * add BYKIK1S,2S, BPMBYKS, SPOILERS and TDKIKS to SXR (P. Krejcik, A. Brachmann) ! 15-MAY-2018, M. Woodley ! * PCPM1L/PCPM1LB and PCPM2L/PCPM2LB are aligned along the beamline (not ! pitched/yawed) ! 12-MAR-2018, M. Woodley ! * move PC119 to its present location (Z=3191 (center)) per A. Ibrahimov ! * move CXQ6 to Z=3202.672 (center) per L. Borzenets ! * add PCBSY5 (2" long) at Z=3203.2 (d/s face) per L. Borzenets ! ------------------------------------------------------------------------------ ! 30-JAN-2018, M. Woodley ! * set length of PCBSY3 and PCBSY4 to 2" per A. Ibrahimov ! * remove PCBSY1/BTMBSY1 per A. Ibrahimov ! * change complement/locations of BCS BTMs in BTH per RP-RPG-170714-MEM-01-R1 ! > BTM_X352 removed ! > BTM06 has the wrong Z and needs to be relocated ! 20-DEC-2017, M. Woodley ! * change engineering type of BX31B,32B from "1.0D103.3T" to "1.14D103.3T" ! NOTE: don't change gap until new magnetic measurements are complete ! * use measured FINT (0.5513) for BYD1B, BYD2B, and BYD3B ! * remove BCS ACMs IMDUMPH and IMDUMPS per C. Clarke ! ------------------------------------------------------------------------------ ! 06-SEP-2017, Y. Nosochkov ! * update aperture size of PCMUON and PCMUONB (P. Emma) ! * reduce gap of BX31B,32B to 1.0 inch and change engineering type to ! 1.0D103.3T (J. Amann) -- this is to allow these bends to be on the same ! string with BYD1B,2B,3B ! * update positions and aperture of BSC collimators and BTMs: ! PCBSY3/BTMBSY3, PCBSY4/BTMBSY4, PC90, PC119 per RP-RPG-170802-MEM-01 ! (M. Santana); ! notes: 1) position of PC119 is adjusted by +45 cm to avoid interference ! with CXQ6; 2) PCBSY3 may interfere with CuSXR line ! 09-AUG-2017, M. Woodley ! * move wiggler definitions to top of file (for BMAD compatability) ! ------------------------------------------------------------------------------ ! 08-MAY-2017, M. Woodley ! * add 0.000001 m to LDBSY00 to align downstream Z-locations with 06MAR17 ! * put XCUM3 back where it was prior to XLEAP ! * set D2, ST60, and ST61 lengths ... remove half-drifts ! * undefer YCBSYQ1, XCBSYQ2, and XCBSYQ3 ... installed as part of BSY ! Reconfiguration ! * set minimum ID of PCPM1L/PCPM1LB to 1.125" per E. Ortiz ! 05-MAY-2017, Y. Nosochkov ! * Update FINT, FINTX values in BX31B, BX32B to 0.4297 (M. Woodley) ! ------------------------------------------------------------------------------ ! 02-MAR-2017, M. Woodley ! * add XLEAP components between QUM2 and QUM3 (Kwig=0 ... fully open gap) ! * assign WIRE TYPEs ! * remove WS35 and WS36 (LTUH) ... not installed per D. Bohler, A. Cedillos ! 24-FEB-2017, Y. Nosochkov ! * move VV999, VV999b 0.05 m downstream (D. Bruch) ! * move RFBHX12 0.129 m upstream (from UND to LTUH) (D. Bruch) ! * add toroids IMBSY1B, IMBSY2B, IMBSY3B as a backup for IMBSY1, IMBSY2, ! IMBSY3 (K. Grouev); they are un-deferred since they will be installed ! * update positions of IMBSY2, IMBSY3 (K. Grouev) ! * update some drift names ! * add deferred PCBSYH collimator -- it is HXR part of 2-hole copper ! collimator downstream of A-line pulsed magnets ! * move BPMBSYQ1 0.017624 m downstream to Z=3050.7319 m (K. Grouev) ! * per recent measurements update Z-positions in BSY for: ! D2 (-0.349426 m) -> Z=3192.8882 m, ST60 (-0.282226 m) -> Z=3194.3270 m, ! DM60 (-0.342826 m) -> 3195.1480 m (K. Grouev) ! * add new (deferred) HXR BTM_X352 at Z=3334.2 m (M. Santana, J. Stieber) ! * move BTM_1B through BTM_6B, and BTM_8B, BTM_9B in SXR, ! add deferred BTM_X352 in HXR (M. Santana, RP-RPG-170202-MEM-01-DRAFT) ! * update aperture of PCPM1L, PCPM1LB, PCPM2L, PCPM2LB per present ! engineering design (A. Ibrahimov) ! ------------------------------------------------------------------------------ ! 23-NOV-2016, Y. Nosochkov ! * change "1.259Q3.5" to "1.26Q3.5" ! ------------------------------------------------------------------------------ ! 02-NOV-2016, Y. Nosochkov ! * move definition of DRFB drift from common.xsif ! * move BPMBSYQ1 0.0585 m downstream (K. Grouev) ! * move BPMDL13, BPMDL16, BPMDL17 to the downstream side of a corresponding ! collimator (J. Stieber) ! * increase vertical half-aperture of PCMUON to 4 mm to satisfy BSC, ! however it is an existing device, so it will need to be either rebuilt ! or removed (J. Welch) ! * make half-aperture of PCMUONB equal to 4 mm to satisfy BSC ! * increase vertical half-aperture of PCPM2L, PCPM2LB to 37 mm to satisfy ! BSC, but note that PCPM2L is an existing device ! * move to baseline: Q50Q1, Q50Q2, IMBSY1, IMBSY2, IMBSY3, BPMBSYQ1, ! BPMBSYQ2, PCBSY1, BTMBSY1, BPMBSYQ4, PCBSY3, BTMBSY3, PCBSY4, BTMBSY4, ! XCVB2, BTM_1B through BTM_9B, XCVB2B, BPMEM4B, BPME32B, BPME34B, BPME36B, ! IMDUMPH, IMDUMPS, BPMDD, BPMDDB ! ------------------------------------------------------------------------------ ! 29-JUN-2016, M. Woodley ! * adjust location of WOODDOOR (Z=3050.512) ! * undefer OTRDMP and OTRDMPB ! * BSY BPM names per R. Iverson and S. Hoobler ! 24-JUN-2016, Y. Nosochkov ! * change engineering type "R56" to "0.788D11.50" (J. Amann) ! * remove deferred BXKIK2 and change the type of deferred BXKIK1 to ! 1.26D18.43 (DC bend) (Tor, J. Amann) ! * replace existing deferred Q50Q1 with a larger aperture quad type 2Q10 ! to provide enough aperture for the kicked beam ! * change the type of BPMBSY1 from Stripline-6 to Stripline-5 to ! match the aperture of "2Q10" Q50Q1 ! * change the type of BPME31B,...,BPME36B from Stripline-2 to Stripline-1 ! (E. Kraft, J. Stieber) ! * change the type of BPMDL11,...,BPMDL19 from Stripline-2 to ! Stripline-5 and move them outside of the quads (E. Kraft, J. Stieber); ! this resolves BSC at QDL13 & 17, and fits the quads better ! * update the engineering types of existing LTUH BPMs (M. Woodley) ! * remove existing toroids IMDUMP, IMBCS4 as they are not compatible ! with SCRF beam (S. Mao, P. Emma) ! * remove deferred IMBCS4B (S. Mao) ! * add deferred BCS cavity ACMs IMDUMPH, IMDUMPS downstream of dumpline bends ! (S. Mao) ! * add deferred BPMEM4B (Stripline-2) at QEM4B (J. Welch) ! * update engineering type designations of current monitors (J. Welch) ! * move CXQ6 to the downstream side of CC31 chicane to be closer to ! a BPM (J. Welch); move CC31 chicane 1 m upstream to provide space for CXQ6; ! update CXQ6 X-aperture as sqrt(betx) ! * move CYBX36 1.9 m downstream to get it closer to the nearest BPM (J. Welch) ! and have it at a similar location relative to a bend as CYBX32 (P. Emma); ! update CYBX36 Y-aperture as sqrt(bety) ! * restore existing LCLS collimators CX31, CX35, CY32, CY36 (D. Hanquist) ! * restore the existing length (8 cm) of existing collimators CEDL1, CEDL3 ! * update the engineering type of BYKIK1,2 to "1.92K41.2" (J. Amann) ! * restore YCBSYQ1, XCBSYQ2, XCBSYQ3 correctors in BSY to deferment level 0 ! * put the existing BPMBSY39, BPMBSY88 in the baseline (P. Emma) ! * move PC119 7.0 m upstream to Z=3191 m (S. Mao) ! * move YCBSYQ1 upstream of Q50Q1 (K. Grouev) ! * change the type of QVM3B to 1.26Q12 and the corresponding BPMVM3B ! to Stripline-10 (P. Emma) ! * move XCVM3B 0.1066 m upstream to fit with the longer QVM3B (J. Stieber) ! ------------------------------------------------------------------------------ ! 15-MAR-2016, M. Woodley ! * assign IMON TYPEs per R. Iverson ! 26-FEB-2016, Y. Nosochkov ! * adjust positions of BPMBSY1, BPMBSY29, BPMBSY39, BPMBSY88 to match to ! their existing installation at the corresponding BSY quads (C. Iverson) ! * change engineering type of BPMBSY39 to Stripline-6 (C. Iverson) ! * add existing BCS PC119 d/s of CXQ6 at Z=3198 m and existing BCS PC90 ! d/s of PCBSY4/BTMBSY4 at Z=3176 m (baseline) (S. Mao) ! * add BCS PCBSY4/BTMBSY4 at Z=3174 (deferred @0) (S. Mao) ! * add BCS PCBSY3/BTMBSY3 at Z=3155 m (deferred @0) (S. Mao) ! * place BCS PCBSY1/BTMBSY1 39.199" d/s of Q50Q3 center (S. Mao & C. Iverson) ! * place XCBSY36 64" downstream of Q50Q3 center (C. Iverson) ! * remove BCS PCSP3H/BTMSP3H (S. Mao) ! * move IMDUMP, IMBCS4, IMBCS4b upstream to near PCPM1L(b) to avoid ! potential hazard from the high power load on the dump (S. Mao) ! * move YCBSY35 to the upstream side of Q4 to ease interference with CUSXR ! * move IMSP1h to just dowstream of BRSP2H (S. Mao) ! * remove IMSP2h (S. Mao) ! * add BCS ACM IMBSY3 in the BSY1 (R. Ragle) ! * designate the IMBSY1 as a BCS toroid (R. Ragle) ! * designate the IMBSY34 as a diagnostic current monitor (not a BCS device) ! * reserve separate power supply for QDL11 for future match with Cu-linac beam ! 09-FEB-2016, M. Woodley ! * add sextupoles to correct 2nd-order dispersion per P. Emma ! * remove SEQnn MARKers ! * add wood door at LI30/BSY boundary (WOODDOOR) ! 13-OCT-2015, M. Woodley ! * fix error in definition of HXR dechirpers ! ------------------------------------------------------------------------------ ! 01-OCT-2015, M. Woodley ! * add "BEG" and "END" MARKers to R56 compensation chicanes ! * set collimator gaps per P. Emma ! 25-SEP-2015, Y. Nosochkov ! * correct the deferment level of OTRDMP to @1 ! * change type of QDMP1B,2B from 3.25Q20 to 3.94Q17 (per D. Hanquist, P. Emma) ! * make kickers & septum of CUSXR, and the merge bend of HXR spreader ! to appear in LCLS2cuH, LCLS2cuAL lines ! * make kickers & septum of A-line to appear in LCLS2cuH, LCLS2scH lines ! * include stripline BPMDD(B) (deferred @0) at the current location of ! RFBDD(B); move RFBDD(B) to just downstream of OTRDMP(B) (per Alev, P. Emma) ! * defer WSDUMP, WSDUMPB to @3 as they violate BSC (per P. Emma) ! * IMDUMP will be replaced with the toroid design as in the existing ! IMBCS4 for larger aperture (per Alev) ! * existing OTRDMP will be replaced with the design SA380-536-84 for ! larger aperture (per Alev) ! * increase bending angle in the R56 chicanes by 15% ! * move IMBSY34 upstream to just after the IMBSY2 (per R. Ragle) ! * group IMBSY1, IMBSY2, IMBSY34 together separated by 12" center-to-center ! * (per R. Ragle) ! 28-AUG-2015, M. Woodley ! * undefer R56 compensation chicane bends (CC32, CC35, CC36, CC31B, CC32B) ! * add wire scanner WSDL4 ! * add dechirper modules DCHIRPV and DCHIRPH (split in half) ! * move correctors XCDL4 and YCDL4 downstream ! * remove BEGCuSXR MARKer point from S100BSY1 line ! * set deferment level of YCWIGS and YCWIGH same as wigglers themselves ! 24-AUG-2015, Y. Nosochkov ! * add correctors XCVB2, XCVB2B deferred at @0 (type TBD) (per P. Emma) ! * restore stripline BPMBSY39, BPMBSY88, BPME32B, BPME34B, BPME36B ! (deferred @0) next to deferred RFBBSY39, RFBBSY88, RFBE32B, RFBE34B, ! RFBE36B to improve orbit correction (per P. Emma) ! * match dumpline optics to new TCAV/OTR constraints (per Y. Ding) ! * add XCBSY36 corrector in BSY (deferred @0) ! * move BPMBSY29 ~6" downstream (per C. Iverson) ! * adjust positions of Q50Q1, Q50Q2, SPOILER1, TDKIK1 and BCS devices ! * assume 85% larger BXKIK1,2 kick angle due to shorter distance to TDKIK1 ! * adjust position of Q6 in BSY for lower beta functions ! * add Q4 quadrupole (baseline) and BPMBSYQ4 (deferred @0) in BSY ! * rematch the updated spreader and BSY optics ! ------------------------------------------------------------------------------ ! 19-JUN-2015, Y. Nosochkov ! * move CXQ6 1 m downstream of DM60 for higher beta-x (per Paul) ! * assign IMDUMP, IMBCS4b to be BCS current monitors ! * add deferred BTMSP3h and BTMBSY1 behind PCSP3h and PCBSY1 (per S. Mao) ! * move IMBSY2 upstream of BXKIK1 ! * exchange positions of IMBSY34 and PCBSY1 (per S. Mao) ! * move IMSP2H to just d/s of IMSP1H, adjust positions of IMSP1H, PCSP3H ! (per S. Mao) ! * update gaps of the halo collimators (per P. Emma) ! * reduce length of halo collimators (CX.., CY..) from 8 cm to 6 cm (P. Emma) ! * change the status of BPMQD, BPMQDB from deferred to baseline ! * rename CEDL14 -> CEDL13 and CEDL18 -> CEDL17 and move them next to ! QDL13 and QDL17 (larger dispersion and ratio of disp/sqrt(beta)) ! * change the type of BPMQD, BPMQDB to "stripline-8" (per M. Owens) ! * rename SPOILER -> SPOILER1 and TDKIK -> TDKIK1 in BSY1 ! * defer BXKIK, SPOILER1 and TDKIK1 in BSY1 at level @2 (per Tor) ! * defer BSY1 magnets and devices at level @0 (per Tor) ! * restore existing BYKIK, SPOILER, TDKIK and PCTDKIK1-4 in LTUH (per Tor) ! ------------------------------------------------------------------------------ ! 20-MAR-2015, M. Woodley ! * change TYPE for BPMVM4B, BPMBSY1, BPMBSY29, BPMBSY85, and BPMBSY92 ! * assign TYPEs to BCS devices ... defer at level 0 ! 12-MAR-2015, Y. Nosochkov ! * change type of QVM4B to "1.26Q12" in order to provide enough strength ! * rename WSVM1 to WSVM2 and move it downstream of QVM2 (per LCLS-I update) ! * move XCVM2 upstream between QVM1 and QVM2 (per LCLS-I update) ! * add existing wire scanners WS35, WS36 (per LCLS-I update) ! * remove PCTDKIK1-4 collimators in BSY1 (per S. Mao) ! * move XCUM1B downstream of QUM1B, and then move both QUM1B and XCUM1B 0.5 m ! downstream to provide extra 1 m room upstream for moving undulators ! through the BTH East maze ! * change type of QDL11-QDL19 from "1.97Q10" to "2Q10" ! * add split point for transport from BSY1 to SXR (CUSXR beamline) ! * add scaling with energy for R56 chicane field ! ------------------------------------------------------------------------------ ! 12-DEC-2014, M. Woodley ! * un-defer existing LTUH wire scanners (WSDL31,WS31,WS32,WS33,WS34) ! * change some RFBs (defer=2) to BPMs (defer=0) ! * assign BPM TYPE attributes per PRD LCLSII-2.4-PR-0136 ! 09-DEC-2014, Y. Nosochkov ! * add four PCTDKIK muon collimators d/s of the TDKIK in-line dump in BSY1 ! * restore existing YAGPSI profile monitor in HXR ! * rename marker MUWALL (for front face of muon wall) to MUWALLb in SXR, ! and add a corresponding marker MUWALL in HXR ! * update length of main dump slug (DDUMP) ! * restore existing RFB07, RFB08 ! * move D10 dump inside the muon wall in the BSY ! * add 9 BCS burn-through-monitors BTM_1,...,BTM_9 in LTUH (S. Mao) ! * add 9 BCS burn-through-monitors BTM_1b,...,BTM_9b in LTUS (S. Mao) ! * add BCS current monitors IMSP1h, IMSP2h in HXR BSY (SPH) ! * add BCS current monitors IMBSY1, IMBSY2, IMBSY34 in BSY1 ! * add BCS collimator PCBSY1 in BSY1 ! * add BCS collimator PCSP3h in HXR BSY (SPH) ! * assign the BCX311, BCX312, BCX313, BCX314 R56 chicane bends to ! non-baseline level "2" ! * change to type "QE" the quads: QDBL1, QDBL2, QDL20, QDL21, QDL22, QVB1b, ! QVB2b, QVB3b, QVM3b, QVM4b, QEM1b,...,QEM4b, QUM1b,...,QUM4b ! note: field of QVM4b reaches the limit at 8.2 GeV ! * change to type "1.97Q10" the quads QDL11,...,QDL19 ! ------------------------------------------------------------------------------ ! 28-OCT-2014, M. Woodley ! * add resistive-wall wakefield MARKers (for ELEGANT) per P. Emma ! * set TYPE="fast" for all wire scanners ! * redefine start of BSY to be LI30 IV30-9 (Z=3042.005) ! * add SEQ17 MARKers; move BSY1END MARKer to entrance of SPhBSY line ! 27-OCT-2014, Y. Nosochkov ! * move wiggler EWIGH ~1.4 m downstream and restore existing positions of ! CEDL1, YCDL1, XCDL1, WSDL31 in LTUH ! * add missing existing TYPE of XCA0, YCA0 ! ------------------------------------------------------------------------------ ! 15-OCT-2014, M. Woodley ! * move Brhof, GBCC, ZBCC, and ZDCC parameter definitions to common.xsif ! * change names of R56 compensation chicane bends from "BX..." to "BCX..." ! to conform with nomenclature rules ! * rematch BSY to DL2 dogleg (matching subroutine MBSYDL2) ! 14-OCT-2014, Y. Nosochkov ! * add four R56 compensating chicanes in HXR (u/s of muon wall, ! d/s of BX32, u/s of BX35, and d/s of BX36) and two chicanes in SXR ! (u/s of BX31b, and d/s of BX32b) -- set to non-baseline level "0" ! * add existing WSVM1 wire scanner in the LTUH VBEND area at Z'=177.4709 m ! (per J. Stieber) ! * restore dumpline toroids IMDUMP, IMBCS4, IMBCS4b (per LCLSII-2.4-PR-0107) ! * modify locations of various devices in the dumpline (per A. Callen) ! 10-OCT-2014, Y. Nosochkov ! * update the TYPE of (13) RFBPMs to indicate the non-baseline level "0" ! * update the TYPE of (5) LTUH WIRE scanners to indicate the non-baseline ! level "0" ! 30-SEP-2014, Y. Nosochkov ! * rematch geometry and optics for the updated type of BX31B, BX32B ! (1.26D103.3T) ! * restore TDUND to its existing position in LCLS-I, specify TDUND length ! per D. Bruch ! * restore locations of QUM1B, QUM2B, QUM3B, QUM4B as in LCLS-I ! * add markers for BTH/UH walls ! * change type of XCDL4 from class-4f to class-5f (per J. Amann) ! * restore existing LCLS-I devices IMUNDI, IM31, IM36, IMBCS1, IMBCS2, ! OTR33, BPMEM4, BPMDL1, BPME32, BPME34, BPME36 (not part of LCLS2) ! to avoid cost of their removal (per A. Callen) ! * replace YCEM1B with XCEM1B, XCEM2B with YCEM2B, YCEM3B with XCEM3B, ! and XCEM4B with YCEM4B ! 15-SEP-2014, Y. Nosochkov ! * designate BSY1 line connecting the end of LCLS-I L3 with the beginning of ! LCLS2 HXR merge bend BXSP1h ! 07-AUG-2014, M. Woodley ! * change bend type of BX31B, BX32B to 1.26D103.3T (per J. Amann) ... did ! not change length (yet) ! * decorate device TYPE attributes to indicate non-baseline status ! 31-JUL-2014, Y. Nosochkov ! * replace BPMDL1 with RFBDL1 in HXR ! * remove IM31, IM31b, IMBCS1, IMBCS1b, IM36, IM36b, IMBCS2, IMUNDI, IMUNDIb, ! RFB07, RFB07b, RFB08, RFB08b, IMDUMP, IMDUMPb, IMBCS4, IMBCS4b ! 23-JUL-2014, Y. Nosochkov ! * move TDUNDb 2.8 m downstream (per J. Stieber) ! 15-JUL-2014, Y. Nosochkov ! * move SXR quad QUM1b 2.0 m downstream (per J. Stieber) ! 14-JUL-2014, Y. Nosochkov ! * move SXR quad QDL19 2.5 m downstream (per J. Stieber) -- this requires ! moving along (2.5 m d/s) the quads QDL11 to QDL18 (to maintain dispersion ! cancellation without moving the bends) ! 17-JUN-2014, Y. Nosochkov ! * remove OTR33 in HXR (per J. Frisch) ! * replace all stripline BPMs downstream of the undulators with RFBPMs ! (per J. Frisch) ! * move OTR33B to dispersive location near QDL18 and rename it to OTRDL18 ! 12-MAY-2014, Y. Nosochkov ! * add beam abort horizontal kicker BXKIK, SPOILER and in-line dump TDKIK ! in the beginning of LCLS-I BSY, upstream of the LCLS2 HXR merge bend BXSP1h ! 02-MAY-2014, M. Woodley ! * move definition of DRFB drift to common.xsif ! * add "CNT" MARKERs after dispersive areas (ELEGANT CENTERing) ! * remove RWWAKEal* MARKER points per P. Emma ! * change names of wiggler segments (WIG11s/WIG12s -> WIG1SA/WIG1SB, etc.) ! 01-MAY-2014, Y. Nosochkov ! * change YCUM3 -> XCUM3, XCUM4 -> YCUM4, YCUM3B -> XCUM3B, XCUM4B -> YCUM4B ! * replace BPMBSY39, BPMBSY88 with cavity BPMs RFBBSY39, RFBBSY88 ! 29-APR-2014, Y. Nosochkov ! * add sync. light vertical wiggler EWIGh in LTUH ! * add sync. light vertical wiggler EWIGs in LTUS (per J. Frisch) ! 23-APR-2014, Y. Nosochkov ! * replace stripline BPMs BPMEM4B, BPME32B, BPME34B, BPME36B, BPMEM4, ! BPME32, BPME34, BPME36, BPMDDB, BPMDD with cavity BPMs RFBEM4B, RFBE32B, ! RFBE34B, RFBE36B, RFBEM4, RFBE32, RFBE34, RFBE36, RFBDDB, RFBDD ! (per J. Frisch) ! 22-APR-2014, Y. Nosochkov ! * add missing existing DM60 BTM monitor in the HXR BSY ! * adjust length of PCPM1L,PCPM2L,PCPM1Lb,PCPM2Lb ! * change magnet type of QDMP1, QDMP2 to 3.94Q17 ! * change magnet type of QDMP1b, QDMP2b to 3.25Q20 ! 17-APR-2014, Y. Nosochkov ! * change D2 definition from MARK to INST ! 15-APR-2014, Y. Nosochkov ! * update collimator jaw aperture per LCLSII-2.4-PR-0095 ! 08-APR-2014, Y. Nosochkov ! * remove HXR betatron collimators CX31, CY32, CX35, CY36 ! * remove SXR betatron collimators CX31b, CY32b, CX35b, CY36b ! * add HXR betatron collimators CXQ6, CYBX32, CXQT22, CYBX36 ! * add SXR betatron collimator CYBDL, CYDL16 ! * rename YCQT22 to YCQT21 and move it upstream of QT21 ! 07-APR-2014, M. Woodley ! * reorder some drift length parameter definitions and drift length ! definitions to avoid using parameters/attributes before they are defined ! ------------------------------------------------------------------------------ ! 31-MAR-2014, M. Woodley ! * element names changed to conform to nomenclature PRD ! 26-MAR-2014, Y. Nosochkov ! * remove PCTDKIK1,2,3,4 from HXR LTU ! * update beta match to undulator ! 25-MAR-2014, Y. Nosochkov ! * remove BYKIK, TDKIK and SPOILER from HXR LTU ! * add missing ST60, ST61 stoppers in the BSY ! 21-MAR-2014, Y. Nosochkov ! * rematch to updated undulator cells ! 07-MAR-2014, Y. Nosochkov ! * increase main dump length (from DUMPFACE to BTMDUMP) to 1.5 m (to be ! confirmed), remove markers EOL, EOLB ! 06-MAR-2014, Y. Nosochkov ! * add a 0.6 mrad soft bend in front of the dump bends ! * roll the HXR/SXR dumplines starting from the soft bend by 10 deg ! to reduce the beam-to-beam x-separation at the dumps to ~1.88 m ! and the vertical descent (relative to undulator) to ~1.76 m ! * adjust Z-positions of the dump face and QDMP quads (per Mario and Maceo) ! ------------------------------------------------------------------------------ ! 28-FEB-2014, Y. Nosochkov ! * rematch to the updated undulator ! 26-FEB-2014, Y. Nosochkov ! * rematch to the updated spreader ! 17-JAN-2014, Y. Nosochkov ! * rematch to the updated spreader ! 18-DEC-2013, Y. Nosochkov ! * update match to the spreader ! 16-DEC-2013, Y. Nosochkov ! * update match to the 3-way spreader with low R56 ! 03-DEC-2013, Y. Nosochkov ! * update match to the spreader ! 25-NOV-2013, Y. Nosochkov ! * remove QBSY1, QBSY2 and adjust locations of Q50Q1,Q50Q2,Q50Q3,Q5,Q6 to ! maintain FODO optics while avoiding interference with divergent and ! biconcave chambers ! 21-NOV-2013, Y. Nosochkov ! * update QDBL1,2 strengths for the 3-way spreader system ! 26-OCT-2013, Y. Nosochkov ! * update quadrupole type 1.26Q12 in SXR ! * move QDBL1, QDBL2 0.5 m downstream ! 25-OCT-2013, Y. Nosochkov ! * add BPMs, correctors to FODO BSY in HXR ! * add place holder for pulse magnets to FODO BSY (per R. Iverson) ! 22-OCT-2013, Y. Nosochkov ! * move TDUNDb 4.844538 m upstream ! 18-OCT-2013, Y. Nosochkov ! * change quadrupole type of QBSY1, QBSY2 to 1.26Q12 ! 17-OCT-2013, Y. Nosochkov ! * change quadrupole type of QVB1B, QVB2B, QVB3B, QVM3B, QVM4B to 1.26Q12 ! * change bend type of BX31B, BX32B to 1.26D102.0T (per C. Spencer) ! 17-OCT-2013, M. Woodley ! * from Yuri's LTU.xsif ... this file now defines MUWALL to SXXSTART, plus ! the SXR dump line ! ------------------------------------------------------------------------------ ! ------------------------------------------------------------------------------ ! SXR R56 compensating chicanes ! - use series approximation for sinc(x)=sin(x)/x to allow zero field ! ------------------------------------------------------------------------------ ! Brhof : beam rigidity at chicane (kG-m) ! GBCC : gap height (m) ! ZBCC : magnet Z-length along axis (m) ! ZDCC : Z-space between magnets (m) ! BBX.. : chicane bend field (kG) at 4 GeV ! ABX.. : chicane bend angle (rad) ! LBX.. : chicane bend path length (m) ! ABX..S : "short" half chicane bend angle (rad) ! ABX..L : "long" half chicane bend angle (rad) ! LBX..S : "short" half chicane bend path length (m) ! LBX..L : "long" half chicane bend path length (m) BBX31B := 5.0450 *Ef/4.0 *1.15 ARG31B := ZBCC*BBX31B/Brhof ABX31B := ASIN(ARG31B) ABX31B_2 := ABX31B*ABX31B ABX31B_4 := ABX31B_2*ABX31B_2 ABX31B_6 := ABX31B_4*ABX31B_2 SINC31B := 1-ABX31B_2/6+ABX31B_4/120-ABX31B_6/5040 LBX31B := ZBCC/SINC31B ABX31BS := ASIN(ARG31B/2) ABX31BS_2 := ABX31BS*ABX31BS ABX31BS_4 := ABX31BS_2*ABX31BS_2 ABX31BS_6 := ABX31BS_4*ABX31BS_2 SINC31BS := 1-ABX31BS_2/6+ABX31BS_4/120-ABX31BS_6/5040 LBX31BS := ZBCC/(2*SINC31BS) ABX31BL := ABX31B-ABX31BS LBX31BL := LBX31B-LBX31BS BCX31B11 : SBEN, TYPE="0.788D11.50", L=LBX31BS, ANGLE=+ABX31BS, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX31B12 : SBEN, TYPE="0.788D11.50", L=LBX31BL, ANGLE=+ABX31BL, E2=+ABX31B,& HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX31B21 : SBEN, TYPE="0.788D11.50", L=LBX31BL, ANGLE=-ABX31BL, E1=-ABX31B,& HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX31B22 : SBEN, TYPE="0.788D11.50", L=LBX31BS, ANGLE=-ABX31BS, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX31B31 : SBEN, TYPE="0.788D11.50", L=LBX31BS, ANGLE=-ABX31BS, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX31B32 : SBEN, TYPE="0.788D11.50", L=LBX31BL, ANGLE=-ABX31BL, E2=-ABX31B,& HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX31B41 : SBEN, TYPE="0.788D11.50", L=LBX31BL, ANGLE=+ABX31BL, E1=+ABX31B,& HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX31B42 : SBEN, TYPE="0.788D11.50", L=LBX31BS, ANGLE=+ABX31BS, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC ! define unsplit SBENs for BMAD ... not used by MAD BCX31B1 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX31B, ANGLE=+ABX31B, & E1=0, FINT=FBCC, E2=+ABX31B, FINTX=FBCC BCX31B2 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX31B, ANGLE=-ABX31B, & E1=-ABX31B, FINT=FBCC, E2=0, FINTX=FBCC BCX31B3 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX31B, ANGLE=-ABX31B, & E1=0, FINT=FBCC, E2=-ABX31B, FINTX=FBCC BCX31B4 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX31B, ANGLE=+ABX31B, & E1=+ABX31B, FINT=FBCC, E2=0, FINTX=FBCC DCC31Bo : DRIF, L=ZDCC/COS(ABX31B), TYPE="CSR" DCC31Bi : DRIF, L=ZDCC , TYPE="CSR" CC31BBEG : MARK CC31BEND : MARK BCX31B1_full : LINE=(BCX31B11,BCX31B12) BCX31B2_full : LINE=(BCX31B21,BCX31B22) BCX31B3_full : LINE=(BCX31B31,BCX31B32) BCX31B4_full : LINE=(BCX31B41,BCX31B42) CC31B : LINE=(CC31BBEG,& BCX31B1_full,DCC31Bo,& BCX31B2_full,DCC31Bi,& BCX31B3_full,DCC31Bo,& BCX31B4_full,& CC31BEND) BBX32B := 5.0450 *Ef/4.0 *1.15 ARG32B := ZBCC*BBX32B/Brhof ABX32B := ASIN(ARG32B) ABX32B_2 := ABX32B*ABX32B ABX32B_4 := ABX32B_2*ABX32B_2 ABX32B_6 := ABX32B_4*ABX32B_2 SINC32B := 1-ABX32B_2/6+ABX32B_4/120-ABX32B_6/5040 LBX32B := ZBCC/SINC32B ABX32BS := ASIN(ARG32B/2) ABX32BS_2 := ABX32BS*ABX32BS ABX32BS_4 := ABX32BS_2*ABX32BS_2 ABX32BS_6 := ABX32BS_4*ABX32BS_2 SINC32BS := 1-ABX32BS_2/6+ABX32BS_4/120-ABX32BS_6/5040 LBX32BS := ZBCC/(2*SINC32BS) ABX32BL := ABX32B-ABX32BS LBX32BL := LBX32B-LBX32BS BCX32B11 : SBEN, TYPE="0.788D11.50", L=LBX32BS, ANGLE=+ABX32BS, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX32B12 : SBEN, TYPE="0.788D11.50", L=LBX32BL, ANGLE=+ABX32BL, E2=+ABX32B,& HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX32B21 : SBEN, TYPE="0.788D11.50", L=LBX32BL, ANGLE=-ABX32BL, E1=-ABX32B,& HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX32B22 : SBEN, TYPE="0.788D11.50", L=LBX32BS, ANGLE=-ABX32BS, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX32B31 : SBEN, TYPE="0.788D11.50", L=LBX32BS, ANGLE=-ABX32BS, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX32B32 : SBEN, TYPE="0.788D11.50", L=LBX32BL, ANGLE=-ABX32BL, E2=-ABX32B,& HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX32B41 : SBEN, TYPE="0.788D11.50", L=LBX32BL, ANGLE=+ABX32BL, E1=+ABX32B,& HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX32B42 : SBEN, TYPE="0.788D11.50", L=LBX32BS, ANGLE=+ABX32BS, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC ! define unsplit SBENs for BMAD ... not used by MAD BCX32B1 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32B, ANGLE=+ABX32B, & E1=0, FINT=FBCC, E2=+ABX32B, FINTX=FBCC BCX32B2 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32B, ANGLE=-ABX32B, & E1=-ABX32B, FINT=FBCC, E2=0, FINTX=FBCC BCX32B3 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32B, ANGLE=-ABX32B, & E1=0, FINT=FBCC, E2=-ABX32B, FINTX=FBCC BCX32B4 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32B, ANGLE=+ABX32B, & E1=+ABX32B, FINT=FBCC, E2=0, FINTX=FBCC DCC32Bo : DRIF, L=ZDCC/COS(ABX32B), TYPE="CSR" DCC32Bi : DRIF, L=ZDCC , TYPE="CSR" CC32BBEG : MARK CC32BEND : MARK BCX32B1_full : LINE=(BCX32B11,BCX32B12) BCX32B2_full : LINE=(BCX32B21,BCX32B22) BCX32B3_full : LINE=(BCX32B31,BCX32B32) BCX32B4_full : LINE=(BCX32B41,BCX32B42) CC32B : LINE=(CC32BBEG,& BCX32B1_full,DCC32Bo,& BCX32B2_full,DCC32Bi,& BCX32B3_full,DCC32Bo,& BCX32B4_full,& CC32BEND) ! ------------------------------------------------------------------------------ ! wiggler for sync. light energy diagnostic (described in SLAC-PUB-3945) ! based on FACET optics model (M. Woodley) ! (series approximation for sinc(x)=sin(x)/x to enable setting with x=0) ! ------------------------------------------------------------------------------ GWIG := 0.02032 !gap height ZWHP := 0.244 !half-pole Z length ZDWG := 0.126525 !pole-to-pole Z spacing ZWIG := 4*ZWHP+2*ZDWG !total wiggler Z length BWGs := 0 !wiggler bend field (kG) AWGs := ASIN(BWGs*ZWHP/(Ef*Cb)) !bend angle per half-pole AWGs2 := AWGs*AWGs AWGs4 := AWGs2*AWGs2 AWGs6 := AWGs4*AWGs2 SINCs := 1-AWGs2/6+AWGs4/120-AWGs6/5040 LWGs := ZWHP/SINCs !half-pole path length AWG1s := ASIN(SIN(AWGs)/2) !"short half" half-pole bend angle AWG1s2 := AWG1s*AWG1s AWG1s4 := AWG1s2*AWG1s2 AWG1s6 := AWG1s4*AWG1s2 SINC1s := 1-AWG1s2/6+AWG1s4/120-AWG1s6/5040 LWG1s := (ZWHP/2)/SINC1s !"short half" half-pole path length AWG2s := AWGs-AWG1s !"long half" half-pole bend angle LWG2s := LWGs-LWG1s !"long half" half-pole path length WIG1S1 : SBEN, TYPE="@3,SLC wiggler", L=LWG1s , HGAP=GWIG/2, ANGLE=AWG1s, & E1=0 , E2=0 , FINT=0.5, FINTX=0 , TILT WIG1S2 : SBEN, TYPE="@3,SLC wiggler", L=LWG2s , HGAP=GWIG/2, ANGLE=AWG2s, & E1=0 , E2=AWGs , FINT=0 , FINTX=0.5 , TILT WIG2S1 : SBEN, TYPE="@3,SLC wiggler", L=LWGs , HGAP=GWIG/2, ANGLE=-AWGs, & E1=-AWGs, E2=0 , FINT=0.5, FINTX=0 , TILT WIG2S2 : SBEN, TYPE="@3,SLC wiggler", L=LWGs , HGAP=GWIG/2, ANGLE=-AWGs, & E1=0 , E2=-AWGs , FINT=0 , FINTX=0.5 , TILT WIG3S1 : SBEN, TYPE="@3,SLC wiggler", L=LWG2s , HGAP=GWIG/2, ANGLE=AWG2s, & E1=AWGs , E2=0 , FINT=0.5, FINTX=0 , TILT WIG3S2 : SBEN, TYPE="@3,SLC wiggler", L=LWG1s , HGAP=GWIG/2, ANGLE=AWG1s, & E1=0 , E2=0 , FINT=0 , FINTX=0.5 , TILT ! define unsplit SBENs for BMAD ... not used by MAD WIG1S : SBEN, TYPE="@3,SLC wiggler", HGAP=GWIG/2, L=LWGs, ANGLE=+AWGs, & E1=0, FINT=0.5, E2=+AWGs, FINTX=0.5, TILT WIG2S : SBEN, TYPE="@3,SLC wiggler", HGAP=GWIG/2, L=2*LWGs, ANGLE=-2*AWGs, & E1=-AWGs, FINT=0.5, E2=-AWGs, FINTX=0.5, TILT WIG3S : SBEN, TYPE="@3,SLC wiggler", HGAP=GWIG/2, L=LWGs, ANGLE=+AWGs, & E1=+AWGs, FINT=0.5, E2=0, FINTX=0.5, TILT LDWGs := ZDWG/COS(AWGs) DWGs : DRIF, L=LDWGs YCWIGS : VKIC, TYPE="@3,wiggler trim" CNTWIGS : MARK, TYPE="CENTER" !ELEGANT will correct the orbit here for CSR-steering WIG1S_full : LINE=(WIG1S1,WIG1S2) WIG2S_full : LINE=(WIG2S1,YCWIGS,WIG2S2) WIG3S_full : LINE=(WIG3S1,WIG3S2) EWIGS : LINE=(WIG1S_full,DWGs,& WIG2S_full,DWGs,& WIG3S_full,CNTWIGS) ! replace deferred wiggler with a drift DWIGS : DRIF, L=ZWIG DWIGSa : DRIF, L=1.135414 DWIGSb : DRIF, L=DWIGS[L]-DWIGSa[L]-Lplate ! ------------------------------------------------------------------------------ ! SXR dogleg ! ------------------------------------------------------------------------------ ! note: the K-values below are for SC beam; the settings for Cu beam are ! in the "LCLS2cu_main.mad8" file KQDBL1 := -0.050357323411 KQDBL2 := -0.559361105837 QDBL1 : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQDBL1, APER=rQE QDBL2 : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQDBL2, APER=rQE KQDLb := 0.424676241757 KQDL11 := KQDLb QDL11 : QUAD, TYPE="2Q10", L=LQR/2, K1= KQDL11, APER=rQR !reserve separate PS QDL12 : QUAD, TYPE="2Q10", L=LQR/2, K1=-KQDLb, APER=rQR QDL13 : QUAD, TYPE="2Q10", L=LQR/2, K1= KQDLb, APER=rQR QDL14 : QUAD, TYPE="2Q10", L=LQR/2, K1=-KQDLb, APER=rQR QDL15 : QUAD, TYPE="2Q10", L=LQR/2, K1= KQDLb, APER=rQR QDL16 : QUAD, TYPE="2Q10", L=LQR/2, K1=-KQDLb, APER=rQR QDL17 : QUAD, TYPE="2Q10", L=LQR/2, K1= KQDLb, APER=rQR QDL18 : QUAD, TYPE="2Q10", L=LQR/2, K1=-KQDLb, APER=rQR QDL19 : QUAD, TYPE="2Q10", L=LQR/2, K1= KQDLb, APER=rQR KQDL20 := -0.487979625759 KQDL21 := -1.904057641444 KQDL22 := 2.191453247156 QDL20 : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQDL20, APER=rQE QDL21 : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQDL21, APER=rQE QDL22 : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQDL22, APER=rQE KSDL1 := -8.734519131209 KSDL2 := -24.395452957066 SDL1 : SEXT, TYPE="@1,1.38S3.00", L=LSb/2, APER=rSb, K2=KSDL1 SDL2 : SEXT, TYPE="@1,1.38S3.00", L=LSb/2, APER=rSb, K2=KSDL2 COMMENT VALUE, (Cb*Ef)*KSDL1*LSb,(Cb*10)*KSDL1*LSb VALUE, (Cb*Ef)*KSDL2*LSb,(Cb*10)*KSDL2*LSb ENDCOMMENT LB3b := 2.656 !1.06D103.3T effective length (m) GB3b := 1.06*in2m !1.06D103.3T gap height (m) AB3Pb := 0.018633330237 AB3Mb := -AB3Pb LeffB3b := LB3b*AB3Pb/(2*SIN(AB3Pb/2)) !full bend eff. path length (m) BX31B1 : SBEN, TYPE="1.06D103.3T", L=LeffB3b/2, ANGLE=AB3Mb/2, HGAP=GB3b/2,& E1=AB3Mb/2, E2=0, FINT=0.4297, FINTX=0.0 BX31B2 : SBEN, TYPE="1.06D103.3T", L=LeffB3b/2, ANGLE=AB3Mb/2, HGAP=GB3b/2,& E1=0, E2=AB3Mb/2, FINT=0.0 , FINTX=0.4297 BX32B1 : SBEN, TYPE="1.06D103.3T", L=LeffB3b/2, ANGLE=AB3Pb/2, HGAP=GB3b/2,& E1=AB3Pb/2, E2=0, FINT=0.4297, FINTX=0.0 BX32B2 : SBEN, TYPE="1.06D103.3T", L=LeffB3b/2, ANGLE=AB3Pb/2, HGAP=GB3b/2,& E1=0, E2=AB3Pb/2, FINT=0.0 , FINTX=0.4297 ! define unsplit SBENs for BMAD ... not used by MAD BX31B : SBEN, TYPE="1.06D103.3T", HGAP=GB3b/2, L=LeffB3b, ANGLE=AB3Mb,& E1=AB3Mb/2, FINT=0.4297, E2=AB3Mb/2, FINTX=0.4297 BX32B : SBEN, TYPE="1.06D103.3T", HGAP=GB3b/2, L=LeffB3b, ANGLE=AB3Pb,& E1=AB3Pb/2, FINT=0.4297, E2=AB3Pb/2, FINTX=0.4297 ! SXR single beam dumper vertical kicker, BPM, spoiler and in-line dump ABYKIKS := 0 !=0.889371410732E-3 when BYKIKS1,2 are turned on BYKIK1S1 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIKS/4, TILT, & E1=ABYKIKS/4, E2=0, FINT=0.5, FINTX=0 , HGAP=GKIK BYKIK1S2 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIKS/4, TILT, & E1=0, E2=ABYKIKS/4, FINT=0 , FINTX=0.5, HGAP=GKIK BYKIK2S1 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIKS/4, TILT, & E1=ABYKIKS/4, E2=0, FINT=0.5, FINTX=0 , HGAP=GKIK BYKIK2S2 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIKS/4, TILT, & E1=0, E2=ABYKIKS/4, FINT=0 , FINTX=0.5, HGAP=GKIK ! define unsplit SBENs for BMAD ... not used by MAD BYKIK1S : SBEN, TYPE="1.92K41.2", HGAP=GKIK, L=LKIK, ANGLE=ABYKIKS/2, & E1=ABYKIKS/4, FINT=0.5, E2=ABYKIKS/4, FINTX=0.5, TILT BYKIK2S : SBEN, TYPE="1.92K41.2", HGAP=GKIK, L=LKIK, ANGLE=ABYKIKS/2, & E1=ABYKIKS/4, FINT=0.5, E2=ABYKIKS/4, FINTX=0.5, TILT BPMBYKS : MONI, TYPE="Stripline-5" SPOILERS : INST !TDKIKS dump spoiler (1 mm Ti) TDKIKS : INST, L=0.6096 !vertical off-axis in-line dump LDBLDL := 3.0 ! length of LTU doublet including drifts WALL : DRIF, L=16.764 !length of muon wall DWALLa : DRIF, L=1.840975 !distance from face of muon wall to face of BSY dump DWALLb : DRIF, L=WALL[L]-DWALLa[L] DDBLDLb : DRIF, L=0.5 +(LQA-LQE)/2 DDBLDLc : DRIF, L=0.4 DDBLDLd : DRIF, L=(LQA-LQE)/2 DDBLDLa : DRIF, L=0.5*(LDBLDL-2*LQE-DDBLDLb[L]-2*DDBLDLc[L]-DDBLDLd[L]-Ljaw) DDBLDLa1 : DRIF, L=0.654660 DDBLDLa2 : DRIF, L=2*DDBLDLa[L]-DDBLDLa1[L] LDLCEL := 25.5 LDL6b := 0.4 LDL0a := LDLCEL/2-LQA-LDL6b LDL0b := LDLCEL/2-LQA-LDL6b+(LQA-LQR) LDL0ba := 0.1953 LDL0bb := 3.213005+(LQA-LQR)/2-LDL0ba LDL0bc := LDL0b-LDL0ba-LDL0bb LDL1b := 2.9815+(LQA-LQR)/2 LDL1ba := 1.316489-Lplate !1.317304 LDL1bc := 0.1953 LDL1bb := LDL1b-LDL1ba-Lplate-LDL1bc LDL2b := LDL0b+LDL6b-LDL1b-LB3b+(LeffB3b-LB3b)*3 LDL2ba := 0.1953 LDL2bb := LDL2b-LDL2ba LDL4b := 1.996-LDL6b+(LQA-LQE) LDL3b := LDL0a-LQA-LDL4b-2*LDL6b+1.0+2*(LQA-LQE) LDL5b := 0.498+(LQA-LQE)/2 LDL7b := 0.93209 LDL8b := LDL0b-LDL7b-Ljaw LDL8c := 1.0 LDL8ca := 0.1953 LDL8cb := LDL8c-LDL8ca LDL8d := LDL0b-LDL8c-ZWIG !LDL8da := 0.019865 !251052 !LDL8db := LDL8d-LDL8da LDL9b := LDL0b-LDL6b LDL9ba := 6.045762 !5.076366+(LQA-LQR)/2 +2.7012019 LDL9bb := LDL9b-LDL9ba LDL10b := 1.230797 LDL10ba := 0.81 LDL10bb := LDL10b-LDL10ba LDL11b := LDL0b-LDL10b-Ljaw LDL11ba := 0.162952 LDL11bb := LDL11b-LDL11ba LDL13b := 0.4 LDL12b := LDL0b-LDL13b-LDL7b-Ljaw dLDL14b := 0.0 LDL14b := 0.4815+(LQA-LQE)/2 +dLDL14b LDL16b := 0.5 LDL15b := LDL2b-LDL16b-2.0 LDL15ba := 0.1953 LDL15bb := 1.224657+(LQA-LQR)/2-LDL15ba LDL15bc := LDL15b-LDL15ba-LDL15bb LDL17b := 0.5 LDL18b := LDL3b-LDL17b-2.0 LDL18ba := 1.076255 !1.139755 LDL18bb := LDL18b-LDL18ba-Lplate LDL19ba := 0.1953 LDL19bb := 6.150346 !221641 !6.201146 LDL19bc := LDL0b-LDL19ba-LDL19bb-Lplate LDL20b := LDL0b+1.002-(LQA-LQR)/2 DDL0b : DRIFT, L=LDL0b DDL0ba : DRIFT, L=LDL0ba DDL0bb : DRIFT, L=LDL0bb DDL0bc : DRIFT, L=LDL0bc DDL1b : DRIFT, L=LDL1b DDL1ba : DRIFT, L=LDL1ba DDL1bb : DRIFT, L=LDL1bb DDL1bc : DRIFT, L=LDL1bc DDL2b : DRIFT, L=LDL2b DDL2ba : DRIFT, L=LDL2ba DDL2bb : DRIFT, L=LDL2bb DDL4b : DRIFT, L=LDL4b DDL5b : DRIFT, L=LDL5b DDL6b : DRIFT, L=LDL6b DDL6bb : DRIFT, L=0.1 DDL6ba : DRIFT, L=DDL6b[L]-DDL6bb[L]-LSb DDL7b : DRIFT, L=LDL7b DDL7ba : DRIFT, L=0.51 DDL7bb : DRIFT, L=LDL7b-DDL7ba[L] DDL7bba : DRIFT, L=0.135832 DDL7bbb : DRIFT, L=DDL7bb[L]-DDL7bba[L] DDL8b : DRIFT, L=LDL8b DDL8c : DRIFT, L=LDL8c DDL8ca : DRIFT, L=LDL8ca DDL8cb : DRIFT, L=LDL8cb DDL8d : DRIFT, L=LDL8d !DDL8da : DRIFT, L=LDL8da !DDL8db : DRIFT, L=LDL8db DDL9b : DRIFT, L=LDL9b DDL10b : DRIFT, L=LDL10b DDL10ba : DRIFT, L=LDL10ba DDL10bb : DRIFT, L=LDL10bb DDL11b : DRIFT, L=LDL11b DDL11ba : DRIFT, L=LDL11ba DDL11bb : DRIFT, L=LDL11bb DDL12b : DRIFT, L=LDL12b DDL13b : DRIFT, L=LDL13b DDL14b : DRIFT, L=LDL14b DDL15b : DRIFT, L=LDL15b DDL15ba : DRIFT, L=LDL15ba DDL15bb : DRIFT, L=LDL15bb DDL15bc : DRIFT, L=LDL15bc DDL16b : DRIFT, L=LDL16b DDL17b : DRIFT, L=LDL17b DDL18b : DRIFT, L=LDL18b DDL18ba : DRIFT, L=LDL18ba DDL18bb : DRIFT, L=LDL18bb DDL19ba : DRIFT, L=LDL19ba DDL19bb : DRIFT, L=LDL19bb DDL19bc : DRIFT, L=LDL19bc DDL20b : DRIFT, L=LDL20b ! drifts for BYKIKS system LDBYKS := LDLCEL/2-LQR !DL cell drift length dLmdw := 0 DBYKS01 : DRIFT, L=DDL10BA[L] !QDL16 to CYDL16 DBYKS02 : DRIFT, L=DDL10BB[L] !CYDL16 to BPMDL16 DBYKS03 : DRIFT, L=1.145230 !BPMDL16 to BTM04B (DDL11BA[L]+0.299779) DBYKS05 : DRIFT, L=0.5893-LKIK/2 !(BYKIK1S to BYKIK2S)/2 (0.609226) DBYKS06 : DRIFT, L=4.360149 !BYKIK2S to XCDL17 (4.340223) DBYKS07 : DRIFT, L=0.634128 !XCDL17 to BPMDL17 DBYKS08 : DRIFT, L=0.415873 !BPMDL17 to QDL17 DBYKS04 : DRIFT, L=LDBYKS- & !BTM04B to BYKIK1S DBYKS01[L]-Ljaw-DBYKS02[L]-DBYKS03[L]-Lplate- & 2*(LKIK+DBYKS05[L])-DBYKS06[L]-DBYKS07[L]- & DBYKS08[L] DBYKS11 : DRIFT, L=0.51 !QDL17 to CEDL17 DBYKS12 : DRIFT, L=0.735832 !CEDL17 to (removed) BTM05B DBYKS13 : DRIFT, L=0.687668 !(removed) BTM05B to SPOILERS DBYKS14 : DRIFT, L=3.200208 !SPOILERS to TDKIKS (3.220859) DBYKS15 : DRIFT, L=0.257457 !TDKIKS to PCTDKIKS1 (0.257426) DBYKS16 : DRIFT, L=0.266697 !PCTDKIKS to PCTDKIKS DBYKS18 : DRIFT, L=0.4 !YAGDL18 to YCDL18 DBYKS19 : DRIFT, L=0.4 !YCDL18 to QDL18 DBYKS17 : DRIFT, L=LDBYKS- & !PCTDKIK4S to YAGDL18 DBYKS11[L]-Ljaw-DBYKS12[L]-DBYKS13[L]- & DBYKS14[L]-TDKIKS[L]-DBYKS15[L]- & 4*LPCTDKIK-3*DBYKS16[L]-DBYKS18[L]-DBYKS19[L] BPMDBL1 : MONI, TYPE="Stripline-2" BPMDBL2 : MONI, TYPE="Stripline-2" BPMDL11 : MONI, TYPE="Stripline-5" BPMDL12 : MONI, TYPE="Stripline-5" BPMDL13 : MONI, TYPE="Stripline-5" BPMDL14 : MONI, TYPE="Stripline-5" BPMDL15 : MONI, TYPE="Stripline-5" BPMDL16 : MONI, TYPE="Stripline-5" BPMDL17 : MONI, TYPE="Stripline-5" BPMDL18 : MONI, TYPE="Stripline-5" BPMDL19 : MONI, TYPE="Stripline-5" BPMDL20 : MONI, TYPE="Stripline-2" BPMDL21 : MONI, TYPE="Stripline-2" BPMDL22 : MONI, TYPE="Stripline-2" XCDBL2 : HKIC,TYPE="class-4" XCDL11 : HKIC,TYPE="class-4" XCDL13 : HKIC,TYPE="class-4" XCDL15 : HKIC,TYPE="class-4" XCDL17 : HKIC,TYPE="class-4" XCDL19 : HKIC,TYPE="class-4" XCDL22 : HKIC,TYPE="class-4" YCDBL1 : VKIC,TYPE="class-4" YCDL12 : VKIC,TYPE="class-4" YCDL14 : VKIC,TYPE="class-4" YCDL16 : VKIC,TYPE="class-4" YCDL18 : VKIC,TYPE="class-4" YCDL20 : VKIC,TYPE="class-4" YCDL21 : VKIC,TYPE="class-4" CEDL13 : RCOL, TYPE="HCOLL", L=Ljaw, XSIZE=8.5E-3, YSIZE=20.E-3 CEDL17 : RCOL, TYPE="HCOLL", L=Ljaw, XSIZE=8.5E-3, YSIZE=20.E-3 CYBDL : RCOL, TYPE="VCOLL", L=Ljaw, YSIZE=1.2E-3, XSIZE=20.E-3 CYDL16 : RCOL, TYPE="VCOLL", L=Ljaw, YSIZE=1.1E-3, XSIZE=20.E-3 ! muon collimators after SBD TDKIKS in-line dump PCTDKIK1S : ECOL, TYPE="BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 PCTDKIK2S : ECOL, TYPE="BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 PCTDKIK3S : ECOL, TYPE="@5,BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 PCTDKIK4S : ECOL, TYPE="@5,BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 YAGDL18 : PROF, TYPE="YAG-PAL" PC01B : INST, TYPE="BCS plate", L=Lplate BTM01B : INST, TYPE="PPS BTM" PC03B : INST, TYPE="BCS plate", L=Lplate BTM03B : INST, TYPE="PPS BTM" PC04B : INST, TYPE="BCS plate", L=Lplate BTM04B : INST, TYPE="PPS BTM" PC06B : INST, TYPE="BCS plate", L=Lplate BTM06B : INST, TYPE="PPS BTM" PC07B : INST, TYPE="BCS plate", L=Lplate BTM07B : INST, TYPE="PPS BTM" DBMARK34b : MARK !entrance of BX31 CNTLT1S : MARK, TYPE="CENTER" BX31B_full : LINE=(BX31B1,BX31B2) BYKIK1S_full : LINE=(BYKIK1S1,BYKIK1S2) BYKIK2S_full : LINE=(BYKIK2S1,BYKIK2S2) BX32B_full : LINE=(BX32B1,BX32B2) QDBL1_full : LINE=(QDBL1,BPMDBL1,QDBL1) QDBL2_full : LINE=(QDBL2,BPMDBL2,QDBL2) QDL11_full : LINE=(QDL11,QDL11) QDL12_full : LINE=(QDL12,QDL12) QDL13_full : LINE=(QDL13,QDL13) QDL14_full : LINE=(QDL14,QDL14) QDL15_full : LINE=(QDL15,QDL15) QDL16_full : LINE=(QDL16,QDL16) QDL17_full : LINE=(QDL17,QDL17) QDL18_full : LINE=(QDL18,QDL18) QDL19_full : LINE=(QDL19,QDL19) QDL20_full : LINE=(QDL20,BPMDL20,QDL20) QDL21_full : LINE=(QDL21,BPMDL21,QDL21) QDL22_full : LINE=(QDL22,BPMDL22,QDL22) SDL1_full : LINE=(SDL1,SDL1) SDL2_full : LINE=(SDL2,SDL2) DBLDL21 : LINE=(BEGLTUS,DDBLDLb,& QDBL1_full,DDBLDLc,YCDBL1,DDBLDLa1,CYBDL,DDBLDLa2,XCDBL2,DDBLDLc,& QDBL2_full,DDBLDLd) DL2sc : LINE=(DBMARK34b,DDL20b,XCDL11,DDL6b,& QDL11_full,DDL15ba,BPMDL11,DDL15bb,DDL15bc,CC31b,DDL16b,& BX31B_full,DDL1ba,PC01B,BTM01B,DDL1bb,BPMDL12,DDL1bc,& QDL12_full,DDL6b,YCDL12,DDL9b,XCDL13,DDL6ba,& SDL1_full,DDL6bb,& QDL13_full,DDL7ba,CEDL13,DDL7bb,BPMDL13,DDL8b,YCDL14,DDL6b,& QDL14_full,DDL8ca,BPMDL14,DDL8cb,& DWIGSa,PC03B,BTM03B,DWIGSb,DDL8d,XCDL15,DDL6ba,& SDL2_full,DDL6bb,& QDL15_full,DDL0ba,BPMDL15,DDL0bb,DDL0bc,YCDL16,DDL6b,& QDL16_full,DBYKS01,CYDL16,DBYKS02,BPMDL16,DBYKS03,PC04B,BTM04B,DBYKS04,& BYKIK1S_full,DBYKS05,DBYKS05,& BYKIK2S_full,DBYKS06,XCDL17,DBYKS07,BPMDL17,DBYKS08,& QDL17_full,DBYKS11,CEDL17,DBYKS12,DBYKS13,SPOILERS,DBYKS14,& TDKIKS,DBYKS15,PCTDKIK1S,DBYKS16,PCTDKIK2S,DBYKS16,PCTDKIK3S,& DBYKS16,PCTDKIK4S,DBYKS17,YAGDL18,DBYKS18,YCDL18,DBYKS19,& QDL18_full,DDL19ba,BPMDL18,DDL19bb,PC06B,BTM06B,DDL19bc,XCDL19,DDL6b,& QDL19_full,DDL2ba,BPMDL19,DDL2bb,& BX32B_full,CNTLT1S,DDL14b,& QDL20_full,DDL6b,YCDL20,DDL17b,CC32b,DDL18ba,PC07B,BTM07B,DDL18bb,& YCDL21,DDL6b,& QDL21_full,DDL4b,XCDL22,DDL6b,& QDL22_full,DDL5b) COMMENT !test line to find ABYKIKS angle for -14.2 mm offset at front face of TDKIKS SET, ABYKIKS, 0.889371410732E-3 KYKIK1S : VKIC, L=LKIK/2, KICK=-ABYKIKS/4 KYKIK2S : VKIC, L=LKIK/2, KICK=-ABYKIKS/4 KYKIK1S_full : LINE=(KYKIK1S,KYKIK1S) KYKIK2S_full : LINE=(KYKIK2S,KYKIK2S) TESTBYKIKS : LINE=(& KYKIK1S_full,DBYKS05,DBYKS05,& KYKIK2S_full,DBYKS06,XCDL17,DBYKS07,BPMDL17,DBYKS08,& QDL17_full,DBYKS11,CEDL17,DBYKS12,BTM05B,DBYKS13,SPOILERS,DBYKS14) USE, TESTBYKIKS MATCH, BETX=10, BETY=10, ORBIT VARY, ABYKIKS, STEP=1.E-6 CONSTR, #E, Y=-14.2E-3 !LMDIF, TOL=1.E-20 !MIGRAD, TOL=1.E-20 ENDMATCH VALUE, ABYKIKS SELECT, OPTICS, FULL OPTICS, BETX=10, BETY=10, COLUMNS=NAME,S,L,Y,PY STOP ENDCOMMENT ! ------------------------------------------------------------------------------ ! SXR VBEND ! ------------------------------------------------------------------------------ KQVBb := -2.509359002417 KQVM3B := 0.953555362463 KQVM4B := -1.16254158193 QVB1B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1= KQVBb , APER=rQE QVB2B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=-KQVBb , APER=rQE QVB3B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1= KQVBb , APER=rQE QVM3B : QUAD, TYPE="1.26Q12" , L=LQA/2, K1= KQVM3b, APER=rQA QVM4B : QUAD, TYPE="1.26Q12" , L=LQA/2, K1= KQVM4b, APER=rQA S100_PITCH := -4.760000E-3 S100_HEIGHT := 77.643680 Z_S100_UNDH := 583.000000 R_Earth := 6.372508025E6 LVB := 1.025 !3D39 vertical bend effective length (m) GVB := 0.034925 !gap width (m) AVB := (S100_PITCH+ASIN(Z_S100_UNDH/(R_Earth+S100_HEIGHT)))/2 !bend up twice this angle so e- is level in cnt. of und. BY1B1 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT BY1B2 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E2=AVB/2, FINT=0, FINTX=0.5, TILT BY2B1 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT BY2B2 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E2=AVB/2, FINT=0, FINTX=0.5, TILT ! define unsplit SBENs for BMAD ... not used by MAD BY1B : SBEN, TYPE="3D39", HGAP=GVB/2, L=LVB, ANGLE=AVB, & E1=AVB/2, FINT=0.5, E2=AVB/2, FINTX=0.5, TILT BY2B : SBEN, TYPE="3D39", HGAP=GVB/2, L=LVB, ANGLE=AVB, & E1=AVB/2, FINT=0.5, E2=AVB/2, FINTX=0.5, TILT dDVB := 4.114978912453 !adjust Y in undulator DVB1b : DRIF, L=7.44546-dDVB*0.5+(LQA-LQE)/2, TYPE="CSR" DVB2b : DRIF, L=4.14092-dDVB*0.5+(LQA-LQE), TYPE="CSR" DVB2m80cmb : DRIF, L=3.34092-dDVB*0.5+(LQA-LQE) , TYPE="CSR" DVB1m40cmb : DRIF, L=7.04546-dDVB*0.5+(LQA-LQE)/2, TYPE="CSR" DVB1m40cmba : DRIF, L=2.9267695, TYPE="CSR" !13976 !2.990270 DVB1m40cmbb : DRIF, L=DVB1m40cmb[L]-DVB1m40cmba[L]-Lplate, TYPE="CSR" D40cmC : DRIF, L=0.40, TYPE="CSR" DYCVM1 : DRIF, L=0.40 DQVM1 : DRIF, L=0.34 DQVM2 : DRIF, L=0.5 DRQVM1 : DRIF, L=LQF/2 DRQVM2 : DRIF, L=LQF/2 DRQVM2Ba : DRIF, L=0.320870 !154231 !0.384366 DRQVM2Bb : DRIF, L=2*DRQVM2[L]-DRQVM2Ba[L]-Lplate DXCVM2 : DRIF, L=0.25 DVB25cm : DRIF, L=0.25 DVB25cmcB : DRIF, L=1.32046 D25cm : DRIF, L=0.25 DVBem25cmb : DRIF, L=1.39092-0.076175, TYPE="CSR" D25cmd : DRIF, L=0.25+0.076175, TYPE="CSR" DVBem15cmb : DRIF, L=0.243073, TYPE="CSR" D10cmb : DRIF, L=0.1064869 D25cma : DRIF, L=0.2209001, TYPE="CSR" BPMVB1B : MONI, TYPE="Stripline-2" BPMVB2B : MONI, TYPE="Stripline-2" BPMVB3B : MONI, TYPE="Stripline-2" BPMVM3B : MONI, TYPE="Stripline-10" BPMVM4B : MONI, TYPE="Stripline-10" XCVB2B : HKIC,TYPE="type-4" XCVM3B : HKIC,TYPE="type-4" YCVB1B : VKIC,TYPE="class-4" YCVB3B : VKIC,TYPE="class-4" YCVM4B : VKIC,TYPE="class-5" PC08B : INST, TYPE="BCS plate", L=Lplate BTM08B : INST, TYPE="PPS BTM" PC09B : INST, TYPE="BCS plate", L=Lplate BTM09B : INST, TYPE="PPS BTM" VBINb : MARK !start of vert. bend system VBOUTb : MARK !end of vert. bend system CNTLT2S : MARK, TYPE="CENTER" !ELEGANT will correct the orbit here for CSR-steering BY1B_full : LINE=(BY1B1,BY1B2) BY2B_full : LINE=(BY2B1,BY2B2) QVB1B_full : LINE=(QVB1B,BPMVB1B,QVB1B) QVB2B_full : LINE=(QVB2B,BPMVB2B,QVB2B) QVB3B_full : LINE=(QVB3B,BPMVB3B,QVB3B) QVM3B_full : LINE=(QVM3B,BPMVM3B,QVM3B) QVM4B_full : LINE=(QVM4B,BPMVM4B,QVM4B) VBENDb : LINE=(VBinb,& BY1B_full,DVB1b,& QVB1B_full,D40cmC,YCVB1B,DVB2m80cmb,XCVB2B,D40cmC,& QVB2B_full,DVB2b,& QVB3B_full,D40cmC,YCVB3B,DVB1m40cmba,PC09B,BTM09B,DVB1m40cmbb,& BY2B_full,CNTLT2S,VBoutb) VBSYSb : LINE=(DYCVM1,DQVM1,DRQVM1,DRQVM1,DQVM2,DRQVM2Ba,PC08B,BTM08B,& DRQVM2Bb,DXCVM2,DVB25cm,& VBENDb,DVB25cmcB,XCVM3B,D25cm,& QVM3B_full,DVBem25cmb,YCVM4B,D25cmd,& QVM4B_full,DVBem15cmb,D10cmb,D25cma) ! ------------------------------------------------------------------------------ ! SXR emittance diagnostic ! ------------------------------------------------------------------------------ KQEM1B := 1.994771712802 KQEM2B := -1.809226178089 KQEM3B := 1.263611884311 KQEM3VB := 0.0 KQEM4B := -0.89171746406 QEM1B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQEM1B, APER=rQE QEM2B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQEM2B, APER=rQE QEM3B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQEM3B, APER=rQE QEM3VB : QUAD, TYPE="1.26Q3.5" , L=LQx/2, K1=KQEM3VB, APER=rQx QEM4B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQEM4B, APER=rQE KQED2b := 0.402753197988 !ED2 FODO quad strength KQE31B := +KQED2b KQE32B := -KQED2b KQE33B := +KQED2b KQE34B := -KQED2b KQE35B := +KQED2b KQE36B := -KQED2b QE31B : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE31B, APER=rQx QE32B : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE32B, APER=rQx QE33B : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE33B, APER=rQx QE34B : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE34B, APER=rQx QE35B : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE35B, APER=rQx QE36B : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE36B, APER=rQx dz_adjust := 47.825 dDMM := 0.161670898486E-2 !adjust Z in undulator DRFB : DRIF, L=0.2 !separation between (warm) quadrupole and RF BPM D25cmb : DRIF, L=0.2627 D25cmc : DRIF, L=0.2373 DMM1m90cmB : DRIF, L=dDVB*2 -0.79954 +dDMM+(LQA-LQE)/2 DMM1m90cmBa : DRIF, L=3.485365 !3.548865 DMM1m90cmBb : DRIF, L=DMM1m90cmB[L]-DMM1m90cmBa[L]-Lplate DEM1A : DRIF, L=0.37 DEM1B : DRIF, L=4.14092 DEM1Bab : DRIF, L=1.086830+(LQA-LQE)/2 DEM1Bbb : DRIF, L=DEM1B[L]-DEM1Bab[L]+(LQA-LQE) DEM2B : DRIF, L=0.50 DMM3m80cm : DRIF, L=11.27092 DMM3m80cmx : DRIF, L=DMM3m80cm[L]+(LQA-LQE) DMM3m80cm1 : DRIF, L=5.677 DMM3m80cm2 : DRIF, L=DMM3m80cmx[L]-DMM3m80cm1[L] DMM3mab : DRIF, L=4.425910+(LQA-LQE)/2 DMM3mbb : DRIF, L=DMM3m80cm[L]-DMM3mab[L]+(LQA-LQE) DEM3A : DRIF, L=0.37 DEM3B : DRIF, L=0.773299 DEM3Bb : DRIF, L=DEM3B[L]+(LQA-LQE)/2 DMM4m90cm : DRIF, L=2.759621 DMM4m90cmb : DRIF, L=DMM4m90cm[L]+(LQA-LQE)/2 DMM4m90cmba : DRIF, L=0.9601915 !0.523691 DMM4m90cmbb : DRIF, L=DMM4m90cmb[L]-DMM4m90cmba[L]-Lplate DEM4A : DRIF, L=0.50 DMM5 : DRIF, L=2.07046-DRFB[L] DMM5a : DRIF, L=0.690570 !0.754070 DMM5b : DRIF, L=DMM5[L]-DMM5a[L]-Lplate DMM5ab : DRIF, L=0.90407+(LQA-LQE)/2 DMM5bb : DRIF, L=DMM5[L]-DMM5ab[L]+(LQA-LQE)/2 D40cm : DRIF, L=0.40 D40cmW : DRIF, L=0.3915855 DE3m80cma : DRIF, L=4.6-0.4-0.4+dz_adjust/12+0.15046 DE3mab : DRIF, L=5.333610 DE3mbb : DRIF, L=DE3m80cma[L]-DE3mab[L] DQEA : DRIF, L=0.40+(LQF-LQx)/2-0.15046 DQEBx : DRIF, L=0.32+(LQF-LQx)/2+0.33655-0.0768665+0.04 DQEBx2 : DRIF, L=4.6-0.4-0.4+dz_adjust/12-0.33655+0.0768665-0.04 DE3a : DRIF, L=4.6+dz_adjust/12+0.14046 DE3aBa : DRIF, L=1.341982 DE3aBb : DRIF, L=DE3a[L]-DE3aBa[L] DXL2BTM : DRIF, L=0.286375 !0.299875 DBTM2YC : DRIF, L=DE3aBb[L]-DXL2BTM[L]-Lplate DQEAa : DRIF, L=0.40+(LQF-LQx)/2-0.14046 DQEBy : DRIF, L=0.32+(LQF-LQx)/2+0.33655-0.0768665+0.04 DQEBy1 : DRIF, L=DQEBy[L]-DRFB[L] DQEBy2 : DRIF, L=4.6-0.4+dz_adjust/12-0.33655+0.0768665-0.04 DE3m80cmb : DRIF, L=4.6-0.4-0.4+dz_adjust/12+0.12046 DQEAb : DRIF, L=0.40+(LQF-LQx)/2-0.12046 DQEC : DRIF, L=4.6+dz_adjust/12+(LQF-LQx)/2 DQEC1 : DRIF, L=DQEC[L]-DRFB[L] DE3m40cm : DRIF, L=4.6-0.4+dz_adjust/12+0.15046 DE3m80cm : DRIF, L=4.6-0.4-0.4+dz_adjust/12-0.02954 DQEAc : DRIF, L=0.40+(LQF-LQx)/2+0.02954 DE3 : DRIF, L=4.6+dz_adjust/12+0.15046 BPMEM1B : MONI, TYPE="Stripline-2" BPMEM2B : MONI, TYPE="Stripline-2" BPMEM3B : MONI, TYPE="Stripline-2" BPMEM4B : MONI, TYPE="Stripline-2" RFBEM4B : MONI, TYPE="@2,CavityS-1" BPME31B : MONI, TYPE="Stripline-1" BPME32B : MONI, TYPE="Stripline-1" !type to be checked RFBE32B : MONI, TYPE="@2,CavityS-1" BPME33B : MONI, TYPE="Stripline-1" BPME34B : MONI, TYPE="Stripline-1" !type to be checked RFBE34B : MONI, TYPE="@2,CavityS-1" BPME35B : MONI, TYPE="Stripline-1" BPME36B : MONI, TYPE="Stripline-1" !type to be checked RFBE36B : MONI, TYPE="@2,CavityS-1" XCEM1B : HKIC,TYPE="class-4" XCEM3B : HKIC,TYPE="class-4" XCE31B : HKIC,TYPE="class-4" XCE33B : HKIC,TYPE="class-4" XCE35B : HKIC,TYPE="class-4" YCEM2B : VKIC,TYPE="class-4" YCEM4B : VKIC,TYPE="class-4" YCE32B : VKIC,TYPE="class-4" YCE34B : VKIC,TYPE="class-4" YCE36B : VKIC,TYPE="class-4" WS31B : WIRE, TYPE="fast" !LTU emittance WS32B : WIRE, TYPE="fast" !LTU emittance WS33B : WIRE, TYPE="fast" !LTU emittance WS34B : WIRE, TYPE="fast" !LTU emittance PC10B : INST, TYPE="BCS plate", L=Lplate BTM10B : INST, TYPE="PPS BTM" PC11B : INST, TYPE="BCS plate", L=Lplate BTM11B : INST, TYPE="PPS BTM" PC12B : INST, TYPE="BCS plate", L=Lplate BTM12B : INST, TYPE="PPS BTM" DCX31B : DRIF,L=0.08 DCY32B : DRIF,L=0.08 DCX35B : DRIF,L=0.08 DCY36B : DRIF,L=0.08 DBMARK36b : MARK !center of WS31B ! ============================================================================== ! XLEAP-II devices ! ============================================================================== ! ------------------------------------------------------------------------------ ! recycled XLEAP type-4 correctors ! ------------------------------------------------------------------------------ YCXL1 : VKIC, TYPE="class-4" XCXL1 : HKIC, TYPE="class-4" YCXL2 : VKIC, TYPE="class-4" XCXL2 : HKIC, TYPE="class-4" ! ------------------------------------------------------------------------------ ! modified (recycled) LCLS undulators ! ------------------------------------------------------------------------------ Kund := 0 !undulator parameter (rms) [ ] lamu := 0.40 !undulator period [m] Lseg := 3.400 !wiggler length [m] Lue := 0.035 !wiggler termination length (approx) [m] Lund := Lseg-2*Lue !wiggler length without terminations [m] Lundh := Lund/2 !wiggler half-length [m] comment !special definition for Matlab model gamXL := Eu/mc2 kqund := (Kund*2*pi/lamu/sqrt(2)/gamXL)^2 ARGu := Lundh*sqrt(kqund) ARGu2 := ARGu*ARGu ARGu4 := ARGu2*ARGu2 ARGu6 := ARGu4*ARGu2 SINCARGu := 1-ARGu2/6+ARGu4/120-ARGu6/5040 !~sinc(ARGu)=sin(ARGu)/ARGu R34u := Lundh*SINCARGu UMXLh : MATR, TYPE="LCLS-I", L=Lundh, & RM(1,1) = 1.0, & RM(1,2) = Lundh, & RM(2,1) = 0.0, & RM(2,2) = 1.0, & RM(3,3) = cos(Lundh*sqrt(kqund)), & !use this exact syntax! RM(3,4) = R34u, & RM(4,3) = -sin(Lundh*sqrt(kqund))*sqrt(kqund), & RM(4,4) = cos(Lundh*sqrt(kqund)) UMXL1h : UMXLh UMXL2h : UMXLh UMXL3h : UMXLh UMXL4h : UMXLh endcomment !comment ! half-wiggler modeled as an R-matrix which includes vertical focusing ! and horizontal defocusing per Ago Martinelli (see wigXL2.m); ! (see SUBROUTINE SETK2XL2 in LCLS2sc_main.mad8) ! define XLEAP-II wigglers (as DRIFTs ... turn on with SETK2XL2) R11XL1 := 1.0 R12XL1 := Lundh R21XL1 := 0.0 R22XL1 := 1.0 R33XL1 := 1.0 R34XL1 := Lundh R43XL1 := 0.0 R44XL1 := 1.0 UMXL1h : MATR, TYPE="LCLS-I", L=Lundh, & RM(1,1) = R11XL1, & RM(1,2) = R12XL1, & RM(2,1) = R21XL1, & RM(2,2) = R22XL1, & RM(3,3) = R33XL1, & RM(3,4) = R34XL1, & RM(4,3) = R43XL1, & RM(4,4) = R44XL1 R11XL2 := 1.0 R12XL2 := Lundh R21XL2 := 0.0 R22XL2 := 1.0 R33XL2 := 1.0 R34XL2 := Lundh R43XL2 := 0.0 R44XL2 := 1.0 UMXL2h : MATR, TYPE="LCLS-I", L=Lundh, & RM(1,1) = R11XL2, & RM(1,2) = R12XL2, & RM(2,1) = R21XL2, & RM(2,2) = R22XL2, & RM(3,3) = R33XL2, & RM(3,4) = R34XL2, & RM(4,3) = R43XL2, & RM(4,4) = R44XL2 R11XL3 := 1.0 R12XL3 := Lundh R21XL3 := 0.0 R22XL3 := 1.0 R33XL3 := 1.0 R34XL3 := Lundh R43XL3 := 0.0 R44XL3 := 1.0 UMXL3h : MATR, TYPE="LCLS-I", L=Lundh, & RM(1,1) = R11XL3, & RM(1,2) = R12XL3, & RM(2,1) = R21XL3, & RM(2,2) = R22XL3, & RM(3,3) = R33XL3, & RM(3,4) = R34XL3, & RM(4,3) = R43XL3, & RM(4,4) = R44XL3 R11XL4 := 1.0 R12XL4 := Lundh R21XL4 := 0.0 R22XL4 := 1.0 R33XL4 := 1.0 R34XL4 := Lundh R43XL4 := 0.0 R44XL4 := 1.0 UMXL4h : MATR, TYPE="LCLS-I", L=Lundh, & RM(1,1) = R11XL4, & RM(1,2) = R12XL4, & RM(2,1) = R21XL4, & RM(2,2) = R22XL4, & RM(3,3) = R33XL4, & RM(3,4) = R34XL4, & RM(4,3) = R43XL4, & RM(4,4) = R44XL4 !endcomment UMXL1h_full : LINE=(UMXL1h,UMXL1h) UMXL2h_full : LINE=(UMXL2h,UMXL2h) UMXL3h_full : LINE=(UMXL3h,UMXL3h) UMXL4h_full : LINE=(UMXL4h,UMXL4h) ! ------------------------------------------------------------------------------ ! new XLEAP-II quadrupoles (to mitigate focusing of wigglers) ! ------------------------------------------------------------------------------ KQFXL1 := 0 KQFXL2 := 0 QFXL1 : QUAD, TYPE="1.085Q4.31", L=LQE/2, APER=rQE, K1=KQFXL1 QFXL2 : QUAD, TYPE="1.085Q4.31", L=LQE/2, APER=rQE, K1=KQFXL2 QFXL1_full : LINE=(QFXL1,QFXL1) QFXL2_full : LINE=(QFXL2,QFXL2) ! wiggler pairs DUQXL : DRIF, L=0.2166 UMXLpair1 : LINE=(UMXL1h_full,DUQXL,QFXL1_full,DUQXL,UMXL2h_full) UMXLpair2 : LINE=(UMXL3h_full,DUQXL,QFXL2_full,DUQXL,UMXL4h_full) ! ------------------------------------------------------------------------------ ! original XLEAP self-seeding chicane (normally OFF) ! ------------------------------------------------------------------------------ ! - from RadiaBeam (C-bends; 0.75 T peak field; 1 degree max) ! - use series approximation for sinc(x)=sin(x)/x to allow ABXL=0 ! - deflects toward +X (to the left/north/wall) ! - Dieter Walz designation: 1.575D14-C (pole-width rather than gap height) ! GBXL : 0.433D14-C gap height (m) ! ZBXL : 0.433D14-C "Z" length (m) ! FBXL : measured fringe field ! ABXL : chicane bend angle (rad) ! BBXL : chicane bend field (kG) ! LBXL : chicane bend path length (m) ! ABXLs : "short" half chicane bend angle (rad) ! LBXLs : "short" half chicane bend path length (m) ! ABXLl : "long" half chicane bend angle (rad) ! LBXLl : "long" half chicane bend path length (m) ! BCXXL1 gets an X-offset of -5 mm (toward the aisle) ! BCXXL2 gets an X-offset of -12 mm (toward the aisle) ! BCXXL3 gets an X-offset of -12 mm (toward the aisle) ! BCXXL4 gets an X-offset of -5 mm (toward the aisle) GBXL := 0.011 ZBXL := 0.364 FBXL := 0.5 ABXL0 := 0.0174 !R56=0.56 mm ABXL := ABXL0*SETXLEAP2 BBXL := Brhof*SIN(ABXL)/ZBXL ABXL_2 := ABXL*ABXL ABXL_4 := ABXL_2*ABXL_2 ABXL_6 := ABXL_4*ABXL_2 SINCABXL := 1-ABXL_2/6+ABXL_4/120-ABXL_6/5040 !~sinc(ABXL)=sin(ABXL)/ABXL LBXL := ZBXL/SINCABXL ABXLs := ASIN(SIN(ABXL)/2) ABXLs_2 := ABXLs*ABXLs ABXLs_4 := ABXLs_2*ABXLs_2 ABXLs_6 := ABXLs_4*ABXLs_2 SINCABXLs := 1-ABXLs_2/6+ABXLs_4/120-ABXLs_6/5040 !~sinc(ABXLs)=sin(ABXLs)/ABXLs LBXLs := ZBXL/(2*SINCABXLs) ABXLl := ABXL-ABXLs LBXLl := LBXL-LBXLs BCXXL11 : SBEN, TYPE="0.433D14-C", L=LBXLs, ANGLE=-ABXLs, HGAP=GBXL/2, & E1=0, FINT=FBXL, FINTX=0 BCXXL12 : SBEN, TYPE="0.433D14-C", L=LBXLl, ANGLE=-ABXLl, HGAP=GBXL/2, & FINT=0, E2=-ABXL, FINTX=FBXL BCXXL21 : SBEN, TYPE="0.433D14-C", L=LBXLl, ANGLE=+ABXLl, HGAP=GBXL/2, & E1=+ABXL, FINT=FBXL, FINTX=0 BCXXL22 : SBEN, TYPE="0.433D14-C", L=LBXLs, ANGLE=+ABXLs, HGAP=GBXL/2, & FINT=0, E2=0, FINTX=FBXL BCXXL31 : SBEN, TYPE="0.433D14-C", L=LBXLs, ANGLE=+ABXLs, HGAP=GBXL/2, & E1=0, FINT=FBXL, FINTX=0 BCXXL32 : SBEN, TYPE="0.433D14-C", L=LBXLl, ANGLE=+ABXLl, HGAP=GBXL/2, & FINT=0, E2=+ABXL, FINTX=FBXL BCXXL41 : SBEN, TYPE="0.433D14-C", L=LBXLl, ANGLE=-ABXLl, HGAP=GBXL/2, & E1=-ABXL, FINT=FBXL, FINTX=0 BCXXL42 : SBEN, TYPE="0.433D14-C", L=LBXLs, ANGLE=-ABXLs, HGAP=GBXL/2, & FINT=0, E2=0, FINTX=FBXL ! define unsplit SBENs for BMAD ... not used by MAD BCXXL1 : SBEN, TYPE="0.433D14-C", HGAP=GBXL/2, L=LBXL, ANGLE=-ABXL, & E1=0, FINT=FBXL, E2=-ABXL, FINTX=FBXL BCXXL2 : SBEN, TYPE="0.433D14-C", HGAP=GBXL/2, L=LBXL, ANGLE=+ABXL, & E1=+ABXL, FINT=FBXL, E2=0, FINTX=FBXL BCXXL3 : SBEN, TYPE="0.433D14-C", HGAP=GBXL/2, L=LBXL, ANGLE=+ABXL, & E1=0, FINT=FBXL, E2=+ABXL, FINTX=FBXL BCXXL4 : SBEN, TYPE="0.433D14-C", HGAP=GBXL/2, L=LBXL, ANGLE=-ABXL, & E1=-ABXL, FINT=FBXL, E2=0, FINTX=FBXL ! magnet-to-magnet path lengths ZDXLo := 1.046-ZBXL !outer bend-to-bend Z distance (m) ZDXLi := 0.520-ZBXL !inner bend-to-bend Z distance (m) DXLo : DRIF, L=ZDXLo/COS(ABXL) DXLi : DRIF, L=ZDXLi/2 LBCXL := 4*ZBXL+2*ZDXLo+ZDXLi !chicane length ! MARKers BCXLSSBEG : MARK BCXLSSMID : MARK BCXLSSEND : MARK ! beamline BCXXL1_full : LINE=(BCXXL11,BCXXL12) BCXXL2_full : LINE=(BCXXL21,BCXXL22) BCXXL3_full : LINE=(BCXXL31,BCXXL32) BCXXL4_full : LINE=(BCXXL41,BCXXL42) BCXLSS : LINE=(BCXLSSBEG, & BCXXL1_full,DXLo,& BCXXL2_full,DXLi,BCXLSSMID,DXLi,& BCXXL3_full,DXLo,& BCXXL4_full,& BCXLSSEND) ! drifts around undulator pairs and chicane DXLUa1 : DRIF, L=0.404978 DXLUa2 : DRIF, L=0.395986 DUMXL12u : DRIF, L=0.566965333333 DUMXL12d : DRIF, L=1.422304333333 DXLUc : DRIF, L=3.5 DXLUd1 : DRIF, L=0.323714 DXLUd2 : DRIF, L=0.393700 DUMXL34u : DRIF, L=0.549586 DUMXL34d : DRIF, L=2.154753333333 MXL2a : MARK MXL2b : MARK ! ------------------------------------------------------------------------------ ! SXR emittance diagnostic beamline ! ------------------------------------------------------------------------------ QEM1B_full : LINE=(QEM1B,BPMEM1B,QEM1B) QEM2B_full : LINE=(QEM2B,BPMEM2B,QEM2B) QEM3B_full : LINE=(QEM3B,BPMEM3B,QEM3B) QEM3VB_full : LINE=(QEM3VB,QEM3VB) QEM4B_full : LINE=(QEM4B,BPMEM4B,QEM4B) QE31B_full : LINE=(QE31B,BPME31B,QE31B) QE32B_full : LINE=(QE32B,BPME32B,QE32B) QE33B_full : LINE=(QE33B,BPME33B,QE33B) QE34B_full : LINE=(QE34B,BPME34B,QE34B) QE35B_full : LINE=(QE35B,BPME35B,QE35B) QE36B_full : LINE=(QE36B,BPME36B,QE36B) EDMCHb : LINE=(D25cmb,D25cmc,DMM1m90cmBa,PC10B,BTM10B,DMM1m90cmBb,& XCEM1B,DEM1A,& QEM1B_full,DEM1Bab,DEM1Bbb,& QEM2B_full,DEM2B,YCEM2B,DMM3m80cm1,DMM3m80cm2,XCEM3B,DEM3A,& QEM3B_full,DEM3Bb,& QEM3VB_full,DMM4m90cmba,PC11B,BTM11B,DMM4m90cmbb,YCEM4B,DEM4A,& QEM4B_full,DRFB,RFBEM4B,DMM5ab,DMM5bb) EDSYSB : LINE=(DBMARK36b,WS31B,D40cm,DE3mab,DE3mbb,XCE31B,DQEA,& QE31B_full,DXLUa1,YCXL1,DXLUa2,XCXL1,DUMXL12u,& UMXLpair1,MXL2a,DUMXL12d,PC12B,BTM12B,DBTM2YC,YCE32B,DQEAa,& QE32B_full,DRFB,RFBE32B,DQEBy1,DCY32B,DQEBy2,WS32B,D40cm,DE3m80cmb,& XCE33B,DQEAb,& QE33B_full,DQEC,DE3m40cm,YCE34B,DQEA,& QE34B_full,DRFB,RFBE34B,DQEC1,WS33B,D40cm,DE3m80cm,XCE35B,DQEAc,& QE35B_full,DXLUc,BCXLSS,DXLUd1,YCXL2,DXLUd2,XCXL2,DUMXL34u,MXL2b,& UMXLpair2,DUMXL34d,YCE36B,DQEA,& QE36B_full,DRFB,RFBE36B,DQEBy1,DCY36B,DQEBy2,WS34B,D40cm) ECELLb : LINE=(QE31B,DQEC,DQEC,QE32B,QE32B,DQEC,DQEC,QE31B) ! ------------------------------------------------------------------------------ ! SXR undulator match ! ------------------------------------------------------------------------------ ! note: the below K-values come from Y. Nosochkov's UNDS_KQ5_US.xsif file, ! for E= 4.0 GeV and KSXU= 5.0 (IntgSX= 30.0 kG) ! note: the below K-values are for SC beam; the settings for Cu beam are ! in the "LCLS2cu_main.mad8" file KQUM1B := 0.311729673613 KQUM2B := -0.13 KQUM3B := 0.384569277452 KQUM4B := -0.522052682614 QUM1B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQUM1b, APER=rQE QUM2B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQUM2b, APER=rQE QUM3B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQUM3b, APER=rQE QUM4B : QUAD, TYPE="1.085Q4.31", L=LQE/2, K1=KQUM4b, APER=rQE DU1m80cm : DRIF, L=4.550 DCX37 : DRIFT,L=0.08 DCY38 : DRIFT,L=0.08 D32cmcB : DRIF, L=1.30046+(LQA-LQE)/2 +0.5 DUM1A : DRIF, L=0.49 DUM1B : DRIF, L=0.47046 D32cm : DRIF, L=0.32 DU2m120cmB : DRIF, L=3.730+(LQA-LQE) -0.5 D32cma : DRIF, L=0.42046 DUM2A : DRIF, L=0.37 DUM2B : DRIF, L=0.47046 DU3m80cm : DRIF, L=7.29046 DU3m80cmB : DRIF, L=DU3m80cm[L]+(LQA-LQE) DUM3A : DRIF, L=0.38 DUM3B : DRIF, L=0.47046 D40cma : DRIF, L=1.807939 DU4m120cm : DRIF, L=1.362521 DU4m120cmB : DRIF, L=DU4m120cm[L]+(LQA-LQE) DUM4A : DRIF, L=0.50 DUM4B : DRIF, L=0.59746 DU5m80cm : DRIF, L=0.5 DU5m80cmB : DRIF, L=DU5m80cm[L]+(LQA-LQE)/2 DUHWALL1 : DRIF, L=0.250825 !length of BTH/UH wall-1 DUHVEST : DRIF, L=2.009175 !length of BTH/UH vestibule DUHVESTa : DRIF, L=1.605684 DUHVESTb : DRIF, L=DUHVEST[L]-DUHVESTa[L] DUHWALL2 : DRIF, L=0.250825 !length of BTH/UH wall-2 DW2TDUNDb : DRIF, L=3.001537 +0.060429 !drift from BTH/UH wall-2 to TDUNDB u/s flange DTDUND1 : DRIF, L=0.855853 !from u/s TDUND flange to TDUND center DTDUND2 : DRIF, L=0.347853 !from TDUND center to d/s TDUND flange DPCMUON : DRIF, L=0.031498 DMUON1 : DRIF, L=0.154859 +0.05 DMUON1b : DRIF, L=0.154859 +0.05 -0.060429 +0.117 DMUON3b : DRIF, L=0.310592 -0.05 -0.117 BPMUM1B : MONI, TYPE="Stripline-2" BPMUM2B : MONI, TYPE="Stripline-2" BPMUM3B : MONI, TYPE="Stripline-2" BPMUM4B : MONI, TYPE="Stripline-2" XCUM1B : HKIC,TYPE="class-4f" !fast-feedback (loop-5) XCUM3B : HKIC,TYPE="class-4f" !fast-feedback (loop-5) YCUM2B : VKIC,TYPE="class-4f" !fast-feedback (loop-5) YCUM4B : VKIC,TYPE="class-4f" !fast-feedback (loop-5) TDUNDB : INST !LTU insertable block at und. extension entrance (w/ screen) ! Note: PCMUONb Y-aperture violates standard BSC -- approved by P. Emma PCMUONb : ECOL,L=1.1684,XSIZE=8.64E-3/2,YSIZE=4.32E-3/2 !muon scattering collimator VV999b : MARK !vacuum valve just upbeam of undulator - TBD PFILT1b : MARK MM1b : MARK MM2b : MARK MM3b : MARK MUWALLb : MARK !front face of muon wall for SXR beam DUMPBSYs : MARK !front face of BSY dump for SXR beam BSYENDb : MARK !FFTB side of muon plug wall RWWAKE3S : MARK, TYPE="WAKE" !SPRDS/BSY beampipe wake applied here MUHWALL1b : MARK !upstream end of BTH/UH wall-1 MUHWALL2b : MARK !upstream end of BTH/UH wall-2 DBMARK37b : MARK !end of undulator match RWWAKE4S : MARK, TYPE="WAKE" !LTUS beampipe wake applied here QUM1B_full : LINE=(QUM1B,BPMUM1B,QUM1B) QUM2B_full : LINE=(QUM2B,BPMUM2B,QUM2B) QUM3B_full : LINE=(QUM3B,BPMUM3B,QUM3B) QUM4B_full : LINE=(QUM4B,BPMUM4B,QUM4B) UNMCHb : LINE=(DU1m80cm,DCX37,D32cmcB,DUM1A,& QUM1B_full,DUM1B,XCUM1B,D32cm,DU2m120cmB,DCY38,D32cma,YCUM2B,DUM2A,& QUM2B_full,DUM2B,DU3m80cmB,XCUM3B,DUM3A,& QUM3B_full,DUM3B,D40cma,DU4m120cmB,YCUM4B,DUM4A,& QUM4B_full,DUM4B,DU5m80cmB,D40cmW,MUHWALL1b,DUHWALL1,DUHVEST,MUHWALL2b,& DUHWALL2,DW2TDUNDb,DTDUND1,TDUNDB,DTDUND2,DPCMUON,PCMUONb,DMUON1b,& VV999b) LTUsc : LINE=(MM1b,DL2sc,VBSYSb,MM2b,EDMCHb,EDSYSb,UNMCHb) PREUNDS : LINE=(DMUON3b,MM3b,PFILT1b,DBMARK37b) BSYLTUsc : LINE=(MUWALLb,DWALLa,DUMPBSYs,DWALLb,& BSYENDb,ENDSPS,DBLDL21,LTUsc,PREUNDS) ! ------------------------------------------------------------------------------ ! SXR dumpline ! ------------------------------------------------------------------------------ KQDMPB := -0.154946553294 !-0.156309918216 QDmp1B : QUAD, TYPE="3.94Q17", L=LQP/2, K1=KQDmpb, APER=rQP QDmp2B : QUAD, TYPE="3.94Q17", L=LQP/2, K1=KQDmpb, APER=rQP LBYDS := 0.5 !effective straight length of dump soft bend 1.26D18.43 GBYDS := 0.032 !full gap of dump soft bend ABYDS := 6.E-4 LeffBYDS := LBYDS*ABYDS/(2*SIN(ABYDS/2)) !bend path length (m) BYDSS1 : SBEN, TYPE="1.26D18.43", L=LeffBYDS/2, ANGLE=ABYDS/2, & HGAP=GBYDS/2, E1=ABYDS/2, E2=0, FINT=0.5, FINTX=0.0, TILT BYDSS2 : SBEN, TYPE="1.26D18.43", L=LeffBYDS/2, ANGLE=ABYDS/2, & HGAP=GBYDS/2, E1=0, E2=ABYDS/2, FINT=0.0, FINTX=0.5, TILT ! define unsplit SBENs for BMAD ... not used by MAD BYDSS : SBEN, TYPE="1.26D18.43", HGAP=GBYDS/2, L=LeffBYDS, ANGLE=ABYDS, & E1=ABYDS/2, FINT=0.5, E2=ABYDS/2, FINTX=0.5, TILT LBdm := 1.452 !effective straight bend length of main dump bends - from J. Tanabe (m) GBdm := 0.043 !full gap (m) of main dump bends (SA-380-328-03 shows magnet half-gap = 0.866") FBdm := 0.5513 !measured FINT ABdm := 0.02240073511 !angle per main dump bend (rad) LeffBdm := LBdm*ABdm/(2*SIN(ABdm/2)) !bend path length (m) BYD1B1 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=ABdm/2, E2=0, FINT=FBdm, FINTX=0.0, TILT BYD1B2 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=0, E2=ABdm/2, FINT=0.00, FINTX=FBdm, TILT BYD2B1 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=ABdm/2, E2=0, FINT=FBdm, FINTX=0.0, TILT BYD2B2 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=0, E2=ABdm/2, FINT=0.00, FINTX=FBdm, TILT BYD3B1 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=ABdm/2, E2=0, FINT=FBdm, FINTX=0.0, TILT BYD3B2 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=0, E2=ABdm/2, FINT=0.00, FINTX=FBdm, TILT ! define unsplit SBENs for BMAD ... not used by MAD BYD1B : SBEN, TYPE="1.69VD55.1", HGAP=GBdm/2, L=LeffBdm, ANGLE=ABdm, & E1=ABdm/2, FINT=FBdm, E2=ABdm/2, FINTX=FBdm, TILT BYD2B : SBEN, TYPE="1.69VD55.1", HGAP=GBdm/2, L=LeffBdm, ANGLE=ABdm, & E1=ABdm/2, FINT=FBdm, E2=ABdm/2, FINTX=FBdm, TILT BYD3B : SBEN, TYPE="1.69VD55.1", HGAP=GBdm/2, L=LeffBdm, ANGLE=ABdm, & E1=ABdm/2, FINT=FBdm, E2=ABdm/2, FINTX=FBdm, TILT PCPM1LB : ECOL, L=LPCPM, XSIZE=14.2875E-3, YSIZE=14.2875E-3 PCPM2LB : ECOL, L=LPCPM, XSIZE=38.1E-3, YSIZE=38.1E-3 PCEBDB : ECOL, L=0, XSIZE=34.0E-3, YSIZE=34.0E-3 , & TYPE="gasket coll" LDS1 := 0.3158763 LDS := 0.247946 LDMP1 := 11.516159251113 !BYD3/BYD3B to QDmp1/QDmp1B Ddmpv := -0.73352263654 dDWSDUMP := 0.248126313572 !set Z at DUMPFACEB DS1 : DRIF, L=LDS1 DS : DRIF, L=LDS DD1Ba : DRIF, L=0.577681352129 DD1Bb : DRIF, L=1.000087502327 DD1Bc : DRIF, L=0.3048 DD1Be : DRIF, L=0.24963810293 DD1Bf : DRIF, L=0.409240108574 DD1Bd : DRIF, L=LDMP1-(DD1Ba[L]+PCPM1LB[L]+DD1Bb[L]+DD1Bc[L]+& DD1Be[L]+PCPM2LB[L]+DD1Bf[L]) DD12a : DRIF, L=0.25-0.0079372+0.06 DD12b : DRIF, L=0.0079372 DD12c : DRIF, L=0.25+0.06 DD2a : DRIF, L=0.4+0.0634916+0.0115084 DD2c : DRIF, L=1.0 DD2b : DRIF, L=8.1507760-LQD/2+Ddmpv-DD2c[L]+0.06 DD3a : DRIF, L=0.3+0.049684+0.001583 DD3b : DRIF, L=0.3-0.001583-0.1447026 DWSDUMPa : DRIF, L=0.44156/2 DWSDUMPa1 : DRIF, L=0.07596510786 DWSDUMPa2 : DRIF, L=DWSDUMPa[L]-DWSDUMPa1[L] DWSDUMPb : DRIF, L=0.44156-DWSDUMPa[L] DWSDUMPc : DRIF, L=2.038949 +dDWSDUMP DDUMP : DRIF, L=61.120*in2m !length of EBD dump (per A. Ibrahimov) BPMQDB : MONI, TYPE="Stripline-11" !RFBQDB : MONI, TYPE="@2,CavityL-1" BPMDDB : MONI, TYPE="Stripline-8" RFBDDB : MONI, TYPE="@2,CavityL-1" XCDDB : HKIC,TYPE="class-5" YCDDB : VKIC,TYPE="class-5" OTRDMPB : PROF, TYPE="OTR" !Dump screen WSDUMPB : WIRE, TYPE="@3,special" MIMBCS4b : MARK BTM1LB : INST !Burn-Through-Monitor behind PCPM1LB BTM2LB : INST !Burn-Through-Monitor behind PCPM2LB DUMPFACEB : INST !entrance face of main e- dump BTMDUMPB : INST !Burn-Through-Monitor of main e- dump MQDMPB : MARK DMPendb : MARK DBMARK38b : MARK !end of final undulator dump ARODMP1S := -0.174519678252 ARODMP2S := 0.174913455104 RODMP1S : SROT, ANGLE=ARODMP1S RODMP2S : SROT, ANGLE=ARODMP2S BYDSS_full : LINE=(BYDSS1,BYDSS2) BYD1B_full : LINE=(BYD1B1,BYD1B2) BYD2B_full : LINE=(BYD2B1,BYD2B2) BYD3B_full : LINE=(BYD3B1,BYD3B2) QDmp1B_full : LINE=(QDmp1B,QDmp1B) QDmp2B_full : LINE=(QDmp2B,QDmp2B) DUMPLINEb : LINE=(BEGDMPS_2,RODMP1S,& BYDSS_full,DS1,& BYD1B_full,DS,& BYD2B_full,DS,& BYD3B_full,DD1Ba,PCPM1LB,BTM1LB,DD1Bb,DD1Bc,MIMBCS4b,DD1Bd,YCDDB,DD1Be,& PCPM2LB,BTM2LB,DD1Bf,& QDmp1B_full,DD12a,BPMQDB,DD12b,MQDMPB,DD12c,& QDmp2B_full,DD2a,XCDDB,DD2b,DD2c,DD3a,BPMDDB,DD3b,OTRDMPB,DWSDUMPa1,& PCEBDB,DWSDUMPa2,RFBDDB,DWSDUMPb,WSDUMPB,DWSDUMPc,& RODMP2S,DUMPFACEB,DDUMP,DMPendb,BTMDUMPB,DBMARK38b,& ENDDMPS_2) ! ============================================================================== ! HXR LTU and dump ! ============================================================================== ! ------------------------------------------------------------------------------ ! HXR R56 compensating chicanes ! - use series approximation for sinc(x)=sin(x)/x to allow zero field ! ------------------------------------------------------------------------------ ! Brhof : beam rigidity at chicane (kG-m) ! GBCC : gap height (m) ! ZBCC : magnet Z-length along axis (m) ! ZDCC : Z-space between magnets (m) ! BBX.. : chicane bend field (kG) at 4 GeV ! ABX.. : chicane bend angle (rad) ! LBX.. : chicane bend path length (m) ! ABX..S : "short" half chicane bend angle (rad) ! ABX..L : "long" half chicane bend angle (rad) ! LBX..S : "short" half chicane bend path length (m) ! LBX..L : "long" half chicane bend path length (m) BBX31 := 0.0 *Ef/4.0 ARG31 := ZBCC*BBX31/Brhof ABX31 := ASIN(ARG31) ABX31_2 := ABX31*ABX31 ABX31_4 := ABX31_2*ABX31_2 ABX31_6 := ABX31_4*ABX31_2 SINC31 := 1.0-ABX31_2/6+ABX31_4/120-ABX31_6/5040 LBX31 := ZBCC/SINC31 ABX31S := ASIN(ARG31/2) ABX31S_2 := ABX31S*ABX31S ABX31S_4 := ABX31S_2*ABX31S_2 ABX31S_6 := ABX31S_4*ABX31S_2 SINC31S := 1.0-ABX31S_2/6+ABX31S_4/120-ABX31S_6/5040 LBX31S := ZBCC/(2*SINC31S) ABX31L := ABX31-ABX31S LBX31L := LBX31-LBX31S BCX3111 : SBEN, TYPE="@2,0.788D11.50", L=LBX31S, ANGLE=+ABX31S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3112 : SBEN, TYPE="@2,0.788D11.50", L=LBX31L, ANGLE=+ABX31L, E2=+ABX31, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3121 : SBEN, TYPE="@2,0.788D11.50", L=LBX31L, ANGLE=-ABX31L, E1=-ABX31, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3122 : SBEN, TYPE="@2,0.788D11.50", L=LBX31S, ANGLE=-ABX31S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3131 : SBEN, TYPE="@2,0.788D11.50", L=LBX31S, ANGLE=-ABX31S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3132 : SBEN, TYPE="@2,0.788D11.50", L=LBX31L, ANGLE=-ABX31L, E2=-ABX31, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3141 : SBEN, TYPE="@2,0.788D11.50", L=LBX31L, ANGLE=+ABX31L, E1=+ABX31, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3142 : SBEN, TYPE="@2,0.788D11.50", L=LBX31S, ANGLE=+ABX31S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC ! define unsplit SBENs for BMAD ... not used by MAD BCX311 : SBEN, TYPE="@2,0.788D11.50", HGAP=GBCC/2, L=LBX31, ANGLE=+ABX31, & E1=0, FINT=FBCC, E2=+ABX31, FINTX=FBCC BCX312 : SBEN, TYPE="@2,0.788D11.50", HGAP=GBCC/2, L=LBX31, ANGLE=-ABX31, & E1=-ABX31, FINT=FBCC, E2=0, FINTX=FBCC BCX313 : SBEN, TYPE="@2,0.788D11.50", HGAP=GBCC/2, L=LBX31, ANGLE=-ABX31, & E1=0, FINT=FBCC, E2=-ABX31, FINTX=FBCC BCX314 : SBEN, TYPE="@2,0.788D11.50", HGAP=GBCC/2, L=LBX31, ANGLE=+ABX31, & E1=+ABX31, FINT=FBCC, E2=0, FINTX=FBCC DCC31o : DRIF, L=ZDCC/COS(ABX31), TYPE="CSR" DCC31i : DRIF, L=ZDCC , TYPE="CSR" CC31BEG : MARK CC31END : MARK BCX311_full : LINE=(BCX3111,BCX3112) BCX312_full : LINE=(BCX3121,BCX3122) BCX313_full : LINE=(BCX3131,BCX3132) BCX314_full : LINE=(BCX3141,BCX3142) CC31 : LINE=(CC31BEG,& BCX311_full,DCC31o,& BCX312_full,DCC31i,& BCX313_full,DCC31o,& BCX314_full,& CC31END) BBX32 := 2.3628*SQRT(2.0) *Ef/4.0 *1.15 ARG32 := ZBCC*BBX32/Brhof ABX32 := ASIN(ARG32) ABX32_2 := ABX32*ABX32 ABX32_4 := ABX32_2*ABX32_2 ABX32_6 := ABX32_4*ABX32_2 SINC32 := 1-ABX32_2/6+ABX32_4/120-ABX32_6/5040 LBX32 := ZBCC/SINC32 ABX32S := ASIN(ARG32/2) ABX32S_2 := ABX32S*ABX32S ABX32S_4 := ABX32S_2*ABX32S_2 ABX32S_6 := ABX32S_4*ABX32S_2 SINC32S := 1-ABX32S_2/6+ABX32S_4/120-ABX32S_6/5040 LBX32S := ZBCC/(2*SINC32S) ABX32L := ABX32-ABX32S LBX32L := LBX32-LBX32S BCX3211 : SBEN, TYPE="0.788D11.50", L=LBX32S, ANGLE=+ABX32S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3212 : SBEN, TYPE="0.788D11.50", L=LBX32L, ANGLE=+ABX32L, E2=+ABX32, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3221 : SBEN, TYPE="0.788D11.50", L=LBX32L, ANGLE=-ABX32L, E1=-ABX32, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3222 : SBEN, TYPE="0.788D11.50", L=LBX32S, ANGLE=-ABX32S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3231 : SBEN, TYPE="0.788D11.50", L=LBX32S, ANGLE=-ABX32S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3232 : SBEN, TYPE="0.788D11.50", L=LBX32L, ANGLE=-ABX32L, E2=-ABX32, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3241 : SBEN, TYPE="0.788D11.50", L=LBX32L, ANGLE=+ABX32L, E1=+ABX32, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3242 : SBEN, TYPE="0.788D11.50", L=LBX32S, ANGLE=+ABX32S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC ! define unsplit SBENs for BMAD ... not used by MAD BCX321 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32, ANGLE=+ABX32, & E1=0, FINT=FBCC, E2=+ABX32, FINTX=FBCC BCX322 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32, ANGLE=-ABX32, & E1=-ABX32, FINT=FBCC, E2=0, FINTX=FBCC BCX323 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32, ANGLE=-ABX32, & E1=0, FINT=FBCC, E2=-ABX32, FINTX=FBCC BCX324 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX32, ANGLE=+ABX32, & E1=+ABX32, FINT=FBCC, E2=0, FINTX=FBCC DCC32o : DRIF, L=ZDCC/COS(ABX32), TYPE="CSR" DCC32i : DRIF, L=ZDCC , TYPE="CSR" CC32BEG : MARK CC32END : MARK BCX321_full : LINE=(BCX3211,BCX3212) BCX322_full : LINE=(BCX3221,BCX3222) BCX323_full : LINE=(BCX3231,BCX3232) BCX324_full : LINE=(BCX3241,BCX3242) CC32 : LINE=(CC32BEG,& BCX321_full,DCC32o,& BCX322_full,DCC32i,& BCX323_full,DCC32o,& BCX324_full,& CC32END) BBX35 := 2.3628 *Ef/4.0 *1.15 ARG35 := ZBCC*BBX35/Brhof ABX35 := ASIN(ARG35) ABX35_2 := ABX35*ABX35 ABX35_4 := ABX35_2*ABX35_2 ABX35_6 := ABX35_4*ABX35_2 SINC35 := 1-ABX35_2/6+ABX35_4/120-ABX35_6/5040 LBX35 := ZBCC/SINC35 ABX35S := ASIN(ARG35/2) ABX35S_2 := ABX35S*ABX35S ABX35S_4 := ABX35S_2*ABX35S_2 ABX35S_6 := ABX35S_4*ABX35S_2 SINC35S := 1-ABX35S_2/6+ABX35S_4/120-ABX35S_6/5040 LBX35S := ZBCC/(2*SINC35S) ABX35L := ABX35-ABX35S LBX35L := LBX35-LBX35S BCX3511 : SBEN, TYPE="0.788D11.50", L=LBX35S, ANGLE=+ABX35S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3512 : SBEN, TYPE="0.788D11.50", L=LBX35L, ANGLE=+ABX35L, E2=+ABX35, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3521 : SBEN, TYPE="0.788D11.50", L=LBX35L, ANGLE=-ABX35L, E1=-ABX35, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3522 : SBEN, TYPE="0.788D11.50", L=LBX35S, ANGLE=-ABX35S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3531 : SBEN, TYPE="0.788D11.50", L=LBX35S, ANGLE=-ABX35S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3532 : SBEN, TYPE="0.788D11.50", L=LBX35L, ANGLE=-ABX35L, E2=-ABX35, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3541 : SBEN, TYPE="0.788D11.50", L=LBX35L, ANGLE=+ABX35L, E1=+ABX35, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3542 : SBEN, TYPE="0.788D11.50", L=LBX35S, ANGLE=+ABX35S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC ! define unsplit SBENs for BMAD ... not used by MAD BCX351 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX35, ANGLE=+ABX35, & E1=0, FINT=FBCC, E2=+ABX35, FINTX=FBCC BCX352 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX35, ANGLE=-ABX35, & E1=-ABX35, FINT=FBCC, E2=0, FINTX=FBCC BCX353 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX35, ANGLE=-ABX35, & E1=0, FINT=FBCC, E2=-ABX35, FINTX=FBCC BCX354 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX35, ANGLE=+ABX35, & E1=+ABX35, FINT=FBCC, E2=0, FINTX=FBCC DCC35o : DRIF, L=ZDCC/COS(ABX35), TYPE="CSR" DCC35i : DRIF, L=ZDCC , TYPE="CSR" CC35BEG : MARK CC35END : MARK BCX351_full : LINE=(BCX3511,BCX3512) BCX352_full : LINE=(BCX3521,BCX3522) BCX353_full : LINE=(BCX3531,BCX3532) BCX354_full : LINE=(BCX3541,BCX3542) CC35 : LINE=(CC35BEG,& BCX351_full,DCC35o,& BCX352_full,DCC35i,& BCX353_full,DCC35o,& BCX354_full,& CC35END) BBX36 := 2.3628 *Ef/4.0 *1.15 ARG36 := ZBCC*BBX36/Brhof ABX36 := ASIN(ARG36) ABX36_2 := ABX36*ABX36 ABX36_4 := ABX36_2*ABX36_2 ABX36_6 := ABX36_4*ABX36_2 SINC36 := 1-ABX36_2/6+ABX36_4/120-ABX36_6/5040 LBX36 := ZBCC/SINC36 ABX36S := ASIN(ARG36/2) ABX36S_2 := ABX36S*ABX36S ABX36S_4 := ABX36S_2*ABX36S_2 ABX36S_6 := ABX36S_4*ABX36S_2 SINC36S := 1-ABX36S_2/6+ABX36S_4/120-ABX36S_6/5040 LBX36S := ZBCC/(2*SINC36S) ABX36L := ABX36-ABX36S LBX36L := LBX36-LBX36S BCX3611 : SBEN, TYPE="0.788D11.50", L=LBX36S, ANGLE=+ABX36S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3612 : SBEN, TYPE="0.788D11.50", L=LBX36L, ANGLE=+ABX36L, E2=+ABX36, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3621 : SBEN, TYPE="0.788D11.50", L=LBX36L, ANGLE=-ABX36L, E1=-ABX36, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3622 : SBEN, TYPE="0.788D11.50", L=LBX36S, ANGLE=-ABX36S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3631 : SBEN, TYPE="0.788D11.50", L=LBX36S, ANGLE=-ABX36S, E1=0, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3632 : SBEN, TYPE="0.788D11.50", L=LBX36L, ANGLE=-ABX36L, E2=-ABX36, & HGAP=GBCC/2, FINT=0, FINTX=FBCC BCX3641 : SBEN, TYPE="0.788D11.50", L=LBX36L, ANGLE=+ABX36L, E1=+ABX36, & HGAP=GBCC/2, FINT=FBCC, FINTX=0 BCX3642 : SBEN, TYPE="0.788D11.50", L=LBX36S, ANGLE=+ABX36S, E2=0, & HGAP=GBCC/2, FINT=0, FINTX=FBCC ! define unsplit SBENs for BMAD ... not used by MAD BCX361 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX36, ANGLE=+ABX36, & E1=0, FINT=FBCC, E2=+ABX36, FINTX=FBCC BCX362 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX36, ANGLE=-ABX36, & E1=-ABX36, FINT=FBCC, E2=0, FINTX=FBCC BCX363 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX36, ANGLE=-ABX36, & E1=0, FINT=FBCC, E2=-ABX36, FINTX=FBCC BCX364 : SBEN, TYPE="0.788D11.50", HGAP=GBCC/2, L=LBX36, ANGLE=+ABX36, & E1=+ABX36, FINT=FBCC, E2=0, FINTX=FBCC DCC36o : DRIF, L=ZDCC/COS(ABX36), TYPE="CSR" DCC36i : DRIF, L=ZDCC , TYPE="CSR" CC36BEG : MARK CC36END : MARK BCX361_full : LINE=(BCX3611,BCX3612) BCX362_full : LINE=(BCX3621,BCX3622) BCX363_full : LINE=(BCX3631,BCX3632) BCX364_full : LINE=(BCX3641,BCX3642) CC36 : LINE=(CC36BEG,& BCX361_full,DCC36o,& BCX362_full,DCC36i,& BCX363_full,DCC36o,& BCX364_full,& CC36END) ! ------------------------------------------------------------------------------ ! HXR BSY downstream of the merge bend ! ------------------------------------------------------------------------------ ! note: the K-values below are for SC beam; the settings for Cu beam are ! in the "LCLS2cu_main.mad8" file KQ50Q3 := 0.426937957729 KQ4 := -0.219608310249 KQ5 := 0.11024564993 KQ6 := -0.109735122471 KQA0 := 0.096565286297 Q50Q3 : QUAD, TYPE="50Q3" , L=0.143254, K1=KQ50Q3, APER=0.010325 Q4 : QUAD, TYPE="0.91Q17.72", L=LQF/2 , K1=KQ4, APER=rQF 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 CXQ6 : RCOL, TYPE="HCOLL", L=Ljaw, XSIZE=1.7E-3, YSIZE=20.E-3 PCBSY3 : INST, TYPE="BCS plate", L=Lplate !shielding plate PCBSY4 : INST, TYPE="BCS plate", L=Lplate !shielding plate PCBSY5 : INST, TYPE="BCS plate", L=Lplate !shielding plate LPC90 := 0.453644 LPC119 := 0.453644 PC90 : ECOL, L=LPC90 , XSIZE=10.2E-3, YSIZE=10.2E-3 !existing protection collimator in BSY PC119 : ECOL, L=LPC119, XSIZE=10.2E-3, YSIZE=10.2E-3 !existing protection collimator in BSY ! 2" ID BSY collimator -- part of 2-hole copper collimator d/s of A-line pulsed magnets PCBSYH : ECOL, TYPE="@1,MPS PC", L=0.45, XSIZE=25.4E-3, YSIZE=25.4E-3 !installed, then removed DM3 : DRIF, L=0.8438 !0.2196 DM4a : DRIF, L=0.4410 !0.2114 DM4c : DRIF, L=0.331133-Ljaw/2 DM4d : DRIF, L=1.168867-Ljaw/2 DM4da : DRIF, L=0.27685 !0.2832 DM4db : DRIF, L=DM4d[L]-DM4da[L]-Lplate DM4b : DRIF, L=8.851641-DM4a[L]-DM4c[L]-DM4d[L]-Ljaw-2.0 +0.282226 !8.622041 DXCA0 : DRIF, L=0.31 DYCA0 : DRIF, L=0.509021 !0.279421 DM5 : DRIF, L=0.790979 !0.561379 DM6 : DRIF, L=0.567588 DMONI : DRIF, L=0.009525 zQ5 := 0.0 !adjust position of Q5 zQ6 := 0.0 !adjust position of Q6 DBSY52d : DRIF, L=0.5 DBSY53a : DRIF, L=0.091696 DBSY53b : DRIF, L=0.760705-0.15 DBSY53c : DRIF, L=0.629945+0.15 DBSY53f : DRIF, L=0.5 DBSY53d : DRIF, L=4.0-DBSY53a[L]-DBSY53b[L]-DBSY53c[L]-DBSY53f[L] DBSY53g : DRIF, L=1.2 DBSY53ga : DRIF, L=0.91293 !0.91928 DBSY53gb : DRIF, L=DBSY53g[L]-DBSY53ga[L]-Lplate DBSY53h : DRIF, L=34.45562-DBSY53g[L]-ZBKRAPM1-ZBKRAPM2-ZBKRAPM3-ZBKRAPM4 & -2*LDZAPM1-2*LDZAPM2-2*LDZAPM3-LDZAPM4-LDZA01-LDZA02 & -PCBSYH[L]-LPCAPM1-LPCAPM2-LPCAPM3-LPCAPM4 +zQ5 DBSY54a : DRIF, L=0.5 DBSY54b : DRIF, L=3.22454 -zQ5 DBSY54c : DRIF, L=19.260056-DBSY54a[L]-DBSY54b[L] -zQ5+zQ6 DBSY55a : DRIF, L=0.5 DBSY55b : DRIF, L=4.226742 DBSY55c : DRIF, L=8.016028 -zQ6 !8.022378 DBSY55d : DRIF, L=6.466828 !6.473178 DBSY55e : DRIF, L=21.826764-DRFB[L]-DBSY55a[L]-DBSY55b[L]-LPC90 & -DBSY55c[L]-Lplate-DBSY55d[L]-LPC119 -zQ6 !21.432164 BPMBSYQ3 : MONI, TYPE="Stripline-6" !per C. Iverson RFBBSYQ3 : MONI, TYPE="@2,CavityS-1" BPMBSYQ4 : MONI, TYPE="Stripline-7" BPMBSYQ5 : MONI, TYPE="Stripline-7" !per C. Iverson BPMBSYQ6 : MONI, TYPE="Stripline-7" !per C. Iverson RFBBSYQ6 : MONI, TYPE="@2,CavityS-1" BPMBSYQA0 : MONI, TYPE="Stripline-7" !per C. Iverson XCBSYQ3 : HKIC, TYPE="class-4" !barcode=4602 XCBSYQ5 : HKIC, TYPE="class-4" !barcode=2100 XCA0 : HKIC, TYPE="class-4" !barcode=2195 YCBSYQ4 : VKIC, TYPE="class-4" !barcode=4603 YCBSYQ6 : VKIC, TYPE="class-4" !barcode=2107 YCA0 : VKIC, TYPE="class-4" !barcode=2195 D2 : INST, TYPE="PPS stopper", L=0.43 !stopper ST60 : INST, TYPE="PPS stopper", L=0.76 !backup stopper DM60 : INST, TYPE="PPS BTM" !"disaster" BTM behind ST60 ST61 : INST, TYPE="PPS stopper", L=0.76 !backup stopper BSYend : MARK !FFTB side of muon plug wall: Z=3224.022426 (Z'=176.020508 m, X'=0.0 m, Y'=-0.821761 m) DUMPBSYh : MARK !front face of BSY dump for HXR beam MUWALL : MARK !front face of muon wall for HXR beam MRGALINE : MARK !merge point with A-line RWWAKE3H : MARK, TYPE="WAKE" !BSY/SPRDH beampipe wake applied here Q50Q3_full : LINE=(Q50Q3,Q50Q3) Q4_full : LINE=(Q4,BPMBSYQ4,Q4) Q5_full : LINE=(Q5,BPMBSYQ5,Q5) Q6_full : LINE=(Q6,BPMBSYQ6,Q6) QA0_full : LINE=(QA0,BPMBSYQA0,QA0) SPhAL : LINE=(DBSY52d,& Q50Q3_full,DBSY53a,BPMBSYQ3,RFBBSYQ3,DBSY53b,DBSY53c,XCBSYQ3,DBSY53d,& YCBSYQ4,DBSY53f,& Q4_full,DBSY53ga,PCBSY3,DBSY53gb,MRGALINE) SPhBSYa : LINE=(SPhAL,ALINEa) SPhBSYb : LINE=(PCBSYH,DBSY53h,& Q5_full,DBSY54a,XCBSYQ5,DBSY54b,DBSY54c,& Q6_full,DRFB,RFBBSYQ6,DBSY55a,YCBSYQ6,DBSY55b,PC90,DBSY55c,PCBSY4,& DBSY55d,PC119,DBSY55e,D2,DM3,ST60,DM4a,DM60,DM4b,& CC31,DM4c,CXQ6,DM4da,PCBSY5,DM4db,XCA0,DXCA0,YCA0,DYCA0,ST61,DM5,& QA0_full,DM6,DMONI,DMONI,MUWALL,DWALLa,DUMPBSYh,DWALLb,& BSYend,RWWAKE3H) SPhBSY : LINE=(SPhBSYa,SPhBSYb,ENDSPH) ! ------------------------------------------------------------------------------ ! BSY1 upstream of the HXR merge bend ! ------------------------------------------------------------------------------ KQ30701 := -0.39623102008 KQ30801 := 0.480592172677 KQ50Q1 := -0.231522298209 KQ50Q2 := 0.102074330212 Q50Q1 : QUAD, TYPE="2Q10", L=LQR/2 , K1=KQ50Q1, APER=rQR Q50Q2 : QUAD, TYPE="50Q2", L=0.162151, K1=KQ50Q2, APER=0.010325 LDBSY01 := 5.995 !from beginning of BSY to Station 100 DBSY01a : DRIF, L=0.7286 DBSY01b : DRIF, L=0.25005 DBSY01c : DRIF, L=0.25005 DBSY01d : DRIF, L=0.4143 DBSY01e : DRIF, L=2.9046 !0.807+0.6+1.4976 DBSY01f : DRIF, L=0.31575 DBSY01g : DRIF, L=0.31575 DBSY01h : DRIF, L=0.7975 DBSY01i : DRIF, L=0.0184 LDBSY50 := 2.144276 !Station 100 to center of Q50Q1 DBSY50 : DRIF, L=LDBSY50-LQR/2 DBSY50a : DRIF, L=0.5782 DBSY50b : DRIF, L=DBSY50[L]-DBSY50a[L] DBSY02 : DRIF, L=0.456124 DBSY02b : DRIF, L=0.2199 DBSY02a : DRIF, L=DBSY02[L]-DBSY02b[L] DBSY51 : DRIF, L=5.521976 DBSY51b : DRIF, L=0.5 DBSY51a : DRIF, L=DBSY51[L]-DBSY51b[L] DBSY52 : DRIF, L=54.883314 DBSY52a : DRIF, L=0.079149 DBSY52b : DRIF, L=1.799589 !2.420851 DBSY52c : DRIF, L=DBSY52[L]-DBSY52a[L]-DBSY52b[L]-& LBRCUSdc1-DCKdc1[L]-& LBKRCUS-DCKdc2[L]-& LBRCUSdc2-DCUSBLRa[L]-DCUSBLRb[L]-& LBLRCUS-LBXSPh-DBSY52d[L] BPMBSYQ1 : MONI, TYPE="Stripline-5" !changed from "-6" to fit 2Q10 BPMBSYQ2 : MONI, TYPE="Stripline-6" !per C. Iverson YCBSYQ1 : VKIC, TYPE="class-4" !barcode=4600 XCBSYQ2 : HKIC, TYPE="class-4" !barcode=4601 IMBSY1 : IMON, TYPE="BCS toroid" !Bergoz toroid IMBSY2 : IMON, TYPE="BCS toroid" !Bergoz toroid IMBSY3 : IMON, TYPE="BCS toroid" !Bergoz toroid IMBSY1b : IMON, TYPE="BCS backup toroid" !PEP2 backup toroid for IMBSY1 IMBSY2b : IMON, TYPE="BCS backup toroid" !PEP2 backup toroid for IMBSY2 IMBSY3b : IMON, TYPE="BCS backup toroid" !PEP2 backup toroid for IMBSY3 IMBSY34 : IMON, TYPE="toroid" !diagnostic toroid - existing LCLS device LPCBSY : = 0.3 !TBD BSYbeg : MARK FFTBORGN : MARK S100 : MARK !station 100 ZLIN15 : MARK !station-100 (or "S100"): Z=3048.0 (Z'=X'=Y'=0.0 m) BSY1BEG : MARK BSY1END : MARK Q50Q1_full : LINE=(Q50Q1,Q50Q1) Q50Q2_full : LINE=(Q50Q2,Q50Q2) BSYS100 : LINE=(BSY1BEG,& DBSY01a,IMBSY1,DBSY01b,IMBSY2,DBSY01c,IMBSY3,DBSY01d,IMBSY34,DBSY01e,& IMBSY1b,DBSY01f,IMBSY2b,DBSY01g,IMBSY3b,DBSY01h,FFTBORGN,DBSY01i) S100SXRa : LINE=(S100,ZLIN15,DBSY50a,YCBSYQ1,DBSY50b,& Q50Q1_full,DBSY02a,WOODDOOR) S100SXRb : LINE=(DBSY02b,BPMBSYQ1,DBSY51a,XCBSYQ2,DBSY51b,& Q50Q2_full,DBSY52a,BPMBSYQ2,DBSY52b) S100SXR : LINE=(S100SXRa,S100SXRb) !BSYSXR : LINE=(BSYbeg,BSYS100,S100SXR) !S100BSY1 : LINE=(S100SXR,KCUSXRa,DBSY52c,BXSP1Ha,BXSP1Hb) !BSY1 : LINE=(BSYS100,S100BSY1) !BSY : LINE=(BSYbeg,BSY1,BSY1END,SPhBSY) ! ------------------------------------------------------------------------------ ! HXR VBEND ! ------------------------------------------------------------------------------ KQVM1 := -0.337437273245 KQVM2 := 0.236577259392 KQVM3 := 0.715150825176 KQVM4 := -0.681650171006 QVM1 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVM1, APER=rQF QVM2 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVM2, APER=rQF QVM3 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVM3, APER=rQF QVM4 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQVM4, APER=rQF KQVB := -0.42223036711 QVB1 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1= KQVB, APER=rQF QVB2 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=-KQVB, APER=rQF QVB3 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1= KQVB, APER=rQF BY11 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT BY12 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & FINT=0, E2=AVB/2, FINTX=0.5, TILT BY21 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT BY22 : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & FINT=0, E2=AVB/2, FINTX=0.5, TILT ! define unsplit SBENs for BMAD ... not used by MAD BY1 : SBEN, TYPE="3D39", HGAP=GVB/2, L=LVB, ANGLE=AVB, & E1=AVB/2, FINT=0.5, E2=AVB/2, FINTX=0.5, TILT BY2 : SBEN, TYPE="3D39", HGAP=GVB/2, L=LVB, ANGLE=AVB, & E1=AVB/2, FINT=0.5, E2=AVB/2, FINTX=0.5, TILT DVB1 : DRIF, L=8.0-2*0.3125, TYPE="CSR" DVB2m80cm : DRIF, L=4.0-0.4-0.4, TYPE="CSR" DVB2 : DRIF, L=4.0, TYPE="CSR" DVB2ha : DRIF, L=0.870432, TYPE="CSR" !0.981620 DVB2hb : DRIF, L=DVB2[L]-DVB2ha[L]-Lplate, TYPE="CSR" DVB1m40cm : DRIF, L=8.0-0.4-2*0.3125, TYPE="CSR" DVB25cmc : DRIF, L=0.5-0.25 DVBem25cm : DRIF, L=0.5-0.25 , TYPE="CSR" DVBem15cm : DRIF, L=0.150+0.00381+0.018803, TYPE="CSR" DQVM2b : DRIF, L=0.24954 DQVM2a : DRIF, L=DQVM2[L]-DQVM2b[L] DWSVM2 : DRIF, L=DXCVM2[L]+DVB25cm[L] DWSVM2a : DRIF, L=0.24954+0.0046 DWSVM2b : DRIF, L=DWSVM2[L]-DWSVM2a[L] BPMVM1 : MONI, TYPE="Stripline-7" BPMVM2 : MONI, TYPE="Stripline-7" BPMVM3 : MONI, TYPE="Stripline-7" BPMVM4 : MONI, TYPE="Stripline-7" BPMVB1 : MONI, TYPE="Stripline-7" BPMVB2 : MONI, TYPE="Stripline-7" BPMVB3 : MONI, TYPE="Stripline-7" XCVB2 : HKIC,TYPE="type-4" XCVM2 : HKIC,TYPE="type-4" XCVM3 : HKIC,TYPE="type-4" YCVM1 : VKIC,TYPE="class-5c" !calibrated to <1% YCVB1 : VKIC,TYPE="class-4" YCVB3 : VKIC,TYPE="class-4" YCVM4 : VKIC,TYPE="class-5" IM31 : IMON,TYPE="120Hz toroid" !comparator with IM36 (existing LCLS device) IMBCS1 : IMON,TYPE="120Hz toroid" !comparator with IMBCS2 (existing LCLS device) WSVM2 : WIRE, TYPE="fast" !existing LCLS device PC01 : INST, TYPE="BCS plate", L=Lplate BTM01 : INST, TYPE="PPS BTM" VBIN : MARK !start of vert. bend system: Z=3226.684265 (Z'=178.682318 m, X'=0.0 m, Y'=-0.834187 m) VBOUT : MARK !end of vert. bend system: Z=3252.866951 (Z'=204.865005 m, X'= 0.0 m, Y'=-0.895304 m) CNTLT1H : MARK, TYPE="CENTER" !ELEGANT will correct the orbit here for CSR-steering BY1_full : LINE=(BY11,BY12) BY2_full : LINE=(BY21,BY22) QVM1_full : LINE=(QVM1,BPMVM1,QVM1) QVM2_full : LINE=(QVM2,BPMVM2,QVM2) QVM3_full : LINE=(QVM3,BPMVM3,QVM3) QVM4_full : LINE=(QVM4,BPMVM4,QVM4) QVB1_full : LINE=(QVB1,BPMVB1,QVB1) QVB2_full : LINE=(QVB2,BPMVB2,QVB2) QVB3_full : LINE=(QVB3,BPMVB3,QVB3) VBEND : LINE=(VBin,& BY1_full,DVB1,& QVB1_full,D40cmC,YCVB1,DVB2m80cm,XCVB2,D40cmC,& QVB2_full,DVB2ha,PC01,BTM01,DVB2hb, & QVB3_full,D40cmC,YCVB3,DVB1m40cm,& BY2_full,CNTLT1H,VBout) VBSYS : LINE=(BEGLTUH,DYCVM1,YCVM1,DQVM1,& QVM1_full,DQVM2a,XCVM2,DQVM2b,& QVM2_full,DWSVM2a,WSVM2,DWSVM2b,& VBEND,DVB25cmc,XCVM3,D25cm,& QVM3_full,DVBem25cm,YCVM4,D25cm,& QVM4_full,DVBem15cm,IM31,D10cmb,IMBCS1,D25cma) ! ------------------------------------------------------------------------------ ! HXR dogleg ! ------------------------------------------------------------------------------ KQDL := 0.437183970154 QDL31 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQDL, APER=rQA QDL32 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQDL, APER=rQA QDL33 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQDL, APER=rQA QDL34 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQDL, APER=rQA KCQ31 := 0 KCQ32 := 0 CQ31 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KCQ31, APER=rQx CQ32 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KCQ32, APER=rQx KQT1 :=-0.420937827343 KQT2 := 0.839614778043 QT11 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF QT12 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT2, APER=rQF QT13 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF QT21 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF QT22 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT2, APER=rQF QT23 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF QT31 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF QT32 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT2, APER=rQF QT33 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF QT41 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF QT42 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT2, APER=rQF QT43 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQT1, APER=rQF LB3 := 2.623 !0.68D102.36T effective length (m) GB3 := 0.679*in2m !0.68D102.36T gap height (m) FB3 := 0.5237 !0.68D102.36T FINT (measured) AB3P := 0.499999821952*RADDEG AB3M := -AB3P LeffB3 := LB3*AB3P/(2*SIN(AB3P/2)) !full bend eff. path length (m) BX311 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3P/2, HGAP=GB3/2, & E1=AB3P/2, FINT=FB3, E2=0, FINTX=0 BX312 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3P/2, HGAP=GB3/2, & E1=0, FINT=0, E2=AB3P/2, FINTX=FB3 BX321 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3P/2, HGAP=GB3/2, & E1=AB3P/2, FINT=FB3, E2=0, FINTX=0 BX322 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3P/2, HGAP=GB3/2, & E1=0, FINT=0, E2=AB3P/2, FINTX=FB3 BX351 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3M/2, HGAP=GB3/2, & E1=AB3M/2, FINT=FB3, E2=0, FINTX=0 BX352 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3M/2, HGAP=GB3/2, & E1=0, FINT=0, E2=AB3M/2, FINTX=FB3 BX361 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3M/2, HGAP=GB3/2, & E1=AB3M/2, FINT=FB3, E2=0, FINTX=0 BX362 : SBEN, TYPE="0.68D102.36T", L=LeffB3/2, ANGLE=AB3M/2, HGAP=GB3/2, & E1=0, FINT=0, E2=AB3M/2, FINTX=FB3 ! define unsplit SBENs for BMAD ... not used by MAD BX31 : SBEN, TYPE="0.68D102.36T", HGAP=GB3/2, L=LeffB3, ANGLE=AB3P, & E1=AB3P/2, FINT=FB3, E2=AB3P/2, FINTX=FB3 BX32 : SBEN, TYPE="0.68D102.36T", HGAP=GB3/2, L=LeffB3, ANGLE=AB3P, & E1=AB3P/2, FINT=FB3, E2=AB3P/2, FINTX=FB3 BX35 : SBEN, TYPE="0.68D102.36T", HGAP=GB3/2, L=LeffB3, ANGLE=AB3M, & E1=AB3M/2, FINT=FB3, E2=AB3M/2, FINTX=FB3 BX36 : SBEN, TYPE="0.68D102.36T", HGAP=GB3/2, L=LeffB3, ANGLE=AB3M, & E1=AB3M/2, FINT=FB3, E2=AB3M/2, FINTX=FB3 ! single beam dumper vertical kicker (existing, restored) ABYKIK := 0 !full angle (BYKIK1+BYKIK2) = 0.75E-3 when BYKIK1,2 are turned on BYKIK11 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIK/4, HGAP=GKIK, & E1=ABYKIK/4, E2=0, FINT=0.5, FINTX=0 , TILT BYKIK12 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIK/4, HGAP=GKIK, & E1=0, E2=ABYKIK/4, FINT=0 , FINTX=0.5, TILT BYKIK21 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIK/4, HGAP=GKIK, & E1=ABYKIK/4, E2=0, FINT=0.5, FINTX=0 , TILT BYKIK22 : SBEN, TYPE="1.92K41.2", L=LKIK/2, ANGLE=ABYKIK/4, HGAP=GKIK, & E1=0, E2=ABYKIK/4, FINT=0 , FINTX=0.5, TILT ! define unsplit SBENs for BMAD ... not used by MAD BYKIK1 : SBEN, TYPE="1.92K41.2", HGAP=GKIK, L=LKIK, ANGLE=ABYKIK/2, & E1=ABYKIK/4, FINT=0.5, E2=ABYKIK/4, FINTX=0.5, TILT BYKIK2 : SBEN, TYPE="1.92K41.2", HGAP=GKIK, L=LKIK, ANGLE=ABYKIK/2, & E1=ABYKIK/4, FINT=0.5, E2=ABYKIK/4, FINTX=0.5, TILT !DBYKIK1 : DRIF, L=LKIK !DBYKIK2 : DRIF, L=LKIK LSPONT := 1.5 !length of possible spontaneous undulator (<=5 m now that TDKIK is also there) DCB32 : DRIF, L=0.8 +0.01, TYPE="CSR" DDL10w : DRIF, L=11.99440265, TYPE="CSR" DDL10wa : DRIF, L= 0.986719, TYPE="CSR" !1.050219 DDL10wb : DRIF, L=DDL10w[L]-DDL10wa[L]-Lplate, TYPE="CSR" DWSDL31a : DRIF, L=0.096237 DWSDL31b : DRIF, L=0.153763 DDL10x : DRIF, L=0.126314 D32cmb : DRIF, L=0.6638034 D31A : DRIF, L=0.562465-0.002 D31B : DRIF, L=0.5624381-DRFB[L]-0.002 D31C : DRIF, L=0.5, TYPE="CSR" DDL10em80cm : DRIF, L=9.017887 +0.01, TYPE="CSR" DDL10em80cma : DRIF, L=3.703275, TYPE="CSR" !3.906475 DDL10em80cmb : DRIF, L=DDL10em80cm[L]-DDL10em80cma[L]-Lspots, TYPE="CSR" DX33A : DRIF, L=1.4154 !LB3-DX33B[L]-2.0 DX33B : DRIF, L=0.385637 !0.449137 DX34B : DRIF, L=0.5 DX34A : DRIF, L=LB3-DX34B[L]-2.0 DX37B : DRIF, L=0.5 DX37A : DRIF, L=LB3-DX37B[L]-2.0 DX38A : DRIF, L=LB3/2 DX38B : DRIF, L=LB3/2 DDL1a : DRIF, L=5.820626-LKIK/2 DDL1aa : DRIF, L=1.220046 !1.261541 DDL1ab : DRIF, L=4.049039 DDL1d : DRIF, L=0.609226-LKIK/2 DDL1e : DRIF, L=5.421642-LKIK/2 D32A : DRIF, L=0.47046 D32B : DRIF, L=0.47046 D33A : DRIF, L=0.39 D33B : DRIF, L=0.32 D34A : DRIF, L=0.56 D34B : DRIF, L=0.32 DSPLR : DRIF, L=0.43036 DDL1cm40cm : DRIF, L=6.03036-0.43036-0.6096/2 D30cma : DRIF, L=0.257426 DPC1 : DRIF, L=0.266697 DPC2 : DRIF, L=0.266697 DPC3 : DRIF, L=0.266697 DPC4 : DRIF, L=0.266697+0.339613-0.8128/2 DSPONTUA : DRIF, L=LSPONT/2 DSPONTUB : DRIF, L=LSPONT/2 DDL1dm30cm : DRIF, L=0.379160-0.262228 !allow possible new spontaneous undulator here DCQ31a : DRIF, L=6.037182, TYPE="CSR" DCQ31aa : DRIF, L=1.350967, TYPE="CSR" !1.514938 DCQ31ab : DRIF, L=DCQ31a[L]-DCQ31aa[L]-Lplate, TYPE="CSR" DCQ31b : DRIF, L=5.811658, TYPE="CSR" DCQ31ba : DRIF, L=0.827094, TYPE="CSR" DCQ31bb : DRIF, L=DCQ31b[L]-DCQ31ba[L]-Lplate, TYPE="CSR" D29cma : DRIF, L=0.29+0.023878+0.1000244+0.1704396 D32cmd : DRIF, L=0.32-0.056221+0.4000244+0.2404381 DCQ32a : DRIF, L=5.4817585, TYPE="CSR" DCB36 : DRIF, L=2.7 +0.01-1.9 !make it identical to DCB32[L] DCQ32b : DRIF, L=6.0371785-DCB36[L]-Ljaw, TYPE="CSR" D30cm : DRIF, L=0.30 DDL10m70cm : DRIF, L=12.86072-0.4-0.3-0.09+0.00046 DDL10ma : DRIF, L=1.365410 DDL10mb : DRIF, L=DDL10m70cm[L]-DDL10ma[L] DDL10um25cm : DRIF, L=0.5-0.25-0.2399776+0.2404376 DDL10v : DRIF, L=12.86072-0.5 DDL20e : DRIF, L=0.5, TYPE="CSR" DDL30em40cm : DRIF, L=1.0-0.4-0.090013, TYPE="CSR" D40cmb : DRIF, L=0.40+0.090013 D46cm : DRIF, L=(1.0-Ljaw)/2 DDL20 : DRIF, L=0.5 DDL30em40cma : DRIF, L=1.0-0.4-0.090013+0.000473, TYPE="CSR" D40cmd : DRIF, L=0.40+0.090013-0.000473 D40cme : DRIF, L=0.40+0.090013+0.010447 DDL30em40cmb : DRIF, L=1.0-0.4-0.090013-0.010447, TYPE="CSR" DDL30em40cmc : DRIF, L=1.0-0.4-0.090013+0.065013, TYPE="CSR" D40cmf : DRIF, L=0.40+0.090013-0.065013 ! RFBHX12 is moved upstream of BEGHXR RFBHX12 : MONI, L=LRFBub, TYPE="CavityX-1" DMUON4 : DRIF, L=0.059608016 +0.009373 DMUON3 : DRIF, L=0.310592 -0.05 -DMUON4[L] -LRFBub ! dechirper installation (August, 2015) LCHIRP := 2.0 D37a : DRIF, L=0.27032 !0.123 D37b : DRIF, L=0.65268 !0.8 D37ba : DRIF, L=0.12489 !0.304687 D37bb : DRIF, L=D37b[L]-D37ba[L]-Lspots D37c : DRIF, L=1.261910 !2.804723 D37d : DRIF, L=7.6979813 !6.218668237037 WSDL4 : WIRE, TYPE="slow" !Patrick K. says this device is used only with the dechirper D37e : DRIF, L=1.097522857741 DCHIRPV : INST, L=LCHIRP/2 !split in half MDCHIRPV : MARK !center of dechirper !D37f : DRIF, L=DDL10mb[L]+D34A[L]-7.657981237037-D37e[L]-LCHIRP !D37d changed D37f : DRIF, L=12.63118-D37c[L]-Lplate-D37d[L]-D37e[L]-LCHIRP D38a : DRIF, L=0.509870493892 DCHIRPH : INST, L=LCHIRP/2 !split in half MDCHIRPH : MARK !center of dechirper D38b : DRIF, L=0.609117535347 D38c : DRIF, L=0.540705892339 D38d : DRIF, L=(D34B[L]+DDL10um25cm[L]+DDL10v[L]+DX38A[L]+DX38B[L])- & (D38a[L]+LCHIRP+D38b[L]+D38c[L]) D38da : DRIF, L=7.151036 D38db : DRIF, L=D38d[L]-D38da[L]-Lplate RFBDL1 : MONI, TYPE="@2,CavityL-1" BPMDL2 : MONI, TYPE="Stripline-10" BPMDL3 : MONI, TYPE="Stripline-10" BPMDL4 : MONI, TYPE="Stripline-10" BPMT12 : MONI, TYPE="Stripline-7" BPMT22 : MONI, TYPE="Stripline-7" BPMT32 : MONI, TYPE="Stripline-7" BPMT42 : MONI, TYPE="Stripline-7" BPMDL1 : MONI, TYPE="Stripline-10" !existing LCLS device XCDL1 : HKIC,TYPE="class-4" XCDL2 : HKIC,TYPE="class-4" XCDL3 : HKIC,TYPE="class-4" XCQT12 : HKIC,TYPE="class-5" XCQT22 : HKIC,TYPE="class-5" XCQT42 : HKIC,TYPE="class-5" YCDL1 : VKIC,TYPE="class-4" YCDL2 : VKIC,TYPE="class-4" YCDL3 : VKIC,TYPE="class-4" YCDL4 : VKIC,TYPE="class-4" YCQT12 : VKIC,TYPE="class-5" YCQT21 : VKIC,TYPE="class-5" XCQT32 : HKIC,TYPE="class-5f" !fast-feedback (loop-4) XCDL4 : HKIC,TYPE="class-5f" !fast-feedback (loop-4) YCQT32 : VKIC,TYPE="class-5f" !fast-feedback (loop-4) YCQT42 : VKIC,TYPE="class-5f" !fast-feedback (loop-4) SPOILER : INST !TDKIK dump spoiler TDKIK : INST, L=0.6096 !vertical off-axis in-line dump !DSPOILER : MARK !DTDKIK : DRIF, L=0.6096 WSDL31 : WIRE, TYPE="fast" OTR30 : PROF, TYPE="OTR" !LTU slice energy spread (90 deg from TCAV3) !MOTR30 : MARK !OTR30 abandoned in place CEDL1 : RCOL, TYPE="HCOLL", L=0.08, XSIZE=2.3E-3, YSIZE=20.E-3 !existing LCLS CEDL3 : RCOL, TYPE="HCOLL", L=0.08, XSIZE=2.3E-3, YSIZE=20.E-3 !existing LCLS CYBX32 : RCOL, TYPE="VCOLL", L=Ljaw, YSIZE=1.5E-3, XSIZE=20.E-3 !reconfigured LCLS CY32 CXQT22 : RCOL, TYPE="HCOLL", L=Ljaw, XSIZE=1.6E-3, YSIZE=20.E-3 !reconfigured LCLS CX35 CYBX36 : RCOL, TYPE="VCOLL", L=Ljaw, YSIZE=1.5E-3, XSIZE=20.E-3 !reconfigured LCLS CY36 ! muon collimators after SBD TDKIK in-line dump PCTDKIK1 : ECOL, TYPE="BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 PCTDKIK2 : ECOL, TYPE="BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 PCTDKIK3 : ECOL, TYPE="BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 PCTDKIK4 : ECOL, TYPE="BCS PC", L=LPCTDKIK, & XSIZE=11.1125E-3, YSIZE=11.1125E-3 !DPCTDKIK : DRIF, L=LPCTDKIK IMBCS2 : IMON, TYPE="120Hz toroid" !comparator with IMBCS1 (existing LCLS device) PC02 : INST, TYPE="BCS plate", L=Lplate BTM02 : INST, TYPE="PPS BTM" PC22 : INST, TYPE="BCS plate", L=Lspots PC03 : INST, TYPE="BCS plate", L=Lplate BTM03 : INST, TYPE="PPS BTM" PC04 : INST, TYPE="BCS plate", L=Lplate BTM04 : INST, TYPE="PPS BTM" PC42 : INST, TYPE="BCS plate", L=Lplate BTM42 : INST, TYPE="PPS BTM" PC43 : INST, TYPE="BCS plate", L=Lspots BTM43 : INST, TYPE="PPS BTM" PC05 : INST, TYPE="BCS plate", L=Lplate BTM05 : INST, TYPE="PPS BTM" PC06 : INST, TYPE="BCS plate", L=Lplate BTM06 : INST, TYPE="PPS BTM" DL23BEG : MARK CNTWIGH : MARK, TYPE="CENTER" !ELEGANT will correct the orbit here for CSR-steering CNTLT2H : MARK, TYPE="CENTER" !ELEGANT will correct the orbit here for CSR-steering CNTLT3H : MARK, TYPE="CENTER" !ELEGANT will correct the orbit here for CSR-steering SS1 : MARK SS3 : MARK DBMARK34 : MARK !entrance of BX31 ! wiggler for sync. light energy diagnostic (described in SLAC-PUB-3945) ! based on FACET optics model (M. Woodley) ! (series approximation for sinc(x)=sin(x)/x to enable setting with x=0) BWGh := 0 !wiggler bend field (kG) AWGh := ASIN(BWGh*ZWHP/(Ef*Cb)) !bend angle per half-pole AWGh2 := AWGh*AWGh AWGh4 := AWGh2*AWGh2 AWGh6 := AWGh4*AWGh2 SINCh := 1-AWGh2/6+AWGh4/120-AWGh6/5040 LWGh := ZWHP/SINCh !half-pole path length AWG1h := ASIN(SIN(AWGh)/2) !"short half" half-pole bend angle AWG1h2 := AWG1h*AWG1h AWG1h4 := AWG1h2*AWG1h2 AWG1h6 := AWG1h4*AWG1h2 SINC1h := 1-AWG1h2/6+AWG1h4/120-AWG1h6/5040 LWG1h := (ZWHP/2)/SINC1h !"short half" half-pole path length AWG2h := AWGh-AWG1h !"long half" half-pole bend angle LWG2h := LWGh-LWG1h !"long half" half-pole path length WIG1H1 : SBEN, TYPE="@3,SLC wiggler", L=LWG1h , HGAP=GWIG/2, ANGLE=AWG1h, & E1=0 , E2=0 , FINT=0.5, FINTX=0 , TILT WIG1H2 : SBEN, TYPE="@3,SLC wiggler", L=LWG2h , HGAP=GWIG/2, ANGLE=AWG2h, & E1=0 , E2=AWGh , FINT=0 , FINTX=0.5 , TILT WIG2H1 : SBEN, TYPE="@3,SLC wiggler", L=LWGh , HGAP=GWIG/2, ANGLE=-AWGh, & E1=-AWGh, E2=0 , FINT=0.5, FINTX=0 , TILT WIG2H2 : SBEN, TYPE="@3,SLC wiggler", L=LWGh , HGAP=GWIG/2, ANGLE=-AWGh, & E1=0 , E2=-AWGh , FINT=0 , FINTX=0.5 , TILT WIG3H1 : SBEN, TYPE="@3,SLC wiggler", L=LWG2h , HGAP=GWIG/2, ANGLE=AWG2h, & E1=AWGh , E2=0 , FINT=0.5, FINTX=0 , TILT WIG3H2 : SBEN, TYPE="@3,SLC wiggler", L=LWG1h , HGAP=GWIG/2, ANGLE=AWG1h, & E1=0 , E2=0 , FINT=0 , FINTX=0.5 , TILT ! define unsplit SBENs for BMAD ... not used by MAD WIG1H : SBEN, TYPE="@3,SLC wiggler", HGAP=GWIG/2, L=LWGh, ANGLE=+AWGh, & E1=0, FINT=0.5, E2=+AWGh, FINTX=0.5, TILT WIG2H : SBEN, TYPE="@3,SLC wiggler", HGAP=GWIG/2, L=2*LWGh, ANGLE=-2*AWGh, & E1=-AWGh, FINT=0.5, E2=-AWGh, FINTX=0.5, TILT WIG3H : SBEN, TYPE="@3,SLC wiggler", HGAP=GWIG/2, L=LWGh, ANGLE=+AWGh, & E1=+AWGh, FINT=0.5, E2=0, FINTX=0.5, TILT LDWGh := ZDWG/COS(AWGh) DWGh : DRIF, L=LDWGh YCWIGH : VKIC, TYPE="@3,wiggler trim" WIG1H_full : LINE=(WIG1H1,WIG1H2) WIG2H_full : LINE=(WIG2H1,YCWIGH,WIG2H2) WIG3H_full : LINE=(WIG3H1,WIG3H2) EWIGH : LINE=(WIG1H_full,DWGh,& WIG2H_full,DWGh,& WIG3H_full,& CNTWIGH) BX31_full : LINE=(BX311,BX312) BX32_full : LINE=(BX321,BX322) BYKIK1_full : LINE=(BYKIK11,BYKIK12) BYKIK2_full : LINE=(BYKIK21,BYKIK22) BX35_full : LINE=(BX351,BX352) BX36_full : LINE=(BX361,BX362) QDL31_full : LINE=(QDL31,BPMDL1,QDL31) QDL32_full : LINE=(QDL32,BPMDL2,QDL32) CQ31_full : LINE=(CQ31,CQ31) QDL33_full : LINE=(QDL33,BPMDL3,QDL33) CQ32_full : LINE=(CQ32,CQ32) QDL34_full : LINE=(QDL34,BPMDL4,QDL34) QT11_full : LINE=(QT11,QT11) QT12_full : LINE=(QT12,BPMT12,QT12) QT13_full : LINE=(QT13,QT13) QT21_full : LINE=(QT21,QT21) QT22_full : LINE=(QT22,BPMT22,QT22) QT23_full : LINE=(QT23,QT23) QT31_full : LINE=(QT31,QT31) QT32_full : LINE=(QT32,BPMT32,QT32) QT33_full : LINE=(QT33,QT33) QT41_full : LINE=(QT41,QT41) QT42_full : LINE=(QT42,BPMT42,QT42) QT43_full : LINE=(QT43,QT43) DCHIRPV_full : LINE=(DCHIRPV,MDCHIRPV,DCHIRPV) DCHIRPH_full : LINE=(DCHIRPH,MDCHIRPH,DCHIRPH) DL21 : LINE=(DBMARK34,& BX31_full,DDL10wa,PC02,BTM02,DDL10wb,DWSDL31a,WSDL31,DWSDL31b,& DDL10x,XCDL1,D31A,& QDL31_full,DRFB,RFBDL1,D31B,YCDL1,D32cmb,CEDL1,D31C,& EWIGH,DDL10em80cma,PC22,DDL10em80cmb,CYBX32,DCB32,& BX32_full,CNTLT2H) DL22 : LINE=(DX33A,& CC32,DX33B,PC03,BTM03,DDL1ab,& BYKIK1_full,DDL1d,DDL1d,& BYKIK2_full,DDL1e,XCDL2,D32A,& QDL32_full,D32B,YCDL2,DSPLR,SPOILER,DDL1cm40cm,TDKIK,D30cma,& PCTDKIK1,DPC1,PCTDKIK2,DPC2,PCTDKIK3,DPC3,PCTDKIK4,DPC4,& DSPONTUA,DSPONTUB,DDL1dm30cm,DX34A,& CC35,DX34B) DL23 : LINE=(DL23BEG,& BX35_full,DCQ31aa,PC04,BTM04,DCQ31ab,& CQ31_full,DCQ31ba,PC42,BTM42,DCQ31bb,OTR30,D29cma,XCDL3,D33A,& QDL33_full,D33B,YCDL3,D32cmd,CEDL3,DCQ32a, & CQ32_full,DCQ32b,CYBX36,DCB36,& BX36_full,CNTLT3H) DL24 : LINE=(D37a,& CC36,D37ba,PC43,BTM43,D37bb,IMBCS2,D37c,PC05,BTM05,D37d,WSDL4,D37e,& DCHIRPV_full,D37f,& QDL34_full,D38a,& DCHIRPH_full,D38b,XCDL4,D38c,YCDL4,D38da,PC06,BTM06,D38db) TRIP1 : LINE=(DDL20e,& QT11_full,DDL30em40cm,XCQT12,D40cmb,& QT12_full,D40cmb,YCQT12,DDL30em40cm,& QT13_full,DDL20e) TRIP2 : LINE=(YCQT21,DDL20,& QT21_full,DDL30em40cm,XCQT22,D40cmb,& QT22_full,D46cm,CXQT22,D46cm,& QT23_full,DDL20) TRIP3 : LINE=(DDL20e,& QT31_full,DDL30em40cma,XCQT32,D40cmd,& QT32_full,D40cme,YCQT32,DDL30em40cmb,& QT33_full,DDL20e) TRIP4 : LINE=(DDL20,& QT41_full,DDL30em40cmc,XCQT42,D40cmf,& QT42_full,D40cmb,YCQT42,DDL30em40cm,& QT43_full,DDL20) DOGLG2A : LINE=(DL21,TRIP1,SS1,DL22,TRIP2) DOGLG2B : LINE=(DL23,TRIP3,SS3,DL24,TRIP4) ! ------------------------------------------------------------------------------ ! HXR emittance diagnostic ! ------------------------------------------------------------------------------ KQEM1 := -0.390827735953 KQEM2 := 0.432215708114 KQEM3 := -0.593433950486 KQEM4 := 0.420485259237 QEM1 : QUAD, TYPE="1.26Q12" , L=LQA/2, K1=KQEM1, APER=rQA QEM2 : QUAD, TYPE="1.26Q12" , L=LQA/2, K1=KQEM2, APER=rQA QEM3 : QUAD, TYPE="1.26Q12" , L=LQA/2, K1=KQEM3, APER=rQA QEM3V : QUAD, TYPE="1.26Q3.5" , L=LQx/2, K1=0 , APER=rQx QEM4 : QUAD, TYPE="1.26Q12" , L=LQA/2, K1=KQEM4, APER=rQA KQED2 := 0.402753198232 KQE31 := +KQED2 KQE32 := -KQED2 KQE33 := +KQED2 KQE34 := -KQED2 KQE35 := +KQED2 KQE36 := -KQED2 QE31 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE31, APER=rQx QE32 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE32, APER=rQx QE33 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE33, APER=rQx QE34 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE34, APER=rQx QE35 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE35, APER=rQx QE36 : QUAD, TYPE="1.26Q3.5", L=LQx/2, K1=KQE36, APER=rQx DMM1m90cm : DRIF, L=1.20046 DMM3ma : DRIF, L=4.362410 !4.425910 DMM3mb : DRIF, L=DMM3m80cm[L]-DMM3ma[L]-Lplate DE3ma : DRIF, L=5.430110 !5.493610 DE3mb : DRIF, L=DE3m80cma[L]-DE3ma[L]-Lplate DQECa : DRIF, L=7.950716+0.000011 DQECb : DRIF, L=DQEC[L]-DQECa[L] D40cmh : DRIF, L=0.0317 D40cmg : DRIF, L=D40cm[L]-D40cmh[L] DEM1C : DRIF, L=DEM1B[L] BPMEM1 : MONI, TYPE="Stripline-10" BPMEM2 : MONI, TYPE="Stripline-10" BPMEM3 : MONI, TYPE="Stripline-10" BPMEM4 : MONI, TYPE="Stripline-10" !existing LCLS device RFBEM4 : MONI, TYPE="@2,CavityS-1" BPME31 : MONI, TYPE="Stripline-1" BPME32 : MONI, TYPE="Stripline-1" !existing LCLS device RFBE32 : MONI, TYPE="@2,CavityS-1" BPME33 : MONI, TYPE="Stripline-1" BPME34 : MONI, TYPE="Stripline-1" !existing LCLS device RFBE34 : MONI, TYPE="@2,CavityS-1" BPME35 : MONI, TYPE="Stripline-1" BPME36 : MONI, TYPE="Stripline-1" !existing LCLS device RFBE36 : MONI, TYPE="@2,CavityS-1" XCEM2 : HKIC,TYPE="class-4" XCEM4 : HKIC,TYPE="class-4" XCE31 : HKIC,TYPE="class-4" XCE33 : HKIC,TYPE="class-4" XCE35 : HKIC,TYPE="class-4" YCEM1 : VKIC,TYPE="class-4" YCEM3 : VKIC,TYPE="class-4" YCE32 : VKIC,TYPE="class-4" YCE34 : VKIC,TYPE="class-4" YCE36 : VKIC,TYPE="class-4" WS31 : WIRE, TYPE="fast" !LTU emittance WS32 : WIRE, TYPE="fast" !LTU emittance WS33 : WIRE, TYPE="fast" !LTU emittance WS34 : WIRE, TYPE="fast" !LTU emittance ! WS35 : WIRE, TYPE="fast" !prototype ... not installed ! WS36 : WIRE, TYPE="piezo" !prototype ... not installed DWS35 : MARK DWS36 : MARK IM36 : IMON, TYPE="120Hz toroid" !comparator with IM31 (existing LCLS device) YAGPSI : PROF, TYPE="YAG-PAL" !existing LCLS device OTR33 : PROF, TYPE="OTR" !LTU slice emittance (existing LCLS device) PC07 : INST, TYPE="BCS plate", L=Lplate BTM07 : INST, TYPE="PPS BTM" PC08 : INST, TYPE="BCS plate", L=Lplate BTM08 : INST, TYPE="PPS BTM" PC09 : INST, TYPE="BCS plate", L=Lplate BTM09 : INST, TYPE="PPS BTM" DCX31 : DRIF, L=0.08 DCX35 : DRIF, L=0.08 DCY32 : DRIF, L=0.08 DCY36 : DRIF, L=0.08 !CX31 : RCOL, L=0.08 !LCLS collimator removed !CX35 : RCOL, L=0.08 !reconfigured as CXQT22 !CY32 : RCOL, L=0.08 !reconfigured as CYBX32 !CY36 : RCOL, L=0.08 !reconfigured as CYBX36 DBMARK36 : MARK !center of WS31 QEM1_full : LINE=(QEM1,BPMEM1,QEM1) QEM2_full : LINE=(QEM2,BPMEM2,QEM2) QEM3_full : LINE=(QEM3,BPMEM3,QEM3) QEM3V_full : LINE=(QEM3V,QEM3V) QEM4_full : LINE=(QEM4,BPMEM4,QEM4) QE31_full : LINE=(QE31,BPME31,QE31) QE32_full : LINE=(QE32,BPME32,QE32) QE33_full : LINE=(QE33,BPME33,QE33) QE34_full : LINE=(QE34,BPME34,QE34) QE35_full : LINE=(QE35,BPME35,QE35) QE36_full : LINE=(QE36,BPME36,QE36) EDMCH : LINE=(D25cmb,IM36,D25cmc,DMM1m90cm,YCEM1,DEM1A,& QEM1_full,DEM1C,& QEM2_full,DEM2B,XCEM2,DMM3ma,PC07,BTM07,DMM3mb,YCEM3,DEM3A,& QEM3_full,DEM3B,& QEM3V_full,DMM4m90cm,XCEM4,DEM4A,& QEM4_full,DRFB,RFBEM4,DMM5a,PC08,BTM08,DMM5b) EDSYS : LINE=(DBMARK36,WS31,D40cm,DE3ma,PC09,BTM09,DE3mb,XCE31,DQEA,& QE31_full,DQEBx,DCX31,DQEBx2,DE3a,YCE32,DQEAa,& QE32_full,DRFB,RFBE32,DQEBy1,DCY32,DQEBy2,WS32,D40cm,DE3m80cmb,& XCE33,DQEAb,& QE33_full,DQECa,YAGPSI,DQECb,OTR33,DE3m40cm,YCE34,DQEA,& QE34_full,DRFB,RFBE34,DQEC1,WS33,D40cm,DE3m80cm,XCE35,DQEAc,& QE35_full,DQEBx,DCX35,DQEBx2,DE3,YCE36,DQEA,& QE36_full,DRFB,RFBE36,DQEBy1,DCY36,DQEBy2,WS34,D40cmg,DWS35,D40cmh) EDCEL : LINE=(WS31,D40cm,DE3ma,PC09,BTM09,DE3mb,XCE31,DQEA,& QE31_full,DQEBx,DCX31,DQEBx2,DE3a,YCE32,DQEAa,& QE32_full,DRFB,RFBE32,DQEBy1,DCY32,DQEBy2,WS32,D40cm,DE3m80cmb,& XCE33,DQEAb,& QE33_full,DQECa,YAGPSI,DQECb,OTR33,DE3m40cm,YCE34,DQEA,& QE34_full,DRFB,RFBE34,DQEC1,WS33,D40cm,DE3m80cm,XCE35,DQEAc,& QE35_full,DQEBx,DCX35,DQEBx2,DE3,YCE36,DQEA,& QE36_full,DRFB,RFBE36,DQEBy1,DCY36,DQEBy2,WS34) ! ------------------------------------------------------------------------------ ! HXR undulator match ! ------------------------------------------------------------------------------ ! note: the below K-values are for SC beam; the settings for Cu beam are ! in the "LCLS2cu_main.mad8" file ! note: the below K-values come from Y. Nosochkov's UNDH_KQ4_USDS.xsif file, ! for E= 4.0 GeV and KHXU= 2.0 (IntgHX= 30.0 kG) KQUM1 := 0.21295276718 !UNDH_KQ4_USDS.xsif (Eu=4.0, KHXU=2.0) KQUM2 := -0.256692261825 !UNDH_KQ4_USDS.xsif (Eu=4.0, KHXU=2.0) KQUM3 := 0.472597881562 !UNDH_KQ4_USDS.xsif (Eu=4.0, KHXU=2.0) KQUM4 := -0.42682658336 !UNDH_KQ4_USDS.xsif (Eu=4.0, KHXU=2.0) QUM1 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQUM1, APER=rQA QUM2 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQUM2, APER=rQA QUM3 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQUM3, APER=rQA QUM4 : QUAD, TYPE="1.26Q12", L=LQA/2, K1=KQUM4, APER=rQA DU1m80cma : DRIF, L=0.16515 DU1m80cmb : DRIF, L=DU1m80cm[L]-DU1m80cma[L] D32cmc : DRIF, L=0.30046 DU2m120cm : DRIF, L=4.730 DW2TDUND : DRIF, L=0.201537 !drift from BTH/UH wall-2 to TDUNDB u/s flange D40cmWb : DRIF, L=0.140042 D40cmWa : DRIF, L=D40cmW[L]-D40cmWb[L] BPMUM1 : MONI, TYPE="Stripline-10" BPMUM2 : MONI, TYPE="Stripline-10" BPMUM3 : MONI, TYPE="Stripline-10" BPMUM4 : MONI, TYPE="Stripline-10" RFB07 : MONI, TYPE="CavityX-1" !existing LCLS device RFB08 : MONI, TYPE="CavityX-1" !existing LCLS device IMUNDI : IMON, TYPE="120Hz toroid" !FEL-undulator input toroid (existing LCLS device) XCUM1 : HKIC,TYPE="class-4f" !fast-feedback (loop-5) XCUM3 : HKIC,TYPE="class-4f" !fast-feedback (loop-5) YCUM2 : VKIC,TYPE="class-4f" !fast-feedback (loop-5) YCUM4 : VKIC,TYPE="class-4f" !fast-feedback (loop-5) ! Note: PCMUON is rolled 90 degree to have X-aperture smaller than Y-aperture ! X-aperture violates standard BSC -- approved by P. Emma !PCMUON : ECOL,L=1.1684,XSIZE=8.64E-3/2,YSIZE=4.32E-3/2 !original muon scattering collimator after pre-undulator tune-up dump (ID from Rago: 7/18/08) PCMUON : ECOL,L=1.1684,XSIZE=4.32E-3/2,YSIZE=8.64E-3/2 !90 deg rolled muon scattering collimator TDUND : INST !LTU insertable block at und. extension entrance (w/ screen) MM1 : MARK MM2 : MARK MM3 : MARK EOBLM : MARK !future electro-optic bunch length monitor? BLTOF : BLMO !LTUH (gas-jet time-of-flight bunch length monitor) MUHWALL1 : MARK !upstream end of BTH/UH wall-1 MUHWALL2 : MARK !upstream end of BTH/UH wall-2 VV999 : MARK, TYPE="installed" !new vacuum valve just upbeam of undulator PFILT1 : MARK DBMARK37 : MARK !end of undulator match RWWAKE4H : MARK, TYPE="WAKE" !LTUH beampipe wake applied here QUM1_full : LINE=(QUM1,BPMUM1,QUM1) QUM2_full : LINE=(QUM2,BPMUM2,QUM2) QUM3_full : LINE=(QUM3,BPMUM3,QUM3) QUM4_full : LINE=(QUM4,BPMUM4,QUM4) UNMCH : LINE=(DU1m80cma,DWS36,DU1m80cmb,DCX37,D32cmc,XCUM1,DUM1A,& QUM1_full,DUM1B,D32cm,DU2m120cm,DCY38,D32cma,YCUM2,DUM2A,& QUM2_full,DUM2B,DU3m80cm,XCUM3,DUM3A,& QUM3_full,DUM3B,D40cma,EOBLM,DU4m120cm,YCUM4,DUM4A,& QUM4_full,DUM4B,RFB07,DU5m80cm,IMUNDI,D40cmWa,BLTOF,D40cmWb,& MUHWALL1,DUHWALL1,DUHVESTa,RFB08,DUHVESTb,MUHWALL2,DUHWALL2,& DW2TDUND,DTDUND1,TDUND,DTDUND2,DPCMUON,PCMUON,DMUON1,VV999) PREUNDH : LINE=(DMUON3,RFBHX12,DMUON4,MM3,PFILT1,DBMARK37) LTU : LINE=(VBSYS,MM1,DOGLG2A,DOGLG2B,MM2,EDMCH,EDSYS,& UNMCH,RWWAKE4H,ENDLTUH,BEGUNDH,PREUNDH) LTUM : LINE=(MM1,DOGLG2A,DOGLG2B,MM2,EDMCH,EDSYS,& UNMCH,RWWAKE4H,ENDLTUH,BEGUNDH,PREUNDH) ! ------------------------------------------------------------------------------ ! HXR dumpline ! ------------------------------------------------------------------------------ KQDMP := -0.155212710055 QDmp1 : QUAD, TYPE="3.94Q17", L=LQP/2, K1=KQDmp, APER=rQP QDmp2 : QUAD, TYPE="3.94Q17", L=LQP/2, K1=KQDmp, APER=rQP BYDSH1 : SBEN, TYPE="1.26D18.43", L=LeffBYDS/2, ANGLE=ABYDS/2, & HGAP=GBYDS/2, E1=ABYDS/2, E2=0, FINT=0.5, FINTX=0.0, TILT BYDSH2 : SBEN, TYPE="1.26D18.43", L=LeffBYDS/2, ANGLE=ABYDS/2, & HGAP=GBYDS/2, E1=0, E2=ABYDS/2, FINT=0.0, FINTX=0.5, TILT ! define unsplit SBENs for BMAD ... not used by MAD BYDSH : SBEN, TYPE="1.26D18.43", HGAP=GBYDS/2, L=LeffBYDS, ANGLE=ABYDS, & E1=ABYDS/2, FINT=0.5, E2=ABYDS/2, FINTX=0.5, TILT BYD11 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=ABdm/2, E2=0, FINT=0.57, FINTX=0.00, TILT BYD12 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=0, E2=ABdm/2, FINT=0.00, FINTX=0.57, TILT BYD21 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=ABdm/2, E2=0, FINT=0.57, FINTX=0.00, TILT BYD22 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=0, E2=ABdm/2, FINT=0.00, FINTX=0.57, TILT BYD31 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=ABdm/2, E2=0, FINT=0.57, FINTX=0.00, TILT BYD32 : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm/2, HGAP=GBdm/2, & E1=0, E2=ABdm/2, FINT=0.00, FINTX=0.57, TILT ! define unsplit SBENs for BMAD ... not used by MAD BYD1 : SBEN, TYPE="1.69VD55.1", HGAP=GBdm/2, L=LeffBdm, ANGLE=ABdm, & E1=ABdm/2, FINT=0.57, E2=ABdm/2, FINTX=0.57, TILT BYD2 : SBEN, TYPE="1.69VD55.1", HGAP=GBdm/2, L=LeffBdm, ANGLE=ABdm, & E1=ABdm/2, FINT=0.57, E2=ABdm/2, FINTX=0.57, TILT BYD3 : SBEN, TYPE="1.69VD55.1", HGAP=GBdm/2, L=LeffBdm, ANGLE=ABdm, & E1=ABdm/2, FINT=0.57, E2=ABdm/2, FINTX=0.57, TILT PCPM1L : ECOL, L=LPCPM, XSIZE=14.2875E-3, YSIZE=14.2875E-3 PCPM2L : ECOL, L=LPCPM, XSIZE=38.1E-3, YSIZE=38.1E-3 PCEBD : ECOL, L=0, XSIZE=34.0E-3, YSIZE=34.0E-3 , & TYPE="gasket coll" DD1a : DRIF, L=0.577681302427 DD1b : DRIF, L=1.000087502327 DD1c : DRIF, L=0.3048 DD1e : DRIF, L=0.249638105611 DD1f : DRIF, L=0.409240058046 DD1d : DRIF, L=LDMP1-(DD1a[L]+PCPM1L[L]+DD1b[L]+DD1c[L]+& DD1e[L]+PCPM2L[L]+DD1f[L]) BPMQD : MONI, TYPE="Stripline-11" !RFBQD : MONI, TYPE="@2,CavityL-1" BPMDD : MONI, TYPE="Stripline-8" RFBDD : MONI, TYPE="@2,CavityL-1" XCDD : HKIC,TYPE="class-5" YCDD : VKIC,TYPE="class-5" OTRDMP : PROF, TYPE="OTR" !Dump screen WSDUMP : WIRE, TYPE="@3,special" !IMDUMP : IMON, TYPE="BCS toroid" !BCS toroid in dumpline after Y-bends !IMBCS4 : IMON, TYPE="BCS toroid" !BCS comparator toroid (ACM) in dumpline after Y-bends MIMDUMP : MARK MIMBCS4 : MARK BTM1L : INST !Burn-Through-Monitor behind PCPM1L BTM2L : INST !Burn-Through-Monitor behind PCPM2L DUMPFACE : INST !entrance face of main e- dump BTMDUMP : INST !Burn-Through-Monitor of main e- dump MQDMP : MARK DMPend : MARK DBMARK38 : MARK !end of final undulator dump ARODMP1H := -ARODMP1S ARODMP2H := -ARODMP2S RODMP1H : SROT, ANGLE=ARODMP1H RODMP2H : SROT, ANGLE=ARODMP2H BYDSH_full : LINE=(BYDSH1,BYDSH2) BYD1_full : LINE=(BYD11,BYD12) BYD2_full : LINE=(BYD21,BYD22) BYD3_full : LINE=(BYD31,BYD32) QDmp1_full : LINE=(QDmp1,QDmp1) QDmp2_full : LINE=(QDmp2,QDmp2) DUMPLINE : LINE=(BEGDMPH_2,RODMP1H,& BYDSH_full,DS1,& BYD1_full,DS,& BYD2_full,DS,& BYD3_full,DD1a,PCPM1L,BTM1L,DD1b,MIMDUMP,DD1c,MIMBCS4,DD1d,YCDD,DD1e,& PCPM2L,BTM2L,DD1f,& QDmp1_full,DD12a,BPMQD,DD12b,MQDMP,DD12c,& QDmp2_full,DD2a,XCDD,DD2b,DD2c,DD3a,BPMDD,DD3b,OTRDMP,DWSDUMPa1,& PCEBD,DWSDUMPa2,RFBDD,DWSDUMPb,WSDUMP,DWSDUMPc,& RODMP2H,DUMPFACE,DDUMP,DMPend,BTMDUMP,DBMARK38,& ENDDMPH_2) ! ------------------------------------------------------------------------------ ! for matching phase advance between XLEAP-II wiggler pairs EDSYSB_XL2 : LINE=(DBMARK36b,WS31B,D40cm,DE3mab,DE3mbb,XCE31B,DQEA,& QE31B_full,DXLUa1,YCXL1,DXLUa2,XCXL1,DUMXL12u,& UMXL1h,UMXL1h,DUQXL,QFXL1,QFXL1,DUQXL,UMXL2h,UMXL2h,MXL2a,& DUMXL12d,PC12B,BTM12B,DBTM2YC,YCE32B,DQEAa,& QE32B_full,DRFB,RFBE32B,DQEBy1,DCY32B,DQEBy2,WS32B,D40cm,DE3m80cmb,& XCE33B,DQEAb,& QE33B_full,DQEC,DE3m40cm,YCE34B,DQEA,& QE32B_full,DRFB,RFBE34B,DQEC1,WS33B,D40cm,DE3m80cm,XCE35B,DQEAc,& QE33B_full,DXLUc,BCXLSS,DXLUd1,YCXL2,DXLUd2,XCXL2,DUMXL34u,MXL2b,& UMXL3h,UMXL3h,DUQXL,QFXL2,QFXL2,DUQXL,UMXL4h,UMXL4h,& DUMXL34d,YCE36B,DQEA,& QE36B_full,DRFB,RFBE36B,DQEBy1,DCY36B,DQEBy2,WS34B,D40cm) LTUsc_XL2 : LINE=(MM1b,DL2sc,VBSYSb,MM2b,EDMCHb,EDSYSb_XL2,UNMCHb) ! ------------------------------------------------------------------------------ RETURN