TITLE, "LCLS: LCLS21FEB08 design" ! *** OPTICS=LCLS21FEB08 *** OPTION, -INTER, -ECHO, WARN ASSIGN, ECHO="LCLS21FEB08.echo" ! ============================================================================== ! Element naming conventions with the first 1-3 characters meaning: ! --------------------------------------------------------------------------- ! SOL.. = SOLenoid magnet (not fully modeled in this file - zero-length, etc) ! Q.... = Quadrupole magnet (normal quad, and always split into two halves) ! SQ... = Skew-Quadrupole magnet (45-deg rotated quad, always split into two halves) ! CQ... = Correction Quadrupole magnet (nominally set to zero field, always split) ! BX... = Horizontal Bend magnet (always split in two with suffixes "A" and "B") ! BY... = Vertical Bend magnet (always split in two with suffixes "A" and "B") ! WS... = Wire-Scanner transverse beam profile monitor ! PR... = screen-type Profile Monitor (transverse beam profile) ! YAG.. = YAG-screen profile monitor (transverse beam profile) ! BPM.. = Beam Position Monitor (various resolutions, see TYPE=...) ! RFB.. = RF Beam position monitor (<1 micron rms resolution) ! OTR.. = Optical Transition Radiation transverse beam profile monitor ! CTR.. = Coherent Transition Radiation measurement ! XC... = X-Corrector steering dipole ! YC... = Y-Corrector steering dipole ! SC... = Steering Coil package (X- and Y-Corrector dipole set) ! BL... = Bunch Length monitor (various types) ! IM... = Bunch charge (I=current) Monitor (e.g. toroid) ! TD... = Tune-up Dump (insertable copper block to stop beam) ! CE... = Collimator for Energy cuts (adjustable) ! CX... = Collimator for X position cuts (adjustable) ! CY... = Collimator for Y position cuts (adjustable) ! PC... = Protection Collimator (fixed aperture) ! VV... = Vacuum Valve ! FC... = Faraday Cup (measure charge) ! CR... = Cerenkov radiator ! AM... = Alignment Mirror ! PH... = Phase detector ! RST.. = Radiation STopper ! BFW.. = Beam Finder Wire in FEL undulator for segment alignment ! BTM.. = Burn-Through Monitor BCS device ! ============================================================================== ! ============================================================================== ! Modification History ! ------------------------------------------------------------------------------ ! 21-FEB-2008, P. Emma ! Move Q24701B, BPM24701, and BPM24901 based on tunnel tape measurements. ! (~1" move of Q24701B plus re-fit strength). Rename sec-28 wires and move ! RFB08 a bit. Add and update a few DBMARKers. Move XCEM4 0.402839 m upstream ! for Kay Fox. Change all DBMARKers from MARK to INST so that they show up ! in the EXCEL symbols file. Move YCDL1, XCDL3, YCDL3, YCDL4 per K. Fox ! E-mail of 2/21/08. ! 04-NOV-2007, P. Emma ! Move CX31, CY32, CX35, CY36, PCTDKIK1, PCTDKIK2, PCTDKIK3, and PCTDKIK4 ! downstream by half their length so that they have the right Z in the EXCEL ! files. Also modify LCLS_L3.xsif file (see comments there). ! 21-OCT-2007, P. Emma ! Locate YC5, XC6, XCA0, and YCA0 properly after installed. Move components ! in and around safety dump for J. Langton (new version of XRAYBL file). ! 04-OCT-2007, P. Emma ! Remove accidental extra YCA0 just after QA0. ! 28-SEP-2007, P. Emma ! Move many components in the BC2, L3, LTU, and dump areas based on input from ! R.F. Boyce, P. Cutino, T. Montagne, and J. Langton. WS21-24 become marker ! points named DWS21-24 (no longer in baseline design due to money limits). ! Some components in BC2 are left up to 0.3 mm offset in z (too small for ! effort). Remove K25_1c, 1d, and K28_5d 10-ft sections (not re-installed ! anymore - makes 164 10-ft, 25% power sections in L3 rather than 167). ! Add PH03 and remove MUSPLR. Added ST1, 2, 3, and severak BTM's plus moved ! SFTDMP from Z' = 717.514485 m to 719.7361 m. Also added 52-line optics as ! another output file. Also BX21-24 FINT changed from 0.5 to 0.633 ! (measured Sep. 2007). Also removed (descoped) CX37 and CY38 (now drifts ! DCX37 & DCY38). BYKIK becomes two series magnets -> BYKIK1 & BYKIK2. ! PCTDKIK now in 4 pieces (PCTDKIK1, 2, 3, 4). CTRWIG, PRXRAY, BYW1, BYW2, ! and BYW3 all descoped. Reduced LSPONT from 2.5 m to 1.5 m, removed VV35 ! and replaced with PVALVE (remane to VV35 soon?). BX21-24 Leff changed from ! 0.540 m to 0.549 m based on magnetic measurements (no z-shifts). Removed ! PRTDUND (descoped) and set PCMUO to 46" long (was 36" long). ! 07-APR-2007, P. Emma ! Move a few and add some components in the dump and safety dump for J. Langton. ! 17-MAR-2007, P. Emma ! Move a few BC2 components for Steve Score (IMBC2I, VV21, BPM24701, QM21, QM22). ! Set Leff of BYD1-3 to 1.452 m (was 1.399951 m) from J. Tanabe. ! 06-MAR-2007, P. Emma ! Change 'Q150kG' pole-tip radius to 16 mm (was 11.5 mm). Changed fit routine ! "MBChETA" to "USE, (L0b,DL1)". Was mistakenly (?) set to "USE, DL1", but ! with TWSS0 (64 MeV). ! 20-FEB-2007, P. Emma ! BXG bend radius changed from 0.1967 m to 0.1963 m based on magnetic ! measurements (per D. Dowell - FINAL!). Refit QG02 & QG03 and move DBMARK81 ! from Z = 2018.712185 m to Z = 2018.712486 m. ! 15-FEB-2007, P. Emma ! BXG bend radius changed from 0.193188 m to 0.1967 m based on magnetic ! measurements (per D. Dowell). Refit QG02 & QG03 and move DBMARK81 from ! Z = 2018.714822 m to Z = 2018.712185 m. ! 11-FEB-2007, P. Emma ! BXG effective length changed from 0.2660 to 0.2866 m based on magnetic ! measurements. Requires moving bend center a bit and re-fitting QG02-03. ! This also moves DBMARK81 (BXG entrance) upbeam from Z = 2018.725244 m to ! Z = 2018.714822 m. Remove "GTL_ON" flag (no longer used). ! 10-FEB-2007, P. Emma ! BXG edge angle changed from 26.76 to 24.25 degrees, and FINT from 0.45 ! to 0.492, and BXS edge angle from 7.5 to 7.29 degrees, all based on magnetic ! measurements. Move XC08/YC08 upbeam by 0.03 m, XCS1/YCS1 upbeam by 0.04 m, ! XC10/YC10 downbeam by 0.03 m, YC21303 downbeam by 0.1 m, all based on tunnel ! tape measurements. Change Q150kG quad Leff from 0.300 to 0.316 m (per R. Carr). ! Adjust zpos of QA11, Q21201, Q21301, QM14, and QM15 per Hans Imfeld ! list of final (constrained) alignment results (search for "dz_"). Move ! OTRS1 upbeam 2 cm until more precise number available (no adjustment left). ! Add DBMARK98 (SDMP) to list of reference points in z. ! 15-DEC-2006, P. Emma ! Move WS21,22,23 upbeam by 4 feet each to reduce possible quad-reflected dark ! charge. Set BXS effective length to 0.5435 m (was 0.5 m) after measurement ! and re-adjust QS01 and QS02 settings to compensate. ! 14-DEC-2006, H.D. Nuhn ! Add two inline valves in the undulator line: ! (1) VVU10 between US09 and US10, ! (2) VVU25 between US24 and US25. ! The exact locations are expected to require slight adjustment as ! the design is finalized. ! 10-DEC-2006, P. Emma ! Move BXKIK to 25-3d where it will fit after removing the 25-3d RF acc. ! structure. Also add OTR22 near BXKIK. Move XC01/YC01 1/8" (3.175 mm) upbeam. ! Change BXS FINT from 0.45 to 0.391, based on magnetic measurements (no associated ! quad setting changes necessary). Adjust post-BC2 component locations per S. Score. ! Move BPM2 to 0.892574 m from cathode per K. Fox. Move (~6 in.) XC24202, YC24203, ! YC24403, YC24503, YC24603, XC24702 per T. Osier (all in L2-linac file). ! 26-NOV-2006, P. Emma ! Move nomimal beam waist to between WS02 and OTR2, rather than at WS02, then ! rematch, which slightly changes many nearby quad settings. Add BL22. Also ! reduce effective length of the 12 "Q150kG" quads from 0.46092 m to 0.300 m ! in prep. for better number (with dLQA2 parameter). Finally, add x-ray ! beamline input file: XRAYBL.xsif. Move IMBC2O from QM22 area to upbeam of ! BXKIK (TCAV3 center still not agreeing with Jose?). ! 01-NOV-2006, H.D. Nuhn ! Name all 33 undulator segments individually: US01-US33. Use new names ! GIRD01-GIRD33 and USTBK01-USTBK33 to improve clarity of undulator line. ! 24-OCT-2006, P. Emma ! Remove QG01 quad from GTL beamline permanently. Change BX11,12,13,14 FINT ! from 0.5 to 0.387 (measured). ! 15-OCT-2006, P. Emma ! Set the new BSY correctors (XC6, YC5, XCA0, and YCA0) to more realistic ! locations based on Jim Turner's tunnel inspection. Move some BC2 stuff for ! Steve Score. Also move WS21,22,23 for Jose Chan. ! 21-SEP-2006, P. Emma ! Set BX01,02 FINT and FINTX to 0.45 based on mag. measurements (was 0.5). ! Adjust collimator gaps a bit, including PCPM1,2. Also move YAG03,04,S1,S2 ! 0.323" upstream so that YAG crystal center is defined as the MAD location, ! not the mirror as before (YAG01,02,G1 are a different design). ! 15-AUG-2006, P. Emma ! Set BYD1,2,3 full pole gap (hor. in this case) to 43 mm (was 23 mm). Remove ! IMPM toroid from safety dumpline - not needed. Set BPMUE1,2,3 res. to 10 um ! (was 5). Lengthen BC2 bends from 50 cm to 54 cm (CSR emit increase only 1%), ! but do not change overall length or R56. Add VV22 vacuum valve after BC2. ! 07-AUG-2006, M. Woodley ! Change "DVBm25cm" and "DVBm25cmc" to "DVB25cm" and "DVB25cmc" because of 8 ! character element name limit in skeleton decks (names that are longer than ! 8 characters are OK if they are unique in their first 8 characters ... they ! will be truncated at 8 characters in the skeleton decks); add new Database ! MARKer points to delineate skeleton deck boundaries; reinstate LI30 ! wraparound quads (QUAD LI30 615 and QUAD LI30 715) as quadrupoles (NOTE: ! uses negative drifts!); change "T850034T" to "I50I1A"; eliminate use of MAD ! element CLASS definitions ("inheritance"); add VALUE commands for MATRIX ! elements; add SAVELINE commands for use in skeleton deck generation ! 18-JUL-2006, H.D. Nuhn ! Corrected placement of all undulator break section components. Added marker ! for radiation monitor. Modified RF BPM to zero length, located at the center ! of the dipole cavity. ! 16-JUL-2006, P. Emma ! Move a few components in the VVX2 to BPMM14 region per J. Langton. ! 22-JUN-2006, P. Emma ! Move OTR11 36 mm downbeam, per J. Langton. Fix comments in undulator area and ! prepare for small adjustments of RFBPMs, etc from H.-D. Nuhn (temporarily change ! RFBPM length from 5 to 4 inches so that "Lbr2s" drift length is > 0). Set ! energy in safety-dump file to right value, rather than 6 MeV. Also eliminate ! TD21 (post BC2 dump) as unnecessary. ! 15-MAY-2006, P. Emma ! Adjust WS01,2,3 positions to match drawings and fix small errors in MAD file, ! and move BPM10 upbeam ~1 inch to its electrical center (center of strip length), ! all per R.F. Boyce. Remove GSDMP (gun-spec. dump) - not a real device. ! 09-MAY-2006, P. Emma ! Move SOL2 downstream by 3 mm per R.F. Boyce. Move PH02 upbeam by 0.1017 m, ! XC21302 upbeam by 14.2 mm, BL12 upbeam by 152.4 mm, and YC21303 upbeam by ! 63 mm, all per Joe Steiber. ! 26-APR-2006, P. Emma ! Move XC04-YC04 and XC05-YC05, per P. Stephens. ! ------------------------------------------------------------------------------ ! 23-MAR-2006, P. Emma ! Remove FCS1 as should have been done last time. Slide IMBC1O upbeam ! about 1 inch per Tom Borden. Move SC7, QA01, QA02, PH01, QE03, ! QE04, IM02, and VV02 per R.F. Boyce (2-inch is maximum move of these). ! 16-MAR-2006, P. Emma ! Replace laser-heater undulator SBEN's with MATRIX element. Changes vert. ! focusing causing QA01/02 25% stringer with much smaller betaY in L0-b. ! SUM(L) gets 6 microns shorter at BXH4B-exit. Add 4 BCS toroids (IMBCS1, ! IMBCS2, IMBCS3, IMBCS4). First two are DL2 comparator and 2nd two are ! main dump comparator. Remove OTRH1,2 until Nov. '07 installation. Add ! temporary YAG04 (until Nov. '07) very near future OTRH2 location. ! Change K of Laser-htr und. to 765-nm resonance (was 800 nm). Move SC2 ! to 2.366320 m in SUM(L) from cathode (was 2.65 then 2.5 m but won't fit). ! Adjust undulator BPMs, BFWs, and quads to Heinz-Deiter's spacing, add ! XCUn and YCUn (n=1-33) steering coils to each undulator quad center. ! Adjust undulator quad length from 7.4 cm to 7.8 cm (ESD 1.4-102) keeping ! all integrated gradients at 3.000 T. Add BL12, ceramic-gap type bunch ! length moinitor, just after BC1 (per T. Borden). Add PH02 phase monitor ! cavity after BC1 (per T. Borden). Move XC21302, YC21303, QM14, and QM15 ! per T. Borden, and put BPMM14 inside QM14. Place SCM15 (as XCM14/YCM15) ! between QM14 and QM15 (were seperate magnets on either side of doublet). ! Remove PRTD11 (not easily added to old SLC FF TD-23 stopper). Remove ! RFB01-06 from LTU (ID too small and RFB07-08 do the job). Swap YAGS2 ! and OTRS1 positions and adjust their locations to fit. Add R(5,6) of ! laser-heater undulator. Swap VV04 & SC8 and tweak Z per Wing. Tweak ! BPMS3, YAGS2, and OTRS1 positions per Wing. HTRMID renamed to HTRUND. ! Also moved SC11, SCA11, SCA12, YC21203, and XC21202 in LCLS_L1.xsif per ! P. Stephens. Finally, removed VV0A per Leif, and moved YC21303 upbeam ! of WS13 to make room for McCormick's fast ion chamber in front of TD11. ! 21-FEB-2006, P. Emma ! TCAV0 flange to flange is 0.6680236 m (was 0.55 m). Adjust z-pos of ! BPMS1, IMS1, BPMS3 and XC08/YCO8 per Wing and Cecile. Adjust SC3, YAG03, ! TCAV0, SC6, and add VV0a, all per P. Stephens. Add BFW's to undulator. ! 11-FEB-2006, P. Emma ! Change BXS gap to 34 mm for Rago to fit chamber (no X-focus effect). ! Add serial numbers for Q21201-601 for post-Aug-2006 magnets. Change ! BC1 dipole gap (43->43.28 mm). ! 04-FEB-2006, P. Emma ! Move DL1 and SAB devices per Cecile and Wing and move SOL2-center to ! 171.4 cm downstream of cathode (per Cecile and M. Palrang). Also change ! BC1 and BC2 dipole gaps (30->43 mm and 25.4->33.35 mm, respectively). ! 25-JAN-2006, P. Emma ! Move VV03 ~12 cm. ! 17-JAN-2006, P. Emma ! Fix a few corrector types to be consistemt with PRD 1.1-007-r1 (especially ! make SC2 type-1s-L0a (0.003 kG-m max.). Also add HGAPs and edge angles ! to BXKIK and BYKIK (does nothing but document, since these are off). Loosen ! HTRMID fit from exactly 10 m BETAX,Y to 8 "0.91Q17.7") and all LCAV's have type ("10ft", "9.4ft", ! and "DUALFEED"). Add type to BYD1,2,3. Remove BPM7 and YAG04. ! 23-NOV-2005, P. Emma ! Change QM11,12,13,14,15 to ETA-type quads, rather than QE-types. Was ! changed in PRD months ago, but somehow I failed to change it here. Adjust ! component locations in the X-band area per Jose Chan's drawings and ! add VVX1 and VVX2 around X-band structure. Remove BL31,32,33 (EO & ! unknown diagnostics). ! 14-NOV-2005, P. Emma ! Give all undulator quads thir own name (QU01...QU33). Move TDUND to ! dwnstr. side of RFB08 to have beam on RFB07 & 08 with TDUND stopper IN. ! Modify 135-MeV spectrometer to get more x-separation with linac ! (per Cecile). ! 09-NOV-2005, P. Emma ! Add YCM11 and use x/y corrector packages for type-1 correctors. ! Make various small adjustments to elements to be consistent ! with drawings. Add IMS1 toroid, YAGS2, and FCS1. ! 19-OCT-2005, P. Emma ! Correct the lengths of L0-a and L0-b based on Jose's new data. ! 18-OCT-2005, P. Emma ! Use 3.25Q20 quads for QUE1 and QUE2. Remove BLE02,3 (EO bunch length). ! Also add QG02/QG03 gun-spectrometer R-matrix fitting. ! 15-OCT-2005, P. Emma ! Setup file so that we always get output files for all of the branch lines: ! 1) 6-MeV spectrometer (GSPEC-...) ! 2) 135-MeV spectrometer (SPEC-...) ! 3) safety dump line (SFTDMP-...) ! 4) LTU-only (LTU-...) ! 5) entire LCLS to main dump (LCLS...) ! 13-OCT-2005, P. Emma ! Replace QUE1 and QUE2 with SLC FF Q18 magnets, and QDMP with 3.25Q20 magnets ! from the FFTB dumpline. All 3 were Q80kG types which are now not needed. Also ! add BPMQd in QDMP quad. Move YCD3 upbeam a few meters and add XCD3. ! 08-OCT-2005, P. Emma ! Small location variations of some components in the L0a L0b area per ! J. Langton and Paul Stephens. Add ZLIN00 ref. at L0-a entr. flange face. ! BX01/02 gap set to 30 mm, from 35 mm. ! 07-OCT-2005, P. Emma ! Add gun spectrometer (see GTL_ON) and adjusted L0a,b lengths and GTL ! positions. Removed BPM1, BPM4, and BPMG2 (can't fit them in, and not needed). ! 25-SEP-2005, P. Emma ! Add idealized and as-built L1-linac files, the latter to split L1-linac ! structures to add correctors at proper locations. The former is used ! for Elegant tracking where spitting the structures is undesireable. Also ! add VV21 valve in front of BC2 (added Sep. 27, 2005). ! 24-SEP-2005, P. Emma ! Adjust safety dump section to show locations of tripped off bends (i.e, ! (BYD1->DYD1, BYD2->DYD2, BYD3->DYD3), fix LBdm to include curvature, ! remove PCPM2 from main dump line (should be only in safety dump line), ! and name lower (main dump branch) aperture of PCPM1 as PCMP1L (lower ! hole of two-hole collimator on main and safety dump). ! 29-AUG-2005, P. Emma ! Change BX11,12,13,14 gap to 30 mm (was 1.05 inches). Updated corrector ! class table (under 13-JUL-2005) and adjusted class of all XC's and YC's. ! Also update QS01,2,3 K-values from Cecile. ! 19-AUG-2005, P. Emma ! Add 135-MeV spectrometer beamline (when BX01 is switched off). Based ! on Cecile's "Final_Aug05.MAD" file. Search for DL1_ON to turn on or off ! the spectrometer. Also add solenoid bucking coil, SOL1BK. ! 01-AUG-2005, P. Emma ! Shorten BXH1,2,3,4 bends from 0.126 m to 0.110 m. Set Q21301 to remnant ! integrated-gradient of 0.12 kG. Replace QB with a "QE" magnet (water ! cooled) rather than an "ET" magnet, which could get too hot and change ! alignment. Finally, adjust 21-1b,c,d z-positions so that their upstream ! ends are not moved w.r.t. existing locations (~9 mm upstr. shift due to all ! eyelets being 0.353" upstream of the "division lines" (per P. Stephens). ! 23-JUL-2005, P. Emma ! Add 9-foot long, 0.4-inch ID muon collimator after TDKIK beam-abort ! dump in LTU based on Stan Mao's PRD 1.9-100, pg. 9 (May 6, 2004). ! 22-JUL-2005, P. Emma ! Add back final undulator quadrupole after last segment to facilitate ! alignment of this last segment. Refit dump area to slightly larger ! betaX,Y and etaY, but still 1E-5 dE/E & sigE/E resolution. ! 16-JUL-2005, P. Emma ! Replace Q24701 & 901 with double QE magnets and QM21 & QM22 with FFTB ! style 46-cm magnets to allow 30-50 GeV SLC operations. Replace QE31-36 ! quads with "QE" type (were FFTB type). ! 15-JUL-2005, P. Emma ! Replace RFBUE1 & 2 with strip-line BPMs of ID>36 mm (BPMUE1 & 2) to stay ! clear of x-ray beam. QUE1 & 2 also must have ID>36 mm, so magnet-type was ! changed for these also, along with QDMP. Also introduce new LTU magnet ! types (Q150kG: ID=23 mm, Q80kG: ID=36 mm). ! Replace QA11 & QA12 with ET quads (were QE's). ! 13-JUL-2005, P. Emma ! Replace XC21202 (original XCOR) near Q21201 and put back XC21302 and ! YC21303 which were removed when the 21-2/3a RF sections were removed. ! Move TCAV3 to 25-2d for better sigZ resolution and adjust MUY in L3 to ! get back to 270-deg between TCAV3 and OTR30 (plus small MUX L3 tweak ! to get BX24A -> BX31A = n*360 deg - was 25 deg off?). Also add QEM3V ! "1.259Q3.5" injector-type vernier quad near QEM3 for slice emit-meas ! in the LTU on OTR33. Also change LCLS corrector types to: ! class-G: |BL| < 0.0010 kG-m (RF gun area corrector) ! class-1: |BL| < 0.0060 kG-m (injector corrector) ! class-4: |BL| < 0.0600 kG-m (nominal linac corrector) ! class-5: |BL| < 0.1200 kG-m (strong linac corrector) ! 09-JUL-2005, P. Emma ! Change XCA11,12, YCA11,12 to type-0 (was type-1 due to wrap-around), ! change YC5,XC6,XCA0 to type-2 (was no type before - don't know why), ! change XCE31,YCE32,XCE33,YCE34,XCE35,YCE36 to type-1 (was type-2 because ! type-2 was cut at 0.02 kG-m - 0.025 kG-m cut is better). ! 06-JUL-2005, P. Emma ! Rename TCAV1 to TCAV0 (in injector) and TCAVH to TCAV3 (in L3). Replace ! old 0.4-m BYW1,2,3,4 with SLC 3-bend wiggler with two 0.233681-m long ! magnets and one 0.467362-m long magnet, each seperated by 0.17373 m. ! Also convert BXKIK and BYKIK to SBEN (from DRIFT) using ANGLE=1E-12 ! so these show up in the EXCEL symbols files as turned off bends. ! Also remove PCDMP1, which was actually the same as PCPM1 and separate ! PCPM1 and PCPM2 as far as possible in safety dump. Then set BXPM1,2,3 ! to reduced field with 5.2-cm gaps (rather than 3.81 cm gaps). ! 29-JUN-2005, P. Emma ! Replace QA11 and QA12 L1-linac quadrupoles with QE-type magnets rather ! than QA-types. There are no more QA-types in the LCLS design. ! 27-JUN-2005, P. Emma ! Update undulator drifts lengths to 0.470 and 0.898 m (short,short,long). ! Forces "UNDSTOP" to be redefined as "UNDTERM" at slightly new z-location. ! 18-JUN-2005, P. Emma ! Move L0-a downstream about 8 cm, lengthen L0-a and L0-b due to dual feed ! modifications, add Cecile's dual-feed "DLFDa" and "DLFDb" marker points, ! and move components around between L0-a and L0-b. ! 02-JUN-2005, P. Emma ! Add comment to each fast-feedback corrector and identify loop number. ! Add spoiler to beam abort system (SBD). ! 31-MAY-2005, P. Emma ! Adjust QE04 through QM01 section z-locations by a few mm to back out ! 06-MAY-2005 changes and to accomodate new BPM lengths (per Leif and Wing Ng). ! 25-MAY-2005, P. Emma ! Move entire FEL undulator upstream by 2 m, remove odd break lengths in ! first 3 breaks, shorten section between end of undulator and start of ! dump by 5 m, and shorten section between beginning of dump line and ! dump's vertical bend magnets by 2 m. Also move saftey-dump disaster ! monitor ("SFTDMP") upstream by 1.5 m to allow room for X-ray PPS stoppers. ! (Note the reference points named: "UNDBEG","UNDEND", "DMPBEG", and "DUMP" ! are all removed now, and replaced by "UNDSTART", "UNDSTOP", "DLSTART", and ! "EOL", with different Z-locations.) Remove 1st QF quad from start of undulator, ! which requires rematching, forcing the CX37 and CY38 collimators to move. ! Also, moved the RFB07 to get 3 BPMs in a row over the 7-m drift from the ! last undulator matching quad to the first undulator segment. Finally, add ! BXKIK horizontal kicker magnet just downbeam of sec-25 TCAV for off-axis ! bunch length meas on 25-9 screen. ! 06-MAY-2005, P. Emma ! Adjust QE04 through QM01 section z-locations by a few mm due to unfortunate ! adjustments by designers when they changed the length of RST1. ! 04-MAY-2005, P. Emma ! Reverse the Nov. 05, beta swap by (approximately) reversing the signs ! of the 6 quads: QA01-2, and QE01-4, in order to get betaX back to 30 m ! from 12 m at the L0-b input coupler. This so we can measure slice ! x-emittance at WS02 wth QE03. ! 05-APR-2005, P. Emma ! Change safety dump layout to Saleski's Nov. 10, 2004 layout, including ! BYPM1-3 becoming BXPM1-3 for horizontal safety bends. PCDMP1 moved ~1 m ! to be consistent with new PCPM1 location (same collimator body). ! 23-MAR-2005, P. Emma ! Make TCAV1 and TCAVH into LCAV types, rather than DRIFTs, so that the ! xtffs2symbols.m program recognizes them and places them in the EXCEL file. ! 21-MAR-2005, P. Emma ! Move elements around in the QE04-QM01 area by a few cm based on the CAD ! layout by Wing Ng and Leif Eriksson. Re-fit WS01-03 beta/alpha. ! 01-MAR-2005, P. Emma ! Set bore radius of Xgamma injector quads to 16 mm (was 13.75 mm), per ! Schmerge EXCEL list, and also R. Carr vendor bid document. ! 17-FEB-2005, P. Emma ! Rematch injector to Cecile's new 1-nC Parmela run (not much different) ! called 'LCLS_end_L0a_nominal.dat'. Remove L0SHIFT and move move L0WAKE ! to just after L0a and rename it L0aWAKE, since we start tracking at end ! of L0a now, rather than L0b. ! 03-FEB-2005, P. Emma ! Use new SPPS-chicane-like tweaker quads ("2.1Q5.87") in BC1 and BC2 ! and adjust the locations of CQ11,12 quads to dZ=0.40005 m from BX11-center ! to CQ11-center (and from BX14-center to CQ12-center, backwards), for ! Joe Stieber's BC1 interference problems. BC2 not engineered yet, but ! CQ21 and CQ22 now moved to 2-m from outer bends (was asymmetric - ! see 13-NOV-2001). Move BPM3 upstr. 2 cm (per Cecile). Move S2 upstr. ! 5 mm (per Cecile). Add VV02 and rename old-VV02 and old-VV03 to VV03 ! and VV04 (per Cecile). ! 18-JAN-2005, P. Emma ! The steering correctors I would like to have well calibrated ! (in kG-m of integrated dipole field) prior to installation at ! the level of <1% accuracy, if possible. (sent to Rago in Fall 2004) ! DL1-Area: XC05 & YC05 ! BC1-Area: XCA12 & YCA11 ! BC2-Area: XC24702 & YC24703 ! LTU-Area: XCVM2 & YCVM1 ! 01-DEC-2004, P. Emma ! Move BC1-area devices per Bill Brooks list: ! 1) YCM12 relocated downstream to 21.233 m (was 21.055 m) ! 2) XCM13 relocated downstream to 21.904 m (was 21.726 m) ! 3) IMBC1O relocated upstream to 22.500 m (was 26.576 m) ! 4) OTR12 relocated upstream to 23.900 m (was 24.195 m) ! 5) XCM14 relocated upstream to 26.988 m (was 27.242 m) ! 6) YCM15 relocated downstream to 28.000 m (was 27.599 m) ! 22-NOV-2004, P. Emma ! Move gun/injector devices in z to be consistent with Cecile's list. This ! moves most devices from the gun solenoid, S1, to BPM5 in quad QA02. Also ! update "LQx" quad length from 10.7 cm to 10.8 cm, per J. Schmerge. ! 17-NOV-2004, P. Emma ! Move entire injector beamline 12.100 mm downstream in a parallel direction ! to the main linac axis. This because the Q20901 quad (not in this file ! but used as a tunnel reference) was found to have a MAD-file z-location ! 12.100 mm too far upstream and the injector was already laid out, so we will ! preserve the 3.428107-m distance between Q20901-center and the point of ! intersection of the LCLS injector (with BX01 off) with the SLAC linac, by ! moving the injector beamline 12.100 mm downstream (see ZOFFINJ). ! 04-NOV-2004, P. Emma ! Set cathode distances to L0-a and L0-b structure centers and the QA01 and ! QA02 quadrupole centers so that they agree with Cecile's Parmela files. ! Cathode to L0-a CENTER = 2.925052 m ! Cathode to QA01 CENTER = 4.652654 m ! Cathode to QA02 CENTER = 4.957554 m ! Cathode to L0-b CENTER = 6.866150 m (Cecile's file changed to this L0-b value) ! Also (approximately) reverse signs of the 6 quads: QA01-2, and QE01-4, in order ! to get betaX from 30 m down to 12 m at the L0-b input coupler so the RF kick ! there produces ~6% x-emiitance growth rather than ~15% (according to Cecile). ! Add L0a 3-m RF section to injector, rather than the 3-m drift that was used. ! Set laser-heater chicane bends to 12.6 cm (added 2.6 cm) using "dLbh" parameter. ! Finally, add mid-points to the L0-a and L0-b RF sections to more easily see ! their (x,y,z) coordinates. ! 21-OCT-2004, P. Emma ! Set laser-heater chicane dispersion to 2.5 cm (was 2.0 cm) for Roger Carr ! and Lynn Bentson (QE01-QE04 quads get somewhat weaker). Also update FEL ! undulator quad effective lengths to 7.4 cm (was 5 cm) and set gradients ! to 40.54 T/m (was 60 T/m) to keep the 3.0 T integrated gradients. ! 08-OCT-2004, P. Emma ! Move CQ11 and CQ12 BC1 quads to exact location as in Joe Stieber's drawings ! (519E-6 m shifts). Move OTR11, CE11, and BPMS11 (in BC1) to same as Joe's ! drawings (~few cm shifts) and use same diagnostics package in BC2, but with ! a short drift preceeding it, which might be changed later. Also shortened ! PCMUON from 5 to 3 feet, according to Lew Keller's new design and added ! Lew's powered magnetic muon spoiler in the saftey-dump line. Add "TILT" to ! QSM1 (got lost?), since it is a skew-quad (but nominally off). Fixed ! 'LCLS_L3.xsif file', which had typo using K25_2b,c,d where K25_1b,c,d actually ! are (no actual effect though, since these are identical sections). ! 24-SEP-2004, P. Emma ! Set final energy to 13.64 GeV for new undulator parameter of K=3.500 and 6.8-mm ! gap. This puts BC2 energy at 4.300 GeV (from 4.540 GeV), which adds one spare ! klystron to the L2-linac. L2-phase now -41.4 deg (rather than -40.8 deg) and ! L3-linac phase now at crest (0 deg rather than -13.6 deg). Also specify half-gap ! widths for all LTU collimators (lengths already specified). Finally, remove ! soft-bend in dumpline (replaced with slightly less drift length such that ! "DUMP" face coordinates remains unchanged - Y & Z). ! 21-SEP-2004, P. Emma ! Move CQ11 and CQ12 closer together by ~15 cm each (i.e., each ~15-cm farther ! from their adjacent dipole. Now each is exactly 30 cm in Z from adjacent dipole. ! Also calculate BMIN1 based on drift, rather than the reverse. ! 16-SEP-2004, P. Emma ! Move Q21201 downstream by 0.035512 m for better fit of X-band structure. ! Move X-band structure upstream by 0.016491 m for Bill Brooks. Move IMBC1I ! toroid from BX11 face to just 8 cm downstream of Q21201. Move YC21203 and ! XCM11 to between Q21201 and QM11 as 4-coil combined x/y corrector. Verified ! all 22 "ZLIN..." markers, from ZLIN01 to "DUMP" - all OK. Remove PRWIG, ! since it is now called PRXRAY and placed in the Y-wiggler. ! 17-AUG-2004, P. Emma ! Comment out Z0=-14.101382 survey line because I don't remember what it's for. ! Turn on realistic L2 and L3 linac XSIF-files, rather than idealized files. ! 13-AUG-2004, P. Emma ! Move QM11 downstream by 0.1828 m to make a bit more room for the 60-cm ! X-band structure. ! 22-JUN-2004, P. Emma ! Change BC1 length for longer central drift to accomodate diagnostics. ! Joe Steiber says: move BX12 moved -0.165100 m (-6.5") and BX13 moved ! +0.165100 m (+6.5"). This gives us 0.508584 m (20.023") to work with. ! This requires a new BC1 bend angle. ! 05-MAY-2004, P. Emma ! Change QM11, QM12, and QM13 to QE-type quads, rather than 1Q5.6-types and ! increase surrounding drifts accordingly (0.0481 m quad length difference). ! This should have been done a few months ago, but somehow got missed. Now ! there are no more 1Q5.6 quads anywhere in the LCLS. Re-order BC1 and BC2 ! diagnostics BPM, coll, OTR and spread to get 10-cm space between each. ! 04-MAY-2004, P. Emma ! Add 7 "fixed points" in the LTU/undulator/dump-line area to document precise ! locations for future beamline comparisons. These fixed points (as those termed ! "ZLIN..." in the linac) are to be maintained in X,Y,Z,THETA,PHI, and PSI, ! unless an intentional change is made and clearly documented in the comments ! above (and below - see "ZLIN..." section). ZLIN08a removed since it was no ! longer in the beamline anywhere. ! 19-APR-2004, P. Emma ! Adjust matching upbeam and downbeam of BC2 to get slightly better phase advances ! across WS21-24 wires. Also reversed K1 signs of QM22 and Q24901 quads to get ~30% ! weaker strengths (were the tightest alignment tol quads in the area). Finally, ! slide OTR30 downstream by 4 cm to center it between XCDL3-exit and QDL33-entrance. ! (Also put MDL2M fitting above ML3DL2 - was above MDL2T). ! 16-APR-2004, P. Emma ! Re-model FEL undulator with R-matrix to include natural y-focusing and ! set =30 m using 60 T/m QF and QD gradients (H.-D. Nuhn). Also add ! 1st three undulator special break lengths, then re-match and save. ! Change nominal FEL e- energy to 14.077 GeV with K = 3.630 (H.-D. Nuhn). ! 13-APR-2004, P. Emma ! Undulator "center" is now at 583 m from S100 rather than 532 m. This also ! changes "YF" from 0.009755 m to 0.009738 m to get S100 at Y=0 and changes the ! BY1/BY2 bend angles slightly. This change should have been made on 08MAR04 ! but was missed. Also change LTU coordinates print and survey output file names ! from FFTBLCLS... to LTU-LCLS..., as preferred by T. Montagne. Also move MVBEND ! fitting subroutine to just before ML3DL2, rather than just before MUNDP. Also ! add S100_HEIGHT to Earth's radius to refine vertical bend determination (added ! late: April 16, 2004). ! 24-MAR-2004, P. Emma ! Add one undulator RFBPM just after last undulator segment (not linac ! responsibility) and set undulator RFBPMs at proper positions rather than ! in centers of quads. Move IMUNDO downstream of undulator-exit by ~15 m ! (was < 1 m) and move dump-system upstream by ~8 m so that VV36 is 404 m ! downstream of the RSY-wall. Change PCMUON from 4-ft length to 5-ft length. ! Change BC1-screen to OTR and rename it from PR11 to OTR11. Make all 11 ! injector quads (E>60 MeV) into "XGamma" type (10.7 cm long). Add L0b ! 3-m RF section for 64->135 MeV acc. (still ignore L0a), and move TWSS0 ! beam location to L0a-exit (Parmela TWISS output at L0a-exit now). ! 08-MAR-2004, P. Emma ! Lengthen LTU emittance diagnostic section by ~34 m to get undulator to start ! at 517 m from S100. Also add ~40-m undulator exit section with minimal, ! low-cost elements, to possibly be used as a future undulator extension. ! Note, S100 to outer face of research-yard (RSY) wall is 935 ft exactly, ! or 284.988000 m (updated Sep. 29, 2004 -PE). Also add slice-Y-emit meas ! OTR33 (renamed old slice-E-spread OTR33 to OTR30). ! 02-MAR-2004, P. Emma ! Move dump upbeam about 6 m and move final safety permanent magnets ! downbeam about 20 m and add 2 PC's upbeam of BYPM dipoles. ! 26-FEB-2004, P. Emma, J. Schmerge ! Rename some injector elements from gun to 21-1b section. ! 23-FEB-2004, P. Emma ! Shift injector elements around according to Lynn Bentson's changes. These ! changes are restricted to the area from gun to entrance of L1-linac. ! 22-JAN-2004, P. Emma ! Redefine staion-100 (S100) as Y=0 as suggested by Catherine LeCocq. ! Also dump LTU file starting near 50Q1, rather than at 50B1. Note ! S100 is 77.643680 m above its local sea level. ! 13-JAN-2004, P. Emma ! Adjust alignment coordinates of LTU area to Catherine LeCocq's conventions. ! This sets the station-100 (S100) height at Y=77.643680 m, the pitch at ! -4.760 mrad (unchanged) and the Earth's mean radius at R=6372.508025 km. ! These changes slightly adjust the height of the undulator and the angles ! of the vertical bends (BY1 and BY2). Also we changed LTU to allow space to ! keep the existing VAT valve at the start of FFTB/LTU (see below). ! Added 30 cm between WALL and YCVM1, subtracted 6 cm from the drift between ! YCVM1 and QVM1, or: ! Device Old Coordinate/m New Coordinate/m ! YCVM1 176.11 176.41 ! QVM1 176.74 176.98 ! QVM2 177.70 177.94 ! XCVM2 178.18 178.42 ! BV1 178.63 178.87 ! These moves allow us to keep an existing VAT valve at the start of FFTB/LTU. ! 05-JAN-2004, P. Emma ! Move single beam dumper (BYKIK and TDKIK) from last bend module (DX37-38) ! into 2nd bend module (DX33-34) so that dump will be inside BSY enclosure ! where shielding requirements are much easier. This limits the spontaneuos ! undulator to <5 m in length (was limited to <12 m). ! 15-DEC-2003, P. Emma ! Add laser-heater undulator model to include focusing effects - rematch. ! 06-DEC-2003, P. Emma ! Move correctors, etc. to realistic location in LTU according to Davies ! list. ! 01-DEC-2003, P. Emma ! Use effective path length for BX31,32,35,36 bends rather than effective ! core length (adds 8.3 microns to bend length). Change optical fitting ! in DL2 to ignore vertical E-wiggler-chicane (EWIG). Lengthen heater ! undulator by 0.025 m for a 10.5 period length (=0.525 m), and re-match. ! 19-NOV-2003, P. Emma ! Change e- dump for Stan Mao. Reduce length of powered Y-bends from ! 1.5 m to 1.4 m, use 5-deg total powered-bends with 3 bends rather than ! 4, use 3 perm-magnet bends rather than 2, and re-fit optics. ! 14-NOV-2003, P. Emma ! SLide BX01/BX02 bends farther apart by 24" total, move QM01,2,3,4 to ! accomodate this, and fit BETX<1.7 m, BETY<8 m at OTR4 which is now ! just upbeam of QB. All this for Lynn Bentson. ! 13-NOV-2003, P. Emma ! Add Laser-Heater System (LHS), including chicane, between QE02 and QE03. ! L0-b slides upbeam by 12 cm, QE03-04 slide downbeam ~1.5 m, TCAV fits ! after LHS, WS01-WS03 separation goes from 4.33 m to 3.9 m (see LWS01_03), ! QE01-04 quads become 10-cm new-GTF types, OTR3 gone, WS02 does not move. ! 10-NOV-2003, P. Emma ! Add 8 RF-BPMs ("RFB...") just upstream of 30-m undulator extension. Add ! 5 new toroids ("IM...") just before BX31, just after BX36 (comparator), ! at TDUND, just after FEL-undulator, and in dump line. Add X-ray stripe ! vertical chicane and screens for E-spread meas. in LTU. Add EO, OTR, and CTR ! bunch length monitors just after BX36. Point to possible future spontaneous ! undulator location in LTU (no real device in baseline for now). Also ! set LTU coordinates from station-100 (S100) and set vertical bends to get ! level system at center of FEL-undulator, including 30-m extension (11-Nov-03). ! 04-NOV-2003, P. Emma ! Update corrector placements in LTU based on simulated steering. ! Add YCA0 to BSY (near QA0 upstream of WALL), if easy to add. ! 28-OCT-2003, P. Emma ! Replace old FFTB-DL2 design with much longer LTU (Linac-To-Undulator) ! beamline, with multiple undulator branch point options. Also add ! 129-m undulator model with 30-m pre-extension and e- dump line. ! Change nominal energy at 1.5 Angtsroms to 14.100 GeV with ! =25 m in undulator. ! 16-OCT-2003, P. Emma ! Add a few BPMs in the DL1 area for better steering and move a few ! DL1 XCORs and YCORs approximately to where Lynn's drawing show them. ! Also remove CE01 from near QB in DL1. ! 06-OCT-2003, P. Emma, C. Limborg ! Replace QA01 and QA02 15-cm long L0-quads with two 6-cm long GTF-type ! quads. Setup matching using initial beta functions at L0a-exit from Cecile. ! Add to naming convention above: "CX" as x collimator and "CY" as y ! collimator. ! 16-JUL-2003, P. Emma ! Improve location of X and Y correctors and BPMs in the DL1, and BC1 ! areas, based on simulated steering. Only done from QE01 to undulator, ! not including L0-linac area, and no moves made in BC2 or DL2 areas, ! but 2 XCOR's and 2 YCOR's removed from centers of BC1 and BC2 ! chicanes, because Elegant steering shows they were not needed, and ! BPMWIG was added just dnstr of SC-wiggler which has small aperture. ! NOTE: Do not use XC460034, XC460036, or XC921010, AND YC460035, ! YC460037, or YC921010 for steering: Get BAD results in Elegant. ! 15-JUL-2003, P. Emma ! Add QA01 & QA02 quads to injector at 64 MeV point according to Cecile's ! new 135-MeV injector design. ! 09-JUL-2003, P. Emma ! Readjust parameters for 135 MeV injector output. New RF phases, reduced ! X-band voltage (22->19 MV), X-band phase now at -160 deg, new BC1 & BC2 ! strengths, loosened jitter tolerances, especially for X-band RF phase ! (was 0.3 deg, now 0.5 deg). No elements were moved, except 2 quads added ! in injector at 64 MeV point. Only operational were parameters changed. ! 10-JUN-2003, P. Emma ! Move OTR6 close to WS03 (was 1-m dnstr.), rename B1WA... to BW1A..., ! remove OTR adjacent to OTR4 (was almost identical), add WS04 back near OTR4, ! SC-wig gap increased by 2 (to 1-in), add PRTD11, PRTD21, PRTD31 screens on ! TD11, TD21, and TD31, add dump of expected fit-OFF penalty functions, plus ! clean up and update of fits results. ! 01-MAY-2003, P. Emma ! Lengthen BC2 bends from 0.4 m to 0.5 m, increase center BC2 drift from 0.5 m ! to 1 m, and take up this length by reducing the two drifts after B24B. Bend ! magnet name changes from 1D15.7 to 1D19.7. Also add MTWSSC fit call in ! string of fit routines. ! 17-MAR-2003, M. Woodley ! Shorten DM23B drift length to compensate for fix of 14-AUG-2002; rematch ! L3 optics; add "instrumentation section" (~31 m long ) comprised of ! undulator FODO cells immediately upstream of undulator ! 14-AUG-2002, P. Emma ! Fixed bug where BC2 drifts were LDo?/cos(0), rather than ../cos(AB21); ! also update settings around BC2 after new fit ! 10-APR-2002, M. Woodley ! Correct location of 901 quads in LI25-28 (!); change BC2 bends from 1D30.5 ! to 1D15.7; change K21X name to K21_X; remove WS04 (use OTR8); remove WS11 ! (use PR11 OTR); add PR12 OTR in BC1/ED1; remove WS25 (use PR21 OTR); ! replace WS31 with PR32 OTR; add PR33 OTR in DL2/ED2; add TYPE information ! for PROFs (PHOSPHOR or OTR) and MONIs (resolution); create seperate ! (external) input files for L2 and L3 ... one set contains "idealized" ! layouts with non-split accelerator sections and correctors located at ! structure entrances, while a second set contains the as-built layouts with ! split structures, wraparound correctors, etc. ! 14-FEB-2002, M. Woodley ! Add diagnostics in L0/DL1 area per D. Dowell spreadsheet; run optics such ! that "sumL" is accumulated distance from cathode ! 15-JAN-2002, M. Woodley ! For parts list generation: change wire scanners to WIREs; change profile ! monitors to PROFs; change bunch length monitors to BLMOs; change charge ! monitors to IMONs; change collimators to RCOLs; change dumps to INSTs; ! added TYPE="SC_WIGG" to wiggler SBEN definitions; split DW2 in half and ! added WIGbeg, WIGmid, WIGend MARKers ! 29-NOV-2001, P. Emma ! New input beam from Cecile with 120 MV/m at gun, 18 MV/m in L0a, and ! 30.5 MV/m in L0b. Now converging beam at L0-exit. Beta's in DL1 and ! BC1 now more like 07-NOV-01, but L1 FODO sign-flipped w.r.t. 07-NOV. ! Still need better L1-entrance and L2-entrance matching conversion. ! 26-NOV-2001, P. Emma ! Tweak matching through DL1 and BC1 to reduce CSR? ! 15-NOV-2001, M. Woodley ! New DL1/injector design: 35 degee off-axis injection, load-lock/gun/L0 ! moved upstream, more space between L0 sections, larger betas at WS02, ! fewer quads to match through DL1 bend, reverse polarity of L1 quads; add ! 55 cm transverse deflecting structure; rematch to Emma's latest BC1 ! optics ! 13-NOV-2001, P. Emma ! Move BC2 CQ21 and CQ22 to better locations within BC2 (mostly CQ21 goes ! 4 m past B21 to get bigger etaX/betaX ratio) ... rematch BC2 area ! 07-NOV-2001, P. Emma ! Move BC2 superconducting wiggler upstream by one quad to get betaX smaller ! in wiggler (reduces ISR emittance growth, plus allows better BC2 CSR ! match); make all drifts, which are downstream of and close to bends, of ! TYPE="CSR"; set MUX from B24 to B31 = 0 for better BC2-DL2 CSR emittance ! cancellation ! 23-OCT-2001, P. Emma ! Add a pre-BC2 one-period superconducting wiggler to kill the CSR micro- ! bunching ! 13-AUG-2001, P. Emma ! Replace double-chicanes with single, long chicanes to beat high-frequency ! CSR ! 02-JAN-2001, P. Emma ! Tweak R56 of BC2-2 from 3.60 mm to 3.55 mm to get 22 um rms final bunch ! length, rather than 21 um; clean up this file ! 06-DEC-2000, P. Emma ! Re-match end-of-L0 quads to Patrick's 100000-particle Parmela beta ! functions ... had to increase drifts between QE01-2,3,4 and reduce BMIN0 ! from 1 m to 0.733855 m (WS02 sig=50 microns now) which moves WS01-2-3 ! closer together accordingly - plus slightly shorter LMED so that length to ! DL1END is unchanged ... this now allows matching either JR beam or PKR ! beam ! 25-OCT-2000, P. Emma ! Tweak basic compression parameters to get more spare klystrons (L1phase ! from -38.479 deg to -37.824 deg, L2phase from -42.963 to -42.528 deg, ! R56(BC1) from (24.012+11.500) mm to (24.807+11.900) mm, R56(BC2) from ! (18.40+3.50) mm to (18.923+3.600) mm ... TRACKED in Elegant: gives 16% CSR ! emittance growth total ! 22-OCT-2000, M. Woodley ! Change sign of BC1 and BC2 chicanes (bend away from the aisle); adjust ! horizontal phase advance of L3 to get 3*360 degrees between last bend ! of BC2 and center of QL32 in DL2; define CSR drifts for translation to ! ELEGANT; change "INJ45" back to "DL1" ! 21-OCT-2000, P. Emma ! Change BC2 beta's to reduce CSR emittance growth (betax=7 m, alphax=-1.1 ! at B28B-exit) and adjust both BC2 chicanes for same total R56, but ! R56(1)=18.4 mm, R56(2)=3.5 mm (~ 20-OCT values) ! 13-OCT-2000, P. Emma ! Change BC1 beta's to reduce CSR emittance growth (betax=1.2 m at B18B-exit) ! and adjust both BC1 chicanes for same total R56, but R56(1)=24.012 mm, ! R56(2)=11.500 mm; add a few MARKers, like XBEG and XEND ! 10-OCT-2000, M. Woodley ! Move DL1 line to 3 feet from injector tunnel wall; tweak length and ! location of X-band section; change BC1 to double chicane system; adjust ! horizontal phase advance of L2 to get 7*180 degrees between last bend ! of BC1 and last bend of BC2; add vertical bend system between DL2 dogleg ! and ED2 emittance diagnostic section to bring beamline level; R56=0 ! optics for DL2 dogleg ! 31-AUG-2000, P. Emma ! New compression parameters based on optimizer (e.g. sigZ(BC1)=200 um) ! 03-AUG-2000, P. Emma ! Match injector for Jamie Rosenzweig input beta functions (i.e. ! "thermal1_jr.sdds"); add X-band to BC1 entrance; re-tune BC1 & BC2 R56 to ! accomodate different initial beam ! 24-JUL-2000, M. Woodley ! Verify that all fitting results have been propagated into element ! definitions; define dummy quads for matching L1/L2/L3 phase advance per ! cell (coasting) ! 20-JUL-2000, P. Emma ! Add TCAVPROF screen near H25901; reset R56(BC2-1)=26.0 mm (BB21=10.9.. kG) ! 19-JUL-2000, M. Woodley ! Remove 25-5a section ... increase gradient on 25-5b; add 8' transverse ! deflecting cavity at 25-5a for bunch length measurement; adjust phase ! advance per cell of L3 linac from 30 to 33.4 degrees/cell to get 270 ! degrees of vertical phase advance between the transverse deflecting cavity ! at 25-5a and PR31 in DL2 ! 05-JUL-2000, P. Emma ! Added 1st-guess zero-length correctors to make ELEGANT steering work; ! reduce BC2-to-L3 quad strengths to reduce chromatic dilution and rematch; ! fix effective length of DL1 bends ! 27-APR-2000, M. Woodley ! From L0 exit to undulator entrance; 45 degree off-axis injection; location ! of injection line wrt off-axis tunnel per P. Stephens ! ============================================================================== ! initial conditions (exit of L0) injdeg := -35.0 !injector bend angle w.r.t. linac [degrees] E00 := 0.006 !beam energy after gun (GeV) E0i := 0.064 !beam energy between L0a and L0b sections (GeV) Ei := 0.135 !initial beam energy (GeV) (150->135 MeV on July 9, 2003) EBC1 := 0.250 !BC1 energy (GeV) EBC2 := 4.300 !BC2 energy (GeV) Ef := 13.640 !final beam energy (GeV) EMITXN := 1.00E-06 !normalized horizontal emittance (m) EMITYN := 1.00E-06 !normalized vertical emittance (m) BLENG := 0.83E-03 !bunch length (m) ESPRD := 2.00E-05 !slice rms energy spread at 135 MeV (1) ZOFFINJ:= 0.012100 !moves entire injector in main-linac z-direction by this amount (+12.100 mm Nov. 17, 2004) ! twiss parameters at L0a-exit from Cecile's 19 MV/m L0a and 24 MV/m L0b (Oct. 6, 2003). ! (Update these with TWSS from Parmela output at L0a-exit - NOT L0b-exit anymore - March 29, 2004 - PE) TBETX := 17.239 !twiss beta x (m) TALFX := -3.295 !twiss alpha x TBETY := 17.169 !twiss beta y (m) TALFY := -3.278 !twiss alpha y ! Twiss at start of ED2 diagnostic section BX1 := 46.225914269746 !twiss beta x (m) AX1 := -1.084608324864 !twiss alpha x BY1 := 46.225914304669 !twiss beta y (m) AY1 := 1.084608327766 !twiss alpha y ! Dummy, fitted twiss parameters at cathode which yield the above twiss parameters at ! L0a-exit (for plotting purposes only - assumes only drift between cathode and L0a-exit) CBETX := 3.844367602819 CALFX := 3.546536553224 CBETY := 3.824602098386 CALFY := 3.530071369667 ! match into LCLS undulator UBETX := 34.233825931612 ! twiss beta x (m) UALFX := 1.136104327233 ! twiss alpha x UBETY := 23.966898717584 ! twiss beta y (m) UALFY := -0.797118403589 ! twiss alpha y ! match in LTU (fitted) MBETX := 48.916343743109 !at MM1 twiss beta x (m) MALFX := 3.142045480135 !at MM1 twiss alpha x MBETY := 96.854994510320 !at MM1 twiss beta y (m) MALFY := 3.631316672149 !at MM1 twiss alpha y ! Parameters below are used to set LTU Y-bends so that beam is level w.r.t. gravity at center of FEL-undulator, including 30-m extension S100_PITCH := -4.760000E-3 ! pitch-down angle of linac at station-100 [rad] (0.27272791 deg) S100_HEIGHT := 77.643680 ! station-100 height above local sea level, from Catherine LeCocq, Jan. 22, 2004 [m] Z_S100_UNDH := 583.000000 ! undulator center is defined as 583 m from sta-100 meas. along und. Z-axis (~1/2 und+xtns) R_Earth := 6.372508025E6 ! total radius of Earth (gaussain sphere) from Catherine LeCocq, Jan. 2004 [m] VALUE, S100_PITCH,S100_HEIGHT,Z_S100_UNDH,R_Earth ! set up TWSS0, TWSSC, and TWSSU TWSSC : BETA0, ENERGY=E00, BETX=CBETX, ALFX=CALFX, BETY=CBETY, ALFY=CALFY TWSS0 : BETA0, ENERGY=E0i, BETX=TBETX, ALFX=TALFX, BETY=TBETY, ALFY=TALFY TWSSM : BETA0, ENERGY=Ef , BETX=MBETX, ALFX=MALFX, BETY=MBETY, ALFY=MALFY TWSSU : BETA0, ENERGY=Ef , BETX=UBETX, ALFX=UALFX, BETY=UBETY, ALFY=UALFY ! construct input beam matrix EMITX := EMITXN/(TWSS0[ENERGY]/EMASS) EMITY := EMITYN/(TWSS0[ENERGY]/EMASS) TGAMX := (1+TWSS0[ALFX]*TWSS0[ALFX])/TWSS0[BETX] TGAMY := (1+TWSS0[ALFY]*TWSS0[ALFY])/TWSS0[BETY] SIG11 := EMITX*TWSS0[BETX] SIG21 := -EMITX*TWSS0[ALFX] SIG22 := EMITX*TGAMX SIG33 := EMITY*TWSS0[BETY] SIG43 := -EMITY*TWSS0[ALFY] SIG44 := EMITY*TGAMY C21 := SIG21/SQRT(SIG11*SIG22) C43 := SIG43/SQRT(SIG33*SIG44) SIG0 : SIGMA0, SIGX=SQRT(SIG11), SIGPX=SQRT(SIG22), R21=C21, & SIGY=SQRT(SIG33), SIGPY=SQRT(SIG44), R43=C43, & SIGT=BLENG, SIGPT=ESPRD CGAMX := (1+TWSSC[ALFX]*TWSSC[ALFX])/TWSSC[BETX] CGAMY := (1+TWSSC[ALFY]*TWSSC[ALFY])/TWSSC[BETY] SIG11C := EMITX*TWSSC[BETX] SIG21C := -EMITX*TWSSC[ALFX] SIG22C := EMITX*CGAMX SIG33C := EMITY*TWSSC[BETY] SIG43C := -EMITY*TWSSC[ALFY] SIG44C := EMITY*CGAMY C21C := SIG21C/SQRT(SIG11C*SIG22C) C43C := SIG43C/SQRT(SIG33C*SIG44C) SIGC : SIGMA0, SIGX=SQRT(SIG11C), SIGPX=SQRT(SIG22C), R21=C21C, & SIGY=SQRT(SIG33C), SIGPY=SQRT(SIG44C), R43=C43C, & SIGT=BLENG, SIGPT=ESPRD BEAM, PARTICLE=ELECTRON, ENERGY=TWSSC[ENERGY], EX=EMITX, EY=EMITY, & SIGT=BLENG, SIGE=ESPRD ! conversion factors Cb : CONSTANT=1.0E10/CLIGHT !energy to magnetic rigidity GeV2MeV : CONSTANT=1000.0 !GeV to MeV in2m : CONSTANT=0.0254 !inches to meters mc2 : CONSTANT=510.99906E-6 !e- rest mass [GeV] ! Database MARKer points DBMARK80 : INST !(LCLS GUN) RF gun cathode DBMARK81 : INST !(BXG_entr) entrance of BXG DBMARK97 : INST !(GUNSPECT) 6 MeV gun spectrometer dump DBMARK82 : INST !(BX01entr) entrance of BX01 DBMARK98 : INST !(135SPECT) 135-MeV spect. dump DBMARK83 : INST !(BX02exit) exit of BX02 ... LCLS injection point DBMARK28 : INST !(QM15exit) exit of QM15 ... just after TD11 DBMARK29 : INST !(LI30 FV2) LI30 fast valve 2 ... start of BSY DBMARK14 : INST !(50B1BEND) entrance of 50B1 DBMARK99 : INST !(52-SL2 ) 52 SL2 DBMARK34 : INST !(BX31entr) entrance of BX31 DBMARK36 : INST !(WS31 ) center of WS31 DBMARK37 : INST !(endUNMCH) end of undulator match DBMARK38 : INST !(UND_DUMP) final undulator dump ! ============================================================================== ! Longitudinal misalignments observed after installation and difficult to fix: ! Added to MAD file (but not drawings) so that optics comes out right (1/11/07). ! ------------------------------------------------------------------------------ dz_QA11 := 3.42E-3 !quad is too far downstream when dz>0 dz_Q21201 :=-2.39E-3 !quad is too far downstream when dz>0 dz_Q21301 := 5.73E-3 !quad is too far downstream when dz>0 dz_QM14 := 2.17E-3 !quad is too far downstream when dz>0 dz_QM15 := 2.48E-3 !quad is too far downstream when dz>0 ! ============================================================================== ! QUADs ! ------------------------------------------------------------------------------ ! global QUAD parameters LQc := 0.1080 !eff. length of Everson-Tesla big-bore (ETB) quad [ETB: 2.5-kG GDLmax] (m) rQc := 0.0300 !pole-tip radius of Everson-Tesla big-bore (ETB) quad (m) LQE := 0.1068 !QE effective length (m) rQE := (1.085*in2m)/2 !QE pole-tip radius (m) LQx := 0.1080 !Everson-Tesla (ET) quads "1.259Q3.5" effective length (m) rQx := 0.01600 !Everson-Tesla (ET) quads "1.259Q3.5" pole-tip radius (m) LQF := 0.46092 !FFTB (0.91Q17.72) effective length (m) rQF := 0.023/2 !FFTB (0.91Q17.72) pole-tip radius (m) LQA := 0.31600 !Q150kG effective length [not known yet] (m) rQA := 0.016 !Q150kG pole-tip radius (m) LQD := 0.550 !FFTB dump quad (3.25Q20) effective length (m) rQD := (3.25*in2m)/2 !FFTB dump quad (3.25Q20) pole-tip radius (m) LQW := 0.248 !QW (wraparound quad) effective length (m) rQW := (4.625*in2m)/2 !QW (wraparound quad) pole-tip radius (m) dLQA2 := (0.46092 - LQA)/2 !used to adjust LQA adjacent drifts (m) ! global LCAV parameters SbandF := 2856.0 !rf frequency (MHz) XbandF := SbandF*4 !X-band rf frequency (MHz) DLWLX := 0.5948 !Xband structure length from input-coupler center to output-coupler center, each with tooling balls (m) DLWL10 := 3.0441 !"10 ft" (29 Sband wavelengths; 87 DLWG cavities) DLWL9 := 2.8692 !"9.41 ft" (27 1/3 Sband wavelengths; 82 DLWG cavities) DLWL7 := 2.1694 !"7 ft" (20 2/3 Sband wavelengths; 62 DLWG cavities) P25 := 1 !25% power factor P50 := SQRT(2) !50% power factor ! L0 energy profile (model the one 3-m L0b section only) L0phase := -1.1 !L0b S-band rf phase (deg) dEL0a := GeV2MeV*(E0i-E00) !total L0a energy gain (MeV) dEL0b := GeV2MeV*(Ei-E0i) !total L0b energy gain (MeV) PhiL0 := L0phase/360 !radians/2pi ! gfac0 := 3.130139 ! flange-to-flange length of dual-feed L0-a and L0-b RF structures [m] gfac0 := 3.095244 ! flange-to-flange length (121.86" Oct. 18, '05) of dual-feed L0-a and L0-b RF structures [m] gradL0a := dEL0a/(gfac0*COS(PhiL0*TWOPI)) gradL0b := dEL0b/(gfac0*COS(PhiL0*TWOPI)) ! L1 energy profile L1phase := -25.1 !L1 S-band rf phase (deg) L1Xphase :=-160.0 !L1 X-band rf phase (deg) dEL1 := GeV2MeV*(EBC1-Ei) !total L1 energy gain (MeV) dEL1X := 19.0 !L1 X-band amplitude (MeV) PhiL1 := L1phase/360 !radians/2pi PhiL1X := L1Xphase/360 !radians/2pi gfac1 := P50*DLWL9+P25*DLWL9+P25*DLWL10 gradL1 := (dEL1-dEL1X*COS(PhiL1X*TWOPI))/(gfac1*COS(PhiL1*TWOPI)) VALUE, gradL1 ! L2 energy profile L2phase := -41.4 !L2 rf phase (deg) dEL2 := GeV2MeV*(EBC2-EBC1) !total L2 energy gain (MeV) PhiL2 := L2phase/360 !radians/2pi gfac2 := 110*P25*DLWL10+1*P50*DLWL10 gradL2 := dEL2/(gfac2*COS(PhiL2*TWOPI)) VALUE, gradL2 ! L3 energy profile L3phase := 0.0 !L3 rf phase (deg) dEL3 := GeV2MeV*(Ef-EBC2) !total L3 energy gain (MeV) PhiL3 := L3phase/360 !radians/2pi gfac3 := 163*P25*DLWL10 + 9*P50*DLWL10 + 3*P25*DLWL9 + 4*P25*DLWL7 gradL3 := dEL3/(gfac3*COS(PhiL3*TWOPI)) VALUE, gradL3 L1X___1 : LCAV, TYPE="X1_Xband", FREQ=XbandF, L=DLWLX/2, & DELTAE=dEL1X/2 , PHI0=PhiL1X L1X___2 : LCAV, TYPE="X1_Xband", FREQ=XbandF, L=DLWLX/2, & DELTAE=dEL1X/2 , PHI0=PhiL1X ! L0 sections L0a___1 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.0586460, & DELTAE=gradL0a*0.0586460, PHI0=PhiL0 L0a___2 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.1993540, & DELTAE=gradL0a*0.1993540, PHI0=PhiL0 L0a___3 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.6493198, & DELTAE=gradL0a*0.6493198, PHI0=PhiL0 L0a___4 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.6403022, & DELTAE=gradL0a*0.6403022, PHI0=PhiL0 L0a___5 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=1.1518464, & DELTAE=gradL0a*1.1518464, PHI0=PhiL0 L0a___6 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.3348566, & DELTAE=gradL0a*0.3348566, PHI0=PhiL0 L0a___7 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.0609190, & DELTAE=gradL0a*0.0609190, PHI0=PhiL0 L0b___1 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.0586460, & DELTAE=gradL0b*0.0586460, PHI0=PhiL0 L0b___2 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.3371281, & DELTAE=gradL0b*0.3371281, PHI0=PhiL0 L0b___3 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=1.1518479, & DELTAE=gradL0b*1.1518479, PHI0=PhiL0 L0b___4 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=1.1515630, & DELTAE=gradL0b*1.1515630, PHI0=PhiL0 L0b___5 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.3351400, & DELTAE=gradL0b*0.3351400, PHI0=PhiL0 L0b___6 : LCAV, TYPE="DUALFEED", FREQ=SbandF, L=0.0609190, & DELTAE=gradL0b*0.0609190, PHI0=PhiL0 FLNGa1 : MARK ! upstream face of L0a entrance flange FLNGa2 : MARK ! downstream face of L0a exit flange FLNGb1 : MARK ! upstream face of L0b entrance flange FLNGb2 : MARK ! downstream face of L0b exit flange ! transverse deflecting cavities ! TCAV0 : DRIF, L=0.6680236/2 ! flange-to-flange (then split in two) ! TCAV3 : DRIF, L=2.438/2 TCAV0 : LCAV, TYPE="TRANS_DEFL", L=0.6680236/2 ! flange-to-flange (then split in two) TCAV3 : LCAV, TYPE="TRANS_DEFL", L=2.438/2 LKIK := 1.0601 ! kicker coil length per magnet (m) [41.737 in from SA-380-330-02, rev. 0] BXKIKA : SBEN, TYPE="XPULSED", L=LKIK/2, ANGLE=1E-12, HGAP=25.4E-3, & E1=0 , FINT=0.5, FINTX=0 BXKIKB : SBEN, TYPE="XPULSED", L=LKIK/2, ANGLE=1E-12, HGAP=25.4E-3, & FINT=0, E2=2E-12, FINTX=0.5 ! ============================================================================== ! BENDs ! ------------------------------------------------------------------------------ ! global BEND parameters LBh := 0.110 !5D3.9 "Z" length (m) laser-heater chicane bends approx. effective length (R. Carr, 01-AUG-05 -PE) GBh := 30E-3 !5D3.9 gap height (m) LB0 := 0.2032 !5D7.1 "Z" length (m) GB0 := 30E-3 !5D7.1 gap height (m) LB1 := 0.2032 !5D7.1 "Z" length (m) GB1 := 43.28E-3 !5D7.1 gap height (m) LB2 := 0.5490 !1D19.7 "Z" length (m) !changed from 0.540 m to 0.549 on Sep. 28, '07 based on magnetic measurements - PE GB2 := 33.35E-3 !1D19.7 gap height (m) LB3 := 2.623 !4D102.36T effective length (m) GB3 := 0.023 !4D102.36T gap height (m) LVB := 1.025 !3D39 vertical bend effective length (m) GVB := 0.034925 !vertical bend gap width (m) ! GTL ! === RBXG := 0.1963 ! BXG bend radius (measured) [m] ABXG := 85.0*RADDEG ! bend angle of BXG dipole [deg*RADDEG = rad] EBXG := 24.25*RADDEG ! BXG pole-face rot. edge angle of BXG dipole [deg*RADDEG = rad] GBXG := 0.043 ! BXG magnet full gap height (m) LBXG := RBXG*ABXG ! path length of BXG dipole when ON (= R*theta) [m] VALUE, LBXG BXGA : SBEN, L=LBXG/2, ANGLE=ABXG/2, & HGAP=GBXG/2, E1=EBXG, E2=0 , & FINT=0.492, FINTX=0 ! 1st-half of gun spectrometer bend (set to ~zero length and strength, with longitudinal position as the actual bend's center) BXGB : SBEN, L=LBXG/2, ANGLE=ABXG/2, & HGAP=GBXG/2, E1=0 , E2=EBXG, & FINT=0.0 , FINTX=0.492 ! 1st-half of gun spectrometer bend (set to ~zero length and strength, with longitudinal position as the actual bend's center) DXG0 : DRIF, L=RBXG*SIN(ABXG/2) ! drift, w/BXG off, from BXG entrance face to its z-projected center DXGA : SBEN, L=1E-9/2, ANGLE=0/2 ! 1st-half of gun-spec bend (set to ~zero length and strength, with longitudinal position as bend's center) DXGB : SBEN, L=1E-9/2, ANGLE=0/2 ! 2nd-half of gun-spec bend (set to ~zero length and strength, with longitudinal position as bend's center) DGS1 : DRIF, L=0.1900-LQGx/2-20E-6-0.0155757 DGS2 : DRIF, L=(0.2300-LQGx)/2+20E-6 DGS3 : DRIF, L=(0.2300-LQGx)/2-20E-6 DGS4 : DRIF, L= 0.1680-LQGx/2-0.00283 DGS5 : DRIF, L= 0.0300-0.02271 DGS6 : DRIF, L= 0.0240-0.00402 DGS7 : DRIF, L= 0.05 rQGx := 0.020 ! QG quadrupole pole-tip radius [m] LQGx := 0.076 ! QG quadrupole effective length [m] CQ01 : QUAD,L=1E-9/2,K1=0,TYPE="QSOL" !correction quad in 1st solenoid at gun (nominally set to 0) (set to ~zero length, with longitudinal position as the actual quad's center) SQ01 : QUAD,L=1E-9/2,K1=0,TYPE="QSOL" !correction skew-quad in 1st solenoid at gun (nominally set to 0) (set to ~zero length, with longitudinal position as the actual quad's center) QG02 : QUAD,L=LQGx/2,K1=-35.48540,APER=rQGx,TYPE="QG" QG03 : QUAD,L=LQGx/2,K1= 80.16051,APER=rQGx,TYPE="QG" XCG1 : HKIC,TYPE="class-G" XCG2 : HKIC,TYPE="class-G" YCG1 : VKIC,TYPE="class-G" YCG2 : VKIC,TYPE="class-G" SCG1 : LINE=(XCG1,YCG1) SCG2 : LINE=(XCG2,YCG2) BPMG1 : MONI, TYPE="25_um_res" CRG1 : INST ! Cerenkov radiator bunch length monitor YAGG1 : PROF, TYPE="YAG" ! 6-MeV spectrometer screen FCG1 : INST ! gun-spec. Faraday cup w/screen GSPECBEG: MARK GSPEC : LINE=(GSPECBEG,BXGA,BXGB,DGS1,QG02,SCG1,QG02, & DGS2,BPMG1,DGS3,QG03,SCG2,QG03,& DGS4,YAGG1,DGS5,CRG1,DGS6,FCG1,DGS7,DBMARK97) ! gun spectrometer from BXG to Farraday cup and dump ! 135-MeV Spectrometer ! ==================== KQS01 := 9.682244191676 KQS02 := -5.648980372134 QS01 : QUAD, TYPE="ETA", L=LQx/2, K1=KQS01, APER=rQx QS02 : QUAD, TYPE="ETA", L=LQx/2, K1=KQS02, APER=rQx DX01A : SBEN, L=LB0/2, ANGLE=1E-9 ! 1st half of BX01 magnet switched off here DX01B : SBEN, L=LB0/2, ANGLE=1E-9 ! 2nd half of BX01 magnet switched off here DS0 : DRIF, L=0.5583996 DS0a : DRIF, L=0.1691504 DS0b : DRIF, L=0.4615/2 DS1a : DRIF, L=0.0890085 DS1b : DRIF, L=0.1451215 DS1c : DRIF, L=0.171796 DS1d : DRIF, L=0.251824 DS2 : DRIF, L=0.478250 DS3a : DRIF, L=0.199626 DS3b : DRIF, L=0.200374 DS4 : DRIF, L=0.287275 DS6a : DRIF, L=0.2575952 DS6b : DRIF, L=0.2273298-0.008205 DS7 : DRIF, L=0.3801874+0.008205-0.02 DS8 : DRIF, L=0.1976126+0.02 DS9 : DRIF, L=0.3378194 SPECBEG : MARK BPMS1 : MONI, TYPE="20_um_res" BPMS2 : MONI, TYPE="20_um_res" BPMS3 : MONI, TYPE="20_um_res" VVS1 : INST !135-MeV spectrometer vacuul valve YAGS1 : PROF, TYPE="YAG" !1st 135-MeV spectrometer YAG-screen - center of device in MAD is defined as center of YAG crystal, not mirror YAGS2 : PROF, TYPE="YAG" !2nd 135-MeV spectrometer YAG-screen - center of device in MAD is defined as center of YAG crystal, not mirror OTRS1 : PROF, TYPE="OTR" !135-MeV spectrometer OTR-screen SDMP : INST ! gun-spec. dump (exact location? - 11/09/05) XCS1 : HKIC,TYPE="class-1a" YCS1 : VKIC,TYPE="class-1a" XCS2 : HKIC,TYPE="class-1a" YCS2 : VKIC,TYPE="class-1a" SCS1 : LINE=(XCS1,YCS1) SCS2 : LINE=(XCS2,YCS2) LBS := 0.5435 !measured effective length along curved trajectory (m) GBS := 34E-3 !gap height (m) ABS := injdeg*RADDEG !injection line angle (rad) BXSEj := -7.29*RADDEG BXSA : SBEN, L=LBS/2 , HGAP=GBS/2, ANGLE=ABS/2, & E1=BXSEj, E2=0 , FINT=0.391 , FINTX=0 BXSB : SBEN, L=LBS/2 , HGAP=GBS/2, ANGLE=ABS/2, & E1=0 , E2=BXSEj , FINT=0 , FINTX=0.391 SPECBL : LINE=(SPECBEG,DX01A,DX01B,DS0,SCS1,DS0a,DS0b,DS1a,& VVS1,DS1b,YAGS1,DS1c,BPMS1,DS1d,BXSA,BXSB,DS2,& QS01,BPMS2,QS01,DS3a,SCS2,DS3b,QS02,QS02,DS4,& IMS1,DS6a,BPMS3,DS6b,YAGS2,DS7,OTRS1,DS8,& DS9,SDMP,DBMARK98) ! DL1 ! === DL1_ON := 1 !=1: nominal LCLS with BX01/02 bend magnet DL1 power-supply is ON, =0: 135-MeV spectrometer-mode with DL1 OFF ADL1 := injdeg*RADDEG !injection line angle (rad) AB0 := ADL1/2 !full bend angle (rad) LeffB0 := LB0*AB0/(2*SIN(AB0/2)) !full bend path length (m) AEB0 := AB0/2 !edge angles BX01A : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E1=AEB0, FINT=0.45, FINTX=0 BX01B : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E2=AEB0, FINT=0, FINTX=0.45 BX02A : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E1=AEB0, FINT=0.45, FINTX=0 BX02B : SBEN, TYPE="5D7.1", L=LeffB0/2, HGAP=GB0/2, ANGLE=AB0/2, & E2=AEB0, FINT=0, FINTX=0.45 ! BC1 ! === Brho1 := Cb*EBC1 !beam rigidity at BC1 (kG-m) BB11 := -3.555805785115 !chicane-1 bend field (kG) - changed June 22, 2004 RB11 := Brho1/BB11 !chicane-1 bend radius (m) AB11 := ASIN(LB1/RB11) !full chicane bend angle (rad) AB11S := ASIN((LB1/2)/RB11) !"short" half chicane bend angle (rad) LB11S := RB11*AB11S !"short" half chicane bend path length (m) AB11L := AB11-AB11S !"long" half chicane bend angle (rad) LB11L := RB11*AB11L !"long" half chicane bend path length (m) ! BX11 gets an offset of 2.2 mm (theta*L/8) towards the wall ! BX12 gets an offset of 2.2 mm (theta*L/8) towards the aisle ! BX13 gets an offset of 2.2 mm (theta*L/8) towards the aisle ! BX14 gets an offset of 2.2 mm (theta*L/8) towards the wall BX11A : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=+AB11S, HGAP=GB1/2, & E1=0, FINT=0.387, FINTX=0 BX11B : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=+AB11L, HGAP=GB1/2, & FINT=0, E2=+AB11, FINTX=0.387 BX12A : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=-AB11L, HGAP=GB1/2, & E1=-AB11, FINT=0.387, FINTX=0 BX12B : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=-AB11S, HGAP=GB1/2, & FINT=0, E2=0, FINTX=0.387 BX13A : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=-AB11S, HGAP=GB1/2, & E1=0, FINT=0.387, FINTX=0 BX13B : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=-AB11L, HGAP=GB1/2, & FINT=0, E2=-AB11, FINTX=0.387 BX14A : SBEN, TYPE="5D7.1", L=LB11L, ANGLE=+AB11L, HGAP=GB1/2, & E1=+AB11, FINT=0.387, FINTX=0 BX14B : SBEN, TYPE="5D7.1", L=LB11S, ANGLE=+AB11S, HGAP=GB1/2, & FINT=0, E2=0, FINTX=0.387 ! magnet-to-magnet path lengths LD11 := 2.434900 !outer bend-to-bend "Z" distance (m) LD11o := LD11/COS(AB11) !outer bend-to-bend path length (m) (minus ~0.15 m 9/21/04) ! BC2 ! === Brho2 := Cb*EBC2 !beam rigidity at BC2 (kG-m) BB21 := -9.071122639275 !chicane bend field (kG) RB21 := Brho2/BB21 !chicane bend radius (m) AB21 := ASIN(LB2/RB21) !full chicane bend angle (rad) AB21S := ASIN((LB2/2)/RB21) !"short" half chicane bend angle (rad) LB21S := RB21*AB21S !"short" half chicane bend path length (m) AB21L := AB21-AB21S !"long" half chicane bend angle (rad) LB21L := RB21*AB21L !"long" half chicane bend path length (m) ! BX21 gets an offset of ~2.3 mm (theta*L/8) towards the wall ! BX22 gets an offset of ~2.3 mm (theta*L/8) towards the aisle ! BX23 gets an offset of ~2.3 mm (theta*L/8) towards the aisle ! BX24 gets an offset of ~2.3 mm (theta*L/8) towards the wall BX21A : SBEN, TYPE="1D19.7", L=LB21S, ANGLE=+AB21S, HGAP=GB2/2, & E1=0, FINT=0.633, FINTX=0 BX21B : SBEN, TYPE="1D19.7", L=LB21L, ANGLE=+AB21L, HGAP=GB2/2, & FINT=0, E2=+AB21, FINTX=0.633 BX22A : SBEN, TYPE="1D19.7", L=LB21L, ANGLE=-AB21L, HGAP=GB2/2, & E1=-AB21, FINT=0.633, FINTX=0 BX22B : SBEN, TYPE="1D19.7", L=LB21S, ANGLE=-AB21S, HGAP=GB2/2, & FINT=0, E2=0, FINTX=0.633 BX23A : SBEN, TYPE="1D19.7", L=LB21S, ANGLE=-AB21S, HGAP=GB2/2, & E1=0, FINT=0.633, FINTX=0 BX23B : SBEN, TYPE="1D19.7", L=LB21L, ANGLE=-AB21L, HGAP=GB2/2, & FINT=0, E2=-AB21, FINTX=0.633 BX24A : SBEN, TYPE="1D19.7", L=LB21L, ANGLE=+AB21L, HGAP=GB2/2, & E1=+AB21, FINT=0.633, FINTX=0 BX24B : SBEN, TYPE="1D19.7", L=LB21S, ANGLE=+AB21S, HGAP=GB2/2, & FINT=0, E2=0, FINTX=0.633 ! magnet-to-magnet path lengths LD21i := 1.0 - 2*0.1 !inner bend-to-bend "Z" distance (m) LD1 := 2.00-0.04-0.0045 !outer bend-to-bend "Z" distance (m) LD2 := 8.00-0.04-0.0508-0.0045 !outer bend-to-bend "Z" distance (m) LD3 := 8.00-0.04-0.0508-0.0045 !outer bend-to-bend "Z" distance (m) LD4 := 2.00-0.04-0.0045 !outer bend-to-bend "Z" distance (m) LDo1 := LD1/COS(AB21) !outer bend-to-bend path length (m) LDo2 := LD2/COS(AB21)-LQc !outer bend-to-bend path length (m) LDo3 := LD3/COS(AB21)-LQc !outer bend-to-bend path length (m) LDo4 := LD4/COS(AB21) !outer bend-to-bend path length (m) ! 52-line stuff B50B1A : SBEN,L=1.1320272,ANGLE=-0.86939816E-02,TYPE="50B1" B50B1B : SBEN,L=1.1320272,ANGLE=-0.86939816E-02,TYPE="50B1" B52AGFA : SBEN,L=0.40010029,ANGLE=-0.14360109E-02,& K1=0.43265282,TYPE="52AGF" B52AGFB : SBEN,L=0.40010029,ANGLE=-0.14360109E-02,& K1=0.43265282,TYPE="52AGF" B52WIG1 : SBEN,L=0.23367797,ANGLE=-0.23818663E-02,& TILT,TYPE="52WG1" B52WIG2 : SBEN,L=0.23368102,ANGLE=0.23818974E-02,& TILT,TYPE="52WG1" B52WIG3 : SBEN,L=0.23368102,ANGLE=0.23818974E-02,& TILT,TYPE="52WG1" B52WIG4 : SBEN,L=0.23367797,ANGLE=-0.23818663E-02,& TILT,TYPE="52WG1" Q52Q2 : QUAD,L=0.37224614/2,K1=0.38544745,TYPE="52Q2" XC69 : HKIC,TYPE="52A1X" YC54T : VKIC,TYPE="52WIGT" YC59 : VKIC,TYPE="52A1Y" BPM52 : MONI,TYPE="20_um_res" BPM56 : MONI,TYPE="20_um_res" BPM64 : MONI,TYPE="20_um_res" BPM68 : MONI,TYPE="20_um_res" IM61 : INST,TYPE="52I1" PR45 : INST,TYPE="50PR2" PR55 : INST,TYPE="52PR0" PR60 : INST,TYPE="52PR1" WS62 : INST,TYPE="52WS1" DRI14001: DRIF,L=0.7620000 DRI14002: DRIF,L=2.9725315 DRI14003: DRIF,L=0.91440000E-01 DRI14004: DRIF,L=0.2092970 DRI14005: DRIF,L=0.1737360 DRI14006: DRIF,L=0.1139068 DRI14007: DRIF,L=0.2255520 DRI14008: DRIF,L=0.1280160 DRI14009: DRIF,L=0.1219200 DRI14010: DRIF,L=0.1916339 T460061T: DRIF,L=0,TYPE="52I1" DRI14011: DRIF,L=0.1981200 DRI14012: DRIF,L=0.3230880 DRI14013: DRIF,L=0.4252539 SL1X : DRIF,L=0,TYPE="52SL1X" DRI14014: DRIF,L=0.7909590 SL1Y : DRIF,L=0,TYPE="52SL1Y" DRI14015: DRIF,L=1.0088270 DRI14016: DRIF,L=0.3139440 DRI14017: DRIF,L=2.2764689 SL2 : DRIF,L=0,TYPE="52SL2" ! Vertical bend system and DL2 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., incl. 30-m ext. VALUE, 2*AVB BY1A : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT BY1B : SBEN, TYPE="3D39", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & FINT=0, E2=AVB/2, FINTX=0.5, TILT BY2A : SBEN, TYPE="VB", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & E1=AVB/2, FINT=0.5, FINTX=0, TILT BY2B : SBEN, TYPE="VB", L=LVB/2, ANGLE=AVB/2, HGAP=GVB/2, & FINT=0, E2=AVB/2, FINTX=0.5, TILT AB3P := 0.5*RADDEG*(+1) AB3M := 0.5*RADDEG*(-1) LeffB3 := LB3*AB3P/(2*SIN(AB3P/2)) !full bend eff. path length (m) BX31A : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3P/2, HGAP=GB3/2, & E1=AB3P/2, E2=0 , FINT=0.5, FINTX=0.0 BX31B : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3P/2, HGAP=GB3/2, & E1=0 , E2=AB3P/2, FINT=0.0, FINTX=0.5 BX32A : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3P/2, HGAP=GB3/2, & E1=AB3P/2, E2=0 , FINT=0.5, FINTX=0.0 BX32B : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3P/2, HGAP=GB3/2, & E1=0 , E2=AB3P/2, FINT=0.0, FINTX=0.5 DX33A : DRIFT, L=LB3/2 !optional bend for branch point DX33B : DRIFT, L=LB3/2 DX34A : DRIFT, L=LB3/2 DX34B : DRIFT, L=LB3/2 BX35A : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3M/2, HGAP=GB3/2, & E1=AB3M/2, E2=0 , FINT=0.5, FINTX=0.0 BX35B : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3M/2, HGAP=GB3/2, & E1=0 , E2=AB3M/2, FINT=0.0, FINTX=0.5 BX36A : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3M/2, HGAP=GB3/2, & E1=AB3M/2, E2=0 , FINT=0.5, FINTX=0.0 BX36B : SBEN, TYPE="4D102.36T" , L=LeffB3/2 , ANGLE=AB3M/2, HGAP=GB3/2, & E1=0 , E2=AB3M/2, FINT=0.0, FINTX=0.5 DX37A : DRIFT, L=LB3/2 !optional bend for branch point DX37B : DRIFT, L=LB3/2 DX38A : DRIFT, L=LB3/2 DX38B : DRIFT, L=LB3/2 ! Single beam dumper vertical kicker: ! ---------------------------------- BYKIK1A : SBEN, TYPE="YPULSED", L=LKIK/2, ANGLE=1E-12/2, HGAP=25.4E-3, & FINT=0.5, FINTX=0 , TILT BYKIK1B : SBEN, TYPE="YPULSED", L=LKIK/2, ANGLE=1E-12/2, HGAP=25.4E-3, & FINT=0 , FINTX=0.5, TILT BYKIK2A : SBEN, TYPE="YPULSED", L=LKIK/2, ANGLE=1E-12/2, HGAP=25.4E-3, & FINT=0.5, FINTX=0 , TILT BYKIK2B : SBEN, TYPE="YPULSED", L=LKIK/2, ANGLE=1E-12/2, HGAP=25.4E-3, & FINT=0 , FINTX=0.5, TILT TDKIK : INST !SBD vertical off-axis kicker dump SPOILER : INST !SBD dump spoiler ! X-ray stripe 'wiggler' vertical 3-dipole chicane (from SLC BSY) LBxw := 0.233681 !"Z" length (m) ! GBxw := 1.05*in2m !gap height - SLC wiggler gap not known yet - used 1.05 inches for now - 7/6/05 -PE (m) Brhox := Cb*Ef !beam rigidity in LTU (kG-m) BBxw := -6.0 !X-ray chicane bend field (kG) - (eta matching in DL2 not fixed yet: small error - PE) RBxw := Brhox/BBxw !X-ray chicane bend radius (m) ABxw := ASIN(LBxw/RBxw) !full X-ray chicane bend angle (rad) ! ABxwS := ASIN((LBxw/2)/RBxw) !"short" half X-ray chicane bend angle (rad) ! LBxwS := RBxw*ABxwS !"short" half X-ray chicane bend path length (m) ! ABxwL := ABxw-ABxwS !"long" half X-ray chicane bend angle (rad) ! LBxwL := RBxw*ABxwL !"long" half X-ray chicane bend path length (m) ! ! BYw1A : SBEN, TYPE="5D7.1", L=LBxwS, ANGLE=+ABxwS, HGAP=GBxw/2, & ! E1=0, FINT=0.5, FINTX=0, TILT ! BYw1B : SBEN, TYPE="5D7.1", L=LBxwL, ANGLE=+ABxwL, HGAP=GBxw/2, & ! FINT=0, E2=+ABxw, FINTX=0.5, TILT ! BYw2A : SBEN, TYPE="5D7.1", L=LBxwL+LBxwS, ANGLE=-ABxw, HGAP=GBxw/2, & ! E1=-ABxw, FINT=0.5, FINTX=0, TILT ! BYw2B : SBEN, TYPE="5D7.1", L=LBxwS+LBxwL, ANGLE=-ABxw, HGAP=GBxw/2, & ! FINT=0, E2=-ABxw, FINTX=0.5, TILT ! BYw3A : SBEN, TYPE="5D7.1", L=LBxwL, ANGLE=+ABxwL, HGAP=GBxw/2, & ! E1=+ABxw, FINT=0.5, FINTX=0, TILT ! BYw3B : SBEN, TYPE="5D7.1", L=LBxwS, ANGLE=+ABxwS, HGAP=GBxw/2, & ! FINT=0, E2=0, FINTX=0.5, TILT DBYw1A: DRIF, L=LBxw/2 DBYw1B: DRIF, L=LBxw/2 DBYw2A: DRIF, L=LBxw DBYw2B: DRIF, L=LBxw DBYw3A: DRIF, L=LBxw/2 DBYw3B: DRIF, L=LBxw/2 LDw1o := 0.173736 SDw1o := LDw1o/COS(ABxw) Dw1o : DRIF, L=SDw1o, TYPE="CSR" ! Dump: ! ---- LBdm := 1.452 !effective vertical bend length of main dump bends - from J. Tanabe (m) GBdm := 0.043 !full gap (m) - this is a full gap 'width' for these vert. dipoles ABdm0 := (5.0*RADDEG)/3 LBpm := 0.944 !effective length of permanent magnet FFTB dump bends (m) Bpm0 := 4.3 !permanent magnetic field at full gap = 3.81 cm GBpm0 := 0.0381 !gap height as exists in FFTB in 2005 (m) Bpm := Bpm0*GBpm0/0.0520 !permanent magnetic field after opening gaps ABpm := LBpm*Bpm/Brhox LeffBdm := LBdm*ABdm0/(2*SIN(ABdm0/2)) !full bend path length (m) BYD1A : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm0/2, HGAP=GBdm/2, & E1=ABdm0/2, E2=0, FINT=0.5, FINTX=0.0, TILT BYD1B : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm0/2, HGAP=GBdm/2, & E1=0, E2=ABdm0/2, FINT=0.0, FINTX=0.5, TILT BYD2A : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm0/2, HGAP=GBdm/2, & E1=ABdm0/2, E2=0, FINT=0.5, FINTX=0.0, TILT BYD2B : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm0/2, HGAP=GBdm/2, & E1=0, E2=ABdm0/2, FINT=0.0, FINTX=0.5, TILT BYD3A : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm0/2, HGAP=GBdm/2, & E1=ABdm0/2, E2=0, FINT=0.5, FINTX=0.0, TILT BYD3B : SBEN, TYPE="1.69VD55.1", L=LeffBdm/2, ANGLE=ABdm0/2, HGAP=GBdm/2, & E1=0, E2=ABdm0/2 , FINT=0.0, FINTX=0.5, TILT BXPM1A : SBEN, TYPE="4D36-C" , L=LBpm/2, ANGLE=ABpm/2, HGAP=GBpm/2, & E1=0 , E2=0 , FINT=0.5, FINTX=0.0 BXPM1B : SBEN, TYPE="4D36-C" , L=LBpm/2, ANGLE=ABpm/2, HGAP=GBpm/2, & E1=0 , E2=1*ABpm, FINT=0.0, FINTX=0.5 BXPM2A : SBEN, TYPE="4D36-C" , L=LBpm/2, ANGLE=ABpm/2, HGAP=GBpm/2, & E1=1*ABpm, E2=0 , FINT=0.5, FINTX=0.0 BXPM2B : SBEN, TYPE="4D36-C" , L=LBpm/2, ANGLE=ABpm/2, HGAP=GBpm/2, & E1=0 , E2=2*ABpm, FINT=0.0, FINTX=0.5 BXPM3A : SBEN, TYPE="4D36-C" , L=LBpm/2, ANGLE=ABpm/2, HGAP=GBpm/2, & E1=2*ABpm, E2=0 , FINT=0.5, FINTX=0.0 BXPM3B : SBEN, TYPE="4D36-C" , L=LBpm/2, ANGLE=ABpm/2, HGAP=GBpm/2, & E1=0 , E2=3*ABpm, FINT=0.0, FINTX=0.5 ! Laser-Heater: dlhs : = 0 ! add to this to get bigger BXH1-2 & BXH3-4 spacing Dh00 : DRIF, L=0.22286245-LQx/2-dlhs Dh01 : DRIF, L=(0.155+dlhs)/COS(ABh1), TYPE="CSR" Dh02 : DRIF, L=0.07843425, TYPE="CSR" Dh03 : DRIF, L=0.07843425, TYPE="CSR" Dh03a : DRIF, L=0.024587+0.053768-0.008205, TYPE="CSR" Dh03b : DRIF, L=0.053847-0.0537677+0.008205, TYPE="CSR" Dh06 : DRIF, L=0.1065825-dlhs-0.0590118+0.073588, TYPE="CSR" HTRUND : INST ! DL1 KQA01 := -7.474220813631 ! no lsr-htr (for commissioning in Dec. '06 through July '07) KQA02 := 8.137641193725 KQE01 := -2.215639104385 KQE02 := -0.241173314721 KQE03 := 7.613440306134 KQE04 := -6.985386854286 ! KQA01 := -10.9 ! approx. with lsr-htr and "MATRIX" focusing (for commissioning in Nov. '07 and beyond) ! KQA02 := 9.3 ! KQE01 := 0.3 ! KQE02 := 0.1 ! KQE03 := -5.0 ! KQE04 := 5.2 KQM01 := 15.071936750828 KQM02 := -11.974561706197 KQM03 := -8.255421656406 KQM04 := 13.306078466671 KQB := 22.169701529353 QA01 : QUAD, TYPE="ETA", L=LQx/2, K1=KQA01, APER=rQx QA02 : QUAD, TYPE="ETA", L=LQx/2, K1=KQA02, APER=rQx QE01 : QUAD, TYPE="ETA", L=LQx/2, K1=KQE01, APER=rQx QE02 : QUAD, TYPE="ETA", L=LQx/2, K1=KQE02, APER=rQx QE03 : QUAD, TYPE="ETA", L=LQx/2, K1=KQE03, APER=rQx QE04 : QUAD, TYPE="ETA", L=LQx/2, K1=KQE04, APER=rQx QM01 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM01, APER=rQx QM02 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM02, APER=rQx QB : QUAD, TYPE="QE", L=LQE/2, K1=KQB , APER=rQE QM03 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM03, APER=rQx QM04 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM04, APER=rQx ! L1 KQL1 := 3.789198342593 QFL1 : QUAD, TYPE="QE", L=LQE/2, K1=+KQL1, APER=rQE QDL1 : QUAD, TYPE="QE", L=LQE/2, K1=-KQL1, APER=rQE KQA11 := -KQL1 KQA12 := 1.863986274651 QA11 : QUAD, TYPE="ETA", L=LQx/2, K1=KQA11, APER=rQx QA12 : QUAD, TYPE="ETA", L=LQx/2, K1=KQA12, APER=rQx ! BC1 KQ21201 := -9.35770297349 KQM11 := 7.960322855632 KQM12 := -8.36675537066 KQM13 := 9.860434579823 KCQ11 := 1E-12 KCQ12 := 1E-12 KQ21301 := -0.1347 ! turn this quad OFF for LCLS operations (this is meas'd remnant field of Gdl = 0.12 kG) KQM14 := 7.079239169293 KQM15 := -6.765038435385 Q21201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21201,APER=rQE ! (QE-072 after Aug 2006) gets moved downstream of pre-LCLS location by 1.101312 m (measured parallel to main linac axis) QM11 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM11, APER=rQx CQ11 : QUAD, TYPE="ETB", L=LQc/2, K1=KCQ11, APER=rQc ! now ETB tweaker quad CQ12 : QUAD, TYPE="ETB", L=LQc/2, K1=KCQ12, APER=rQc ! now ETB tweaker quad QM12 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM12, APER=rQx QM13 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM13, APER=rQx Q21301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21301,APER=rQE ! (QE-004 after Aug 2006) gets moved downstream of pre-LCLS location by 1.247066 m (measured parallel to main linac axis), and turned off for LCLS QM14 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM14, APER=rQx QM15 : QUAD, TYPE="ETA", L=LQx/2, K1=KQM15, APER=rQx ! L2 KQL2 := 0.708388522907 QFL2 : QUAD, TYPE="QE", L=LQE/2, K1=+KQL2, APER=rQE QDL2 : QUAD, TYPE="QE", L=LQE/2, K1=-KQL2, APER=rQE KQ21401 := 1.044881943081 ! (QE-002 after Aug 2006) KQ21501 := -0.833170329125 ! (use pre-Aug-2006 Q21201 magnet) KQ21601 := KQL2 ! (use pre-Aug-2006 Q21301 magnet) KQ21701 := -KQL2 KQ21801 := 0.721703961622 KQ21901 := -0.721930035688 KQ22201 := 0.711368406706 KQ22301 := -0.764179973154 KQ22401 := KQL2 KQ22501 := -KQL2 KQ22601 := KQL2 KQ22701 := -KQL2 KQ22801 := 0.748596129657 KQ22901 := -0.709657173604 KQ23201 := 0.721241098608 KQ23301 := -0.741011348313 KQ23401 := KQL2 KQ23501 := -KQL2 KQ23601 := KQL2 KQ23701 := -KQL2 KQ23801 := 0.770675623153 KQ23901 := -0.726878264576 KQ24201 := 0.779404953697 KQ24301 := -0.856812505218 KQ24401 := 1.025618689057 KQ24501 := -0.931675081162 KQ24601 := 0.603160584173 Q21401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21401, APER=rQE Q21501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21501, APER=rQE Q21601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21601, APER=rQE Q21701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21701, APER=rQE Q21801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21801, APER=rQE Q21901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ21901, APER=rQE Q22201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22201, APER=rQE Q22301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22301, APER=rQE Q22401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22401, APER=rQE Q22501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22501, APER=rQE Q22601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22601, APER=rQE Q22701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22701, APER=rQE Q22801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22801, APER=rQE Q22901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ22901, APER=rQE Q23201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23201, APER=rQE Q23301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23301, APER=rQE Q23401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23401, APER=rQE Q23501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23501, APER=rQE Q23601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23601, APER=rQE Q23701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23701, APER=rQE Q23801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23801, APER=rQE Q23901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ23901, APER=rQE Q24201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24201, APER=rQE Q24301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24301, APER=rQE Q24401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24401, APER=rQE Q24501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24501, APER=rQE Q24601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ24601, APER=rQE ! BC2 KQ24701 := -1.286030138047 KQM21 := 0.508115309359 KCQ21 := 1E-12 KCQ22 := 1E-12 KQM22 := -0.601085183522 KQ24901 := 1.110175642843 Q24701A: QUAD, TYPE="QE" , L=LQE/2, K1=KQ24701, APER=rQE ! in same location as pre-LCLS (with its BPM) Q24701B: QUAD, TYPE="QE" , L=LQE/2, K1=KQ24701, APER=rQE ! 10 cm between Q24701A & B QM21 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM21, APER=rQF CQ21 : QUAD, TYPE="ETB" , L=LQc/2, K1=KCQ21, APER=rQc CQ22 : QUAD, TYPE="ETB" , L=LQc/2, K1=KCQ22, APER=rQc QM22 : QUAD, TYPE="0.91Q17.72", L=LQF/2, K1=KQM22, APER=rQF Q24901A: QUAD, TYPE="QE" , L=LQE/2, K1=KQ24901, APER=rQE ! moved 2.397400 m downstream of original Q24901 position Q24901B: QUAD, TYPE="QE" , L=LQE/2, K1=KQ24901, APER=rQE ! 10 cm between Q24901A & B (BPM in this 2nd quad) ! L3 KQFL3 := 0.446670469684 KQDL3 := -0.424793498653 QFL3 : QUAD, TYPE="QE", L=LQE/2, K1=KQFL3, APER=rQE QDL3 : QUAD, TYPE="QE", L=LQE/2, K1=KQDL3, APER=rQE KQ25201 := 0.721412649949 KQ25301 := -0.487146800811 KQ25401 := 0.449534549258 KQ25501 := -0.424861330743 KQ25601 := KQFL3 KQ25701 := KQDL3 KQ25801 := 0.46097682607 KQ25901 := -0.417462122387 KQ26201 := 0.442112233775 KQ26301 := -0.435635154441 KQ26401 := KQFL3 KQ26501 := KQDL3 KQ26601 := KQFL3 KQ26701 := KQDL3 KQ26801 := 0.461214457545 KQ26901 := -0.417980621564 KQ27201 := 0.442549124973 KQ27301 := -0.435875880414 KQ27401 := KQFL3 KQ27501 := KQDL3 KQ27601 := KQFL3 KQ27701 := KQDL3 KQ27801 := 0.461364382546 KQ27901 := -0.418230858643 KQ28201 := 0.442649576438 KQ28301 := -0.435839785819 KQ28401 := KQFL3 KQ28501 := KQDL3 KQ28601 := KQFL3 KQ28701 := KQDL3 KQ28801 := 0.461442328578 KQ28901 := -0.418365246599 KQ29201 := 0.442707683785 KQ29301 := -0.435829313651 KQ29401 := KQFL3 KQ29501 := KQDL3 KQ29601 := KQFL3 KQ29701 := KQDL3 KQ29801 := 0.461798760854 KQ29901 := -0.418609412374 KQ30201 := 0.442893491241 KQ30301 := -0.435649248754 KQ30401 := KQFL3 KQ30501 := KQDL3 KQ30601 := KQFL3 KQ30615 := 0 KQ30701 := KQDL3 KQ30715 := 0 KQ30801 := 0.418743774352 Q25201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25201, APER=rQE Q25301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25301, APER=rQE Q25401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25401, APER=rQE Q25501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25501, APER=rQE Q25601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25601, APER=rQE Q25701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25701, APER=rQE Q25801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25801, APER=rQE Q25901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ25901, APER=rQE Q26201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26201, APER=rQE Q26301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26301, APER=rQE Q26401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26401, APER=rQE Q26501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26501, APER=rQE Q26601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26601, APER=rQE Q26701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26701, APER=rQE Q26801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26801, APER=rQE Q26901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ26901, APER=rQE Q27201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27201, APER=rQE Q27301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27301, APER=rQE Q27401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27401, APER=rQE Q27501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27501, APER=rQE Q27601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27601, APER=rQE Q27701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27701, APER=rQE Q27801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27801, APER=rQE Q27901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ27901, APER=rQE Q28201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28201, APER=rQE Q28301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28301, APER=rQE Q28401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28401, APER=rQE Q28501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28501, APER=rQE Q28601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28601, APER=rQE Q28701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28701, APER=rQE Q28801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28801, APER=rQE Q28901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ28901, APER=rQE Q29201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29201, APER=rQE Q29301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29301, APER=rQE Q29401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29401, APER=rQE Q29501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29501, APER=rQE Q29601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29601, APER=rQE Q29701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29701, APER=rQE Q29801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29801, APER=rQE Q29901 : QUAD, TYPE="QE", L=LQE/2, K1=KQ29901, APER=rQE Q30201 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30201, APER=rQE Q30301 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30301, APER=rQE Q30401 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30401, APER=rQE Q30501 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30501, APER=rQE Q30601 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30601, APER=rQE Q30615A: QUAD, TYPE="QW", L=LQW/2, K1=KQ30615, APER=rQW Q30615B: QUAD, TYPE="QW", L=LQW/2, K1=KQ30615, APER=rQW Q30615C: QUAD, TYPE="QW", L=LQW/2, K1=KQ30615, APER=rQW Q30701 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30701, APER=rQE Q30715A: QUAD, TYPE="QW", L=LQW/2, K1=KQ30715, APER=rQW Q30715B: QUAD, TYPE="QW", L=LQW/2, K1=KQ30715, APER=rQW Q30715C: QUAD, TYPE="QW", L=LQW/2, K1=KQ30715, APER=rQW Q30801 : QUAD, TYPE="QE", L=LQE/2, K1=KQ30801, APER=rQE ! BSY K50Q := 0.281785509238 KQ50Q1 := -K50Q KQ50Q2 := K50Q KQ50Q3 := -K50Q KQSM1 := 0 KQ5 := -0.218608767879 KQ6 := 0.249972560404 KQA0 := -0.131944681602 Q50Q1 : QUAD, TYPE="50Q1", L=0.093671, K1=KQ50Q1, APER=0.010325 Q50Q2 : QUAD, TYPE="50Q2", L=0.162151, K1=KQ50Q2, APER=0.010325 Q50Q3 : QUAD, TYPE="50Q3", L=0.143254, K1=KQ50Q3, APER=0.010325 QSM1 : QUAD, TYPE="FFTBQSM", L=0.101, K1=KQSM1, APER=0.0115, TILT 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 ! LTU vertical bend system quads: ! ------------------------------ KQVM1 := -0.773309361716 KQVM2 := 0.605530263944 KQVM3 := 0.676383397425 KQVM4 := -0.665611044091 KQVB := -0.42223036711 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 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 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 ! LTU dog-leg bend system quads: ! ------------------------------ KQDL := 0.44267670105 KQT1 :=-0.420937827343 KQT2 := 0.839614778043 KQEM1 :=-0.3948193191 KQEM2 := 0.437029374266 KQEM3 :=-0.601204901993 KQEM4 := 0.425609607536 !!KQEM1 := 0.431097808253 ! set KQED2=0 and match QEM1-4 for slice-y-emit on OTR33: BETX,Y=20.6 m, ALFX,Y=0 (20.6=12*DE3[L]/5) !!KQEM2 :=-0.42129785881 !!KQEM3 := 0.401248291299*1.00 ! use to quad scan slice-y-emit on OTR33 (+-3%) !!KQEM4 :=-0.398821094598 KQUM1 := 0.438152708498 !for =30 m undulator KQUM2 :=-0.387122017170 !for =30 m undulator KQUM3 := 0.092751923581 !for =30 m undulator KQUM4 := 0.340037095214 !for =30 m undulator KQED2 := 0.402753198232*1 !ED2 FODO quad strength (set =0 for slice-emit on OTR33) QDL31 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQDL, APER=rQA QDL32 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQDL, APER=rQA QDL33 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQDL, APER=rQA QDL34 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQDL, APER=rQA 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 QE31 : QUAD, TYPE="ETA", L=LQx/2, K1=+KQED2, APER=rQx QE32 : QUAD, TYPE="ETA", L=LQx/2, K1=-KQED2, APER=rQx QE33 : QUAD, TYPE="ETA", L=LQx/2, K1=+KQED2, APER=rQx QE34 : QUAD, TYPE="ETA", L=LQx/2, K1=-KQED2, APER=rQx QE35 : QUAD, TYPE="ETA", L=LQx/2, K1=+KQED2, APER=rQx QE36 : QUAD, TYPE="ETA", L=LQx/2, K1=-KQED2, APER=rQx QEM1 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQEM1, APER=rQA QEM2 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQEM2, APER=rQA QEM3 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQEM3, APER=rQA QEM3V : QUAD, TYPE="ETA", L=LQx/2, K1=0, APER=rQx QEM4 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQEM4, APER=rQA QUM1 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQUM1, APER=rQA QUM2 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQUM2, APER=rQA QUM3 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQUM3, APER=rQA QUM4 : QUAD, TYPE="Q150kG", L=LQA/2, K1=KQUM4, APER=rQA ! LTU stuff: ! --------- LPCTDKIK:= 0.8128 ! length of each if 4 muon protection collimator after TDKIK (0.875" ID w/pipe) PCTDKIK1: ECOL,L=LPCTDKIK,XSIZE=11.1125E-3,YSIZE=11.1125E-3 ! muon collimator after SBD TDKIK in-line dump PCTDKIK2: ECOL,L=LPCTDKIK,XSIZE=11.1125E-3,YSIZE=11.1125E-3 ! muon collimator after SBD TDKIK in-line dump PCTDKIK3: ECOL,L=LPCTDKIK,XSIZE=11.1125E-3,YSIZE=11.1125E-3 ! muon collimator after SBD TDKIK in-line dump PCTDKIK4: ECOL,L=LPCTDKIK,XSIZE=11.1125E-3,YSIZE=11.1125E-3 ! muon collimator after SBD TDKIK in-line dump DTDUND1 : DRIFT, L=0.5+0.127+1.087896-0.003189 ! drift before pre-undulator tune-up dump DTDUND2 : DRIFT, L=0.37935 ! drift after pre-undulator tune-up dump PCMUON : ECOL,L=1.1684,XSIZE=4E-03,YSIZE=2.5E-03 ! muon scattering collimator after pre-undulator tune-up dump DVV35 : DRIFT, L=1.780-0.254-1.087896+0.003189 ! drift after pre-undulator vacuum valve PVALVE : INST ! new vacuum valve just upbeam of undulator VV36 : INST ! treaty-point vacuum valve just downbeam of undulator VV37 : INST ! vac. valve in dumpline VV38 : INST ! vac. valve in safety-dump line ! Undulator: ! --------- gamf := Ef/mc2 ! Lorentz energy factor in undulator [ ] Kund := 3.500; ! Undulator parameter (rms) [ ] lamu := 0.030; ! Undulator period [m] GQF := 38.461538; ! Undulator F-quad gradient [T/m] (3 T integrated gradient) GQD := -38.461538; ! Undulator D-quad gradient [T/m] (3 T integrated gradient) LQu := 0.078; ! Undulator quadrupole effective length [m] Lseg := 3.400; ! Undulator segment length [m] Lue := 0.035 ! Undulator termination length (approx) [m] Lund := Lseg - 2*Lue; ! Undulator segment length without terminations [m] Lundh := Lund/2 shrt := 0.470; ! Standard short break length [m] long := 0.898; ! Standard long break length [m] LRFBu := 0 ! undulator RF-BPM only implemented as zero length monitor Lbr1 := 6.96E-2 ! und-seg to quad [m] Lbr3 := 9.117E-2 ! quad to BPM [m] Lbr4 := 5.8577E-2 ! Radiation monitor to segment [m] Lbrwm := 3.6881E-2 ! BFW to radiation monitor [m] Lbrs := shrt-LRFBu-LQu-Lbr1-Lbr3-Lbr4-Lbrwm; ! Standard short break length (BPM-to-quad distance) [m] LBUVV2 := 0.2 ! drift length after inline vaccum valve LBUVV1 := Lbrl - LBUVV2 ! drift length before inline vaccum valve Lbrl := long-LRFBu-LQu-Lbr1-Lbr3-Lbr4-Lbrwm; ! Standard long break length (BPM-to-quad distance) [m] kqund := (Kund*2*pi/lamu/sqrt(2)/gamf)^2 ! natural undulator focusing "k" in y-plane [m^-2] kQF := 1E-9*GQF*clight/Ef; ! QF undulator quadrupole focusing "k" [m^-2] kQD := 1E-9*GQD*clight/Ef; ! QD undulator quadrupole focusing "k" [m^-2] VALUE, Lundh,Lbrs,Lbrl,kqund,gamf,kQF,kQD QU01 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad (even numbers are QF's, odd are QD's) QU02 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU03 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU04 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU05 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU06 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU07 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU08 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU09 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU10 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU11 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU12 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU13 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU14 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU15 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU16 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU17 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU18 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU19 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU20 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU21 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU22 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU23 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU24 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU25 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU26 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU27 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU28 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU29 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU30 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU31 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad QU32 : QUAD, TYPE="QUND", L=LQu/2, K1=kQF ! undulator quad QU33 : QUAD, TYPE="QUND", L=LQu/2, K1=kQD ! undulator quad RFBU00 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU01 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU02 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU03 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU04 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU05 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU06 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU07 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU08 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU09 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU10 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU11 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU12 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU13 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU14 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU15 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU16 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU17 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU18 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU19 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU20 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU21 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU22 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU23 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU24 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU25 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU26 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU27 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU28 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU29 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU30 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU31 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU32 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs RFBU33 : MONI, L=LRFBu, TYPE="01_um_res" ! undulator BPMs BFW00 : INST ! Beam Finder Wire BFW01 : INST ! Beam Finder Wire BFW02 : INST ! Beam Finder Wire BFW03 : INST ! Beam Finder Wire BFW04 : INST ! Beam Finder Wire BFW05 : INST ! Beam Finder Wire BFW06 : INST ! Beam Finder Wire BFW07 : INST ! Beam Finder Wire BFW08 : INST ! Beam Finder Wire BFW09 : INST ! Beam Finder Wire BFW10 : INST ! Beam Finder Wire BFW11 : INST ! Beam Finder Wire BFW12 : INST ! Beam Finder Wire BFW13 : INST ! Beam Finder Wire BFW14 : INST ! Beam Finder Wire BFW15 : INST ! Beam Finder Wire BFW16 : INST ! Beam Finder Wire BFW17 : INST ! Beam Finder Wire BFW18 : INST ! Beam Finder Wire BFW19 : INST ! Beam Finder Wire BFW20 : INST ! Beam Finder Wire BFW21 : INST ! Beam Finder Wire BFW22 : INST ! Beam Finder Wire BFW23 : INST ! Beam Finder Wire BFW24 : INST ! Beam Finder Wire BFW25 : INST ! Beam Finder Wire BFW26 : INST ! Beam Finder Wire BFW27 : INST ! Beam Finder Wire BFW28 : INST ! Beam Finder Wire BFW29 : INST ! Beam Finder Wire BFW30 : INST ! Beam Finder Wire BFW31 : INST ! Beam Finder Wire BFW32 : INST ! Beam Finder Wire BFW33 : INST ! Beam Finder Wire RDM00 : INST ! Radiation Monitor (Cerenkov Detector) RDM01 : INST ! Radiation Monitor (Cerenkov Detector) RDM02 : INST ! Radiation Monitor (Cerenkov Detector) RDM03 : INST ! Radiation Monitor (Cerenkov Detector) RDM04 : INST ! Radiation Monitor (Cerenkov Detector) RDM05 : INST ! Radiation Monitor (Cerenkov Detector) RDM06 : INST ! Radiation Monitor (Cerenkov Detector) RDM07 : INST ! Radiation Monitor (Cerenkov Detector) RDM08 : INST ! Radiation Monitor (Cerenkov Detector) RDM09 : INST ! Radiation Monitor (Cerenkov Detector) RDM10 : INST ! Radiation Monitor (Cerenkov Detector) RDM11 : INST ! Radiation Monitor (Cerenkov Detector) RDM12 : INST ! Radiation Monitor (Cerenkov Detector) RDM13 : INST ! Radiation Monitor (Cerenkov Detector) RDM14 : INST ! Radiation Monitor (Cerenkov Detector) RDM15 : INST ! Radiation Monitor (Cerenkov Detector) RDM16 : INST ! Radiation Monitor (Cerenkov Detector) RDM17 : INST ! Radiation Monitor (Cerenkov Detector) RDM18 : INST ! Radiation Monitor (Cerenkov Detector) RDM19 : INST ! Radiation Monitor (Cerenkov Detector) RDM20 : INST ! Radiation Monitor (Cerenkov Detector) RDM21 : INST ! Radiation Monitor (Cerenkov Detector) RDM22 : INST ! Radiation Monitor (Cerenkov Detector) RDM23 : INST ! Radiation Monitor (Cerenkov Detector) RDM24 : INST ! Radiation Monitor (Cerenkov Detector) RDM25 : INST ! Radiation Monitor (Cerenkov Detector) RDM26 : INST ! Radiation Monitor (Cerenkov Detector) RDM27 : INST ! Radiation Monitor (Cerenkov Detector) RDM28 : INST ! Radiation Monitor (Cerenkov Detector) RDM29 : INST ! Radiation Monitor (Cerenkov Detector) RDM30 : INST ! Radiation Monitor (Cerenkov Detector) RDM31 : INST ! Radiation Monitor (Cerenkov Detector) RDM32 : INST ! Radiation Monitor (Cerenkov Detector) RDM33 : INST ! Radiation Monitor (Cerenkov Detector) XCU01 : HKICK ! undulator X-steering coil in quad XCU02 : HKICK ! undulator X-steering coil in quad XCU03 : HKICK ! undulator X-steering coil in quad XCU04 : HKICK ! undulator X-steering coil in quad XCU05 : HKICK ! undulator X-steering coil in quad XCU06 : HKICK ! undulator X-steering coil in quad XCU07 : HKICK ! undulator X-steering coil in quad XCU08 : HKICK ! undulator X-steering coil in quad XCU09 : HKICK ! undulator X-steering coil in quad XCU10 : HKICK ! undulator X-steering coil in quad XCU11 : HKICK ! undulator X-steering coil in quad XCU12 : HKICK ! undulator X-steering coil in quad XCU13 : HKICK ! undulator X-steering coil in quad XCU14 : HKICK ! undulator X-steering coil in quad XCU15 : HKICK ! undulator X-steering coil in quad XCU16 : HKICK ! undulator X-steering coil in quad XCU17 : HKICK ! undulator X-steering coil in quad XCU18 : HKICK ! undulator X-steering coil in quad XCU19 : HKICK ! undulator X-steering coil in quad XCU20 : HKICK ! undulator X-steering coil in quad XCU21 : HKICK ! undulator X-steering coil in quad XCU22 : HKICK ! undulator X-steering coil in quad XCU23 : HKICK ! undulator X-steering coil in quad XCU24 : HKICK ! undulator X-steering coil in quad XCU25 : HKICK ! undulator X-steering coil in quad XCU26 : HKICK ! undulator X-steering coil in quad XCU27 : HKICK ! undulator X-steering coil in quad XCU28 : HKICK ! undulator X-steering coil in quad XCU29 : HKICK ! undulator X-steering coil in quad XCU30 : HKICK ! undulator X-steering coil in quad XCU31 : HKICK ! undulator X-steering coil in quad XCU32 : HKICK ! undulator X-steering coil in quad XCU33 : HKICK ! undulator X-steering coil in quad YCU01 : VKICK ! undulator Y-steering coil in quad YCU02 : VKICK ! undulator Y-steering coil in quad YCU03 : VKICK ! undulator Y-steering coil in quad YCU04 : VKICK ! undulator Y-steering coil in quad YCU05 : VKICK ! undulator Y-steering coil in quad YCU06 : VKICK ! undulator Y-steering coil in quad YCU07 : VKICK ! undulator Y-steering coil in quad YCU08 : VKICK ! undulator Y-steering coil in quad YCU09 : VKICK ! undulator Y-steering coil in quad YCU10 : VKICK ! undulator Y-steering coil in quad YCU11 : VKICK ! undulator Y-steering coil in quad YCU12 : VKICK ! undulator Y-steering coil in quad YCU13 : VKICK ! undulator Y-steering coil in quad YCU14 : VKICK ! undulator Y-steering coil in quad YCU15 : VKICK ! undulator Y-steering coil in quad YCU16 : VKICK ! undulator Y-steering coil in quad YCU17 : VKICK ! undulator Y-steering coil in quad YCU18 : VKICK ! undulator Y-steering coil in quad YCU19 : VKICK ! undulator Y-steering coil in quad YCU20 : VKICK ! undulator Y-steering coil in quad YCU21 : VKICK ! undulator Y-steering coil in quad YCU22 : VKICK ! undulator Y-steering coil in quad YCU23 : VKICK ! undulator Y-steering coil in quad YCU24 : VKICK ! undulator Y-steering coil in quad YCU25 : VKICK ! undulator Y-steering coil in quad YCU26 : VKICK ! undulator Y-steering coil in quad YCU27 : VKICK ! undulator Y-steering coil in quad YCU28 : VKICK ! undulator Y-steering coil in quad YCU29 : VKICK ! undulator Y-steering coil in quad YCU30 : VKICK ! undulator Y-steering coil in quad YCU31 : VKICK ! undulator Y-steering coil in quad YCU32 : VKICK ! undulator Y-steering coil in quad YCU33 : VKICK ! undulator Y-steering coil in quad DF0 : DRIFT, L=LQu-0.0417 ! No quad + correction to maintain symmetry DB0 : DRIFT, L=0.5653-Lbr1-LQu-Lbr3-LRFBu ! sets UNDSTOP to Jim Welch's Z' value DB1 : DRIFT, L=Lbr1 ! drift from segment to quad DB3 : DRIFT, L=Lbr3 ! drift from quad to BPM DB4 : DRIFT, L=Lbr4 ! Radiation monitor to segment drift DBWM : DRIFT, L=Lbrwm ! BFW to radiation monitor drift DBRS : DRIFT, L=Lbrs ! standard short undulator drift from BPM to segment DBRL : DRIFT, L=Lbrl ! standard long undulator drift from BPM to segment DT : DRIFT, L=Lue ! undulator segment small terminations modeled as drift MUQ : MARK ! undulator quad center marker for beta matching in all quads DBUVV1 : DRIFT, L=LBUVV1 ! drift before inline vaccum valve DBUVV2 : DRIFT, L=LBUVV2 ! drift after inline vaccum valve VVU10 : MARK ! inline vacuum valve in undulator chamber before girder 10 VVU25 : MARK ! inline vacuum valve in undulator chamber before girder 25 DBRL10 : LINE=(DBUVV1,VVU10,DBUVV2) ! long undulator drift from BPM to segment with inline value DBRL25 : LINE=(DBUVV1,VVU25,DBUVV2) ! long undulator drift from BPM to segment with inline value ! undulator segment modeled as R-matrix to include vertical natural focusing over all but its edge terminations: USEGH : MATRIX, 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)), & RM(3,4) = sin(Lundh*sqrt(kqund))/sqrt(kqund), & RM(4,3) = -sin(Lundh*sqrt(kqund))*sqrt(kqund), & RM(4,4) = cos(Lundh*sqrt(kqund)) US01 : USEGH US02 : USEGH US03 : USEGH US04 : USEGH US05 : USEGH US06 : USEGH US07 : USEGH US08 : USEGH US09 : USEGH US10 : USEGH US11 : USEGH US12 : USEGH US13 : USEGH US14 : USEGH US15 : USEGH US16 : USEGH US17 : USEGH US18 : USEGH US19 : USEGH US20 : USEGH US21 : USEGH US22 : USEGH US23 : USEGH US24 : USEGH US25 : USEGH US26 : USEGH US27 : USEGH US28 : USEGH US29 : USEGH US30 : USEGH US31 : USEGH US32 : USEGH US33 : USEGH VALUE, USEGH[RM(1,2)],Lundh VALUE, USEGH[RM(3,3)],cos(Lundh*sqrt(kqund)) VALUE, USEGH[RM(3,4)],sin(Lundh*sqrt(kqund))/sqrt(kqund) VALUE, USEGH[RM(4,3)],-sin(Lundh*sqrt(kqund))*sqrt(kqund) VALUE, USEGH[RM(4,4)],cos(Lundh*sqrt(kqund)) USTBK01 : LINE=(DT,US01,US01,DT) USTBK02 : LINE=(DT,US02,US02,DT) USTBK03 : LINE=(DT,US03,US03,DT) USTBK04 : LINE=(DT,US04,US04,DT) USTBK05 : LINE=(DT,US05,US05,DT) USTBK06 : LINE=(DT,US06,US06,DT) USTBK07 : LINE=(DT,US07,US07,DT) USTBK08 : LINE=(DT,US08,US08,DT) USTBK09 : LINE=(DT,US09,US09,DT) USTBK10 : LINE=(DT,US10,US10,DT) USTBK11 : LINE=(DT,US11,US11,DT) USTBK12 : LINE=(DT,US12,US12,DT) USTBK13 : LINE=(DT,US13,US13,DT) USTBK14 : LINE=(DT,US14,US14,DT) USTBK15 : LINE=(DT,US15,US15,DT) USTBK16 : LINE=(DT,US16,US16,DT) USTBK17 : LINE=(DT,US17,US17,DT) USTBK18 : LINE=(DT,US18,US18,DT) USTBK19 : LINE=(DT,US19,US19,DT) USTBK20 : LINE=(DT,US20,US20,DT) USTBK21 : LINE=(DT,US21,US21,DT) USTBK22 : LINE=(DT,US22,US22,DT) USTBK23 : LINE=(DT,US23,US23,DT) USTBK24 : LINE=(DT,US24,US24,DT) USTBK25 : LINE=(DT,US25,US25,DT) USTBK26 : LINE=(DT,US26,US26,DT) USTBK27 : LINE=(DT,US27,US27,DT) USTBK28 : LINE=(DT,US28,US28,DT) USTBK29 : LINE=(DT,US29,US29,DT) USTBK30 : LINE=(DT,US30,US30,DT) USTBK31 : LINE=(DT,US31,US31,DT) USTBK32 : LINE=(DT,US32,US32,DT) USTBK33 : LINE=(DT,US33,US33,DT) QBLK01 : LINE=(QU01,XCU01,MUQ,YCU01,QU01) QBLK02 : LINE=(QU02,XCU02,MUQ,YCU02,QU02) QBLK03 : LINE=(QU03,XCU03,MUQ,YCU03,QU03) QBLK04 : LINE=(QU04,XCU04,MUQ,YCU04,QU04) QBLK05 : LINE=(QU05,XCU05,MUQ,YCU05,QU05) QBLK06 : LINE=(QU06,XCU06,MUQ,YCU06,QU06) QBLK07 : LINE=(QU07,XCU07,MUQ,YCU07,QU07) QBLK08 : LINE=(QU08,XCU08,MUQ,YCU08,QU08) QBLK09 : LINE=(QU09,XCU09,MUQ,YCU09,QU09) QBLK10 : LINE=(QU10,XCU10,MUQ,YCU10,QU10) QBLK11 : LINE=(QU11,XCU11,MUQ,YCU11,QU11) QBLK12 : LINE=(QU12,XCU12,MUQ,YCU12,QU12) QBLK13 : LINE=(QU13,XCU13,MUQ,YCU13,QU13) QBLK14 : LINE=(QU14,XCU14,MUQ,YCU14,QU14) QBLK15 : LINE=(QU15,XCU15,MUQ,YCU15,QU15) QBLK16 : LINE=(QU16,XCU16,MUQ,YCU16,QU16) QBLK17 : LINE=(QU17,XCU17,MUQ,YCU17,QU17) QBLK18 : LINE=(QU18,XCU18,MUQ,YCU18,QU18) QBLK19 : LINE=(QU19,XCU19,MUQ,YCU19,QU19) QBLK20 : LINE=(QU20,XCU20,MUQ,YCU20,QU20) QBLK21 : LINE=(QU21,XCU21,MUQ,YCU21,QU21) QBLK22 : LINE=(QU22,XCU22,MUQ,YCU22,QU22) QBLK23 : LINE=(QU23,XCU23,MUQ,YCU23,QU23) QBLK24 : LINE=(QU24,XCU24,MUQ,YCU24,QU24) QBLK25 : LINE=(QU25,XCU25,MUQ,YCU25,QU25) QBLK26 : LINE=(QU26,XCU26,MUQ,YCU26,QU26) QBLK27 : LINE=(QU27,XCU27,MUQ,YCU27,QU27) QBLK28 : LINE=(QU28,XCU28,MUQ,YCU28,QU28) QBLK29 : LINE=(QU29,XCU29,MUQ,YCU29,QU29) QBLK30 : LINE=(QU30,XCU30,MUQ,YCU30,QU30) QBLK31 : LINE=(QU31,XCU31,MUQ,YCU31,QU31) QBLK32 : LINE=(QU32,XCU32,MUQ,YCU32,QU32) QBLK33 : LINE=(QU33,XCU33,MUQ,YCU33,QU33) GIRD01 : LINE=(BFW01,DBWM,RDM01,DB4,USTBK01,DB1,QBLK01,DB3,RFBU01) GIRD02 : LINE=(BFW02,DBWM,RDM02,DB4,USTBK02,DB1,QBLK02,DB3,RFBU02) GIRD03 : LINE=(BFW03,DBWM,RDM03,DB4,USTBK03,DB1,QBLK03,DB3,RFBU03) GIRD04 : LINE=(BFW04,DBWM,RDM04,DB4,USTBK04,DB1,QBLK04,DB3,RFBU04) GIRD05 : LINE=(BFW05,DBWM,RDM05,DB4,USTBK05,DB1,QBLK05,DB3,RFBU05) GIRD06 : LINE=(BFW06,DBWM,RDM06,DB4,USTBK06,DB1,QBLK06,DB3,RFBU06) GIRD07 : LINE=(BFW07,DBWM,RDM07,DB4,USTBK07,DB1,QBLK07,DB3,RFBU07) GIRD08 : LINE=(BFW08,DBWM,RDM08,DB4,USTBK08,DB1,QBLK08,DB3,RFBU08) GIRD09 : LINE=(BFW09,DBWM,RDM09,DB4,USTBK09,DB1,QBLK09,DB3,RFBU09) GIRD10 : LINE=(BFW10,DBWM,RDM10,DB4,USTBK10,DB1,QBLK10,DB3,RFBU10) GIRD11 : LINE=(BFW11,DBWM,RDM11,DB4,USTBK11,DB1,QBLK11,DB3,RFBU11) GIRD12 : LINE=(BFW12,DBWM,RDM12,DB4,USTBK12,DB1,QBLK12,DB3,RFBU12) GIRD13 : LINE=(BFW13,DBWM,RDM13,DB4,USTBK13,DB1,QBLK13,DB3,RFBU13) GIRD14 : LINE=(BFW14,DBWM,RDM14,DB4,USTBK14,DB1,QBLK14,DB3,RFBU14) GIRD15 : LINE=(BFW15,DBWM,RDM15,DB4,USTBK15,DB1,QBLK15,DB3,RFBU15) GIRD16 : LINE=(BFW16,DBWM,RDM16,DB4,USTBK16,DB1,QBLK16,DB3,RFBU16) GIRD17 : LINE=(BFW17,DBWM,RDM17,DB4,USTBK17,DB1,QBLK17,DB3,RFBU17) GIRD18 : LINE=(BFW18,DBWM,RDM18,DB4,USTBK18,DB1,QBLK18,DB3,RFBU18) GIRD19 : LINE=(BFW19,DBWM,RDM19,DB4,USTBK19,DB1,QBLK19,DB3,RFBU19) GIRD20 : LINE=(BFW20,DBWM,RDM20,DB4,USTBK20,DB1,QBLK20,DB3,RFBU20) GIRD21 : LINE=(BFW21,DBWM,RDM21,DB4,USTBK21,DB1,QBLK21,DB3,RFBU21) GIRD22 : LINE=(BFW22,DBWM,RDM22,DB4,USTBK22,DB1,QBLK22,DB3,RFBU22) GIRD23 : LINE=(BFW23,DBWM,RDM23,DB4,USTBK23,DB1,QBLK23,DB3,RFBU23) GIRD24 : LINE=(BFW24,DBWM,RDM24,DB4,USTBK24,DB1,QBLK24,DB3,RFBU24) GIRD25 : LINE=(BFW25,DBWM,RDM25,DB4,USTBK25,DB1,QBLK25,DB3,RFBU25) GIRD26 : LINE=(BFW26,DBWM,RDM26,DB4,USTBK26,DB1,QBLK26,DB3,RFBU26) GIRD27 : LINE=(BFW27,DBWM,RDM27,DB4,USTBK27,DB1,QBLK27,DB3,RFBU27) GIRD28 : LINE=(BFW28,DBWM,RDM28,DB4,USTBK28,DB1,QBLK28,DB3,RFBU28) GIRD29 : LINE=(BFW29,DBWM,RDM29,DB4,USTBK29,DB1,QBLK29,DB3,RFBU29) GIRD30 : LINE=(BFW30,DBWM,RDM30,DB4,USTBK30,DB1,QBLK30,DB3,RFBU30) GIRD31 : LINE=(BFW31,DBWM,RDM31,DB4,USTBK31,DB1,QBLK31,DB3,RFBU31) GIRD32 : LINE=(BFW32,DBWM,RDM32,DB4,USTBK32,DB1,QBLK32,DB3,RFBU32) GIRD33 : LINE=(BFW33,DBWM,RDM33,DB4,USTBK33,DB1,QBLK33,DB3,RFBU33) UNDCL : LINE=(DBRS, GIRD01,DBRS,GIRD02,DBRS,GIRD03, & DBRL, GIRD04,DBRS,GIRD05,DBRS,GIRD06, & DBRL, GIRD07,DBRS,GIRD08,DBRS,GIRD09, & DBRL10,GIRD10,DBRS,GIRD11,DBRS,GIRD12, & DBRL, GIRD13,DBRS,GIRD14,DBRS,GIRD15, & DBRL, GIRD16,DBRS,GIRD17,DBRS,GIRD18, & DBRL, GIRD19,DBRS,GIRD20,DBRS,GIRD21, & DBRL, GIRD22,DBRS,GIRD23,DBRS,GIRD24, & DBRL25,GIRD25,DBRS,GIRD26,DBRS,GIRD27, & DBRL, GIRD28,DBRS,GIRD29,DBRS,GIRD30, & DBRL, GIRD31,DBRS,GIRD32,DBRS,GIRD33) UND : LINE=(UNDSTART,DF0,DB3,RFBU00,UNDCL,DB0,UNDTERM) ! Undulator exit section: ! ---------------------- DUE1a : DRIFT,L=10.720575-8.930036 DUE1d : DRIFT,L=8.930036+0.411634 DUE1b : DRIFT,L= 0.5-0.411634+0.038094 DUE1c : DRIFT,L= 0.455460-0.038094 DUE2a : DRIFT,L= 0.455460+0.139704 DUE2b : DRIFT,L=10.609500 DUE2c : DRIFT,L= 0.455460+0.050796 DUE3a : DRIFT,L= 0.455460-0.139956 DUE3b : DRIFT,L= 0.144120 DUE3c : DRIFT,L=11.919836 DUE4 : DRIFT,L= 0.5 DUE5A : DRIFT,L= 1.0 DUE5B : DRIFT,L= 0.5-0.479186 DUE5C : DRIFT,L= 0.33362 DUE5D : DRIFT,L= 0.479186-0.33362 KQUE1 := 0.104400520738 ! [=30 m] KQUE2 := -0.034720631855 ! [=30 m] QUE1 : QUAD, TYPE="3.25Q20", L=LQD/2, K1= KQUE1, APER=rQD QUE2 : QUAD, TYPE="3.25Q20", L=LQD/2, K1= KQUE2, APER=rQD UEbeg : MARK UEend : MARK ! Dump: ! ---- KQDmp := -0.1125061034 ! [=30 m] QDmp1 : QUAD,TYPE="3.25Q20",L=LQD/2,K1=KQDmp,APER=rQD QDmp2 : QUAD,TYPE="3.25Q20",L=LQD/2,K1=KQDmp,APER=rQD Ddmpv := -0.73352263654 LDS := 0.300-0.026027*2 LDSC := 0.499225-0.026027+0.1124278-0.008032 DDmp1 : DRIFT, L=0.30 D2d : DRIFT, L=0.75 DDmp3 : DRIFT, L=0.75 DSB0a : DRIFT, L=0.282815-0.062881 DSB0b : DRIFT, L=0.282815+0.062881-0.130786 DSB0c : DRIFT, L=0.30-0.026027+0.130786-0.278039 DSB0d : DRIFT, L=0.278039 DS : DRIFT, L=LDS DSc : DRIFT, L=LDSC DD1a : DRIFT, L=1.0+1.5843238+0.1124278+0.008032 DD1b : DRIFT, L=9.862584-LQD/2-Ddmpv-1.15-1.5843238-0.2920945 DD1f : DRIFT, L=0.266645 DD1c : DRIFT, L=0.4+0.2920945-0.266645-2*0.0381452 DD1d : DRIFT, L=0.25-0.0079372 DD1e : DRIFT, L=0.25+0.0079372 DD2a : DRIFT, L=0.4+0.0634916 DD2b : DRIFT, L=8.425460-LQD/2+Ddmpv-0.15-0.0634916-0.049684 DD3a : DRIFT, L=0.3+0.049684+0.001583 DD3b : DRIFT, L=0.3-0.001583-0.1447026 DD3c : DRIFT, L=2.580+0.1447026-0.2441932 DD3d : DRIFT, L=0.2441932 DD3e : DRIFT, L=0.2857474-0.2441932 DPM1a : DRIFT, L=6.851618-0.694995 DPM1b : DRIFT, L=1.820699-LSTPR/2+0.163401-0.1174 DST1 : DRIFT, L=0.1112 DMUSPL : DRIFT, L=3*0.3048+2.893089-LSTPR-3.288089+0.1174-0.1112-0.1174 DST2 : DRIFT, L=0.1112 DPM1c : DRIFT, L=4.7074-LSTPR/2+3.4214+0.1174-0.1112 DPM1d : DRIFT, L=0.50+0.112-0.296712+0.008013 DPM1 : DRIFT, L=0.30/cos(ABpm) DPM2 : DRIFT, L=0.30/cos(2*ABpm) DSFT : DRIFT, L=11.934976 DPM2e : DRIFT, L=0.076213 DMPend : MARK OTRDMP : PROF, TYPE="OTR" !Dump screen LPCPM : = 0.076 PCPM1L : ECOL, L=LPCPM/cos(3*ABdm0),XSIZE=0.0250,YSIZE=0.0250 BTM1L : INST ! Burn-Through-Monitor behind PCPM1L PCPM2L : ECOL, L=LPCPM/cos(3*ABdm0),XSIZE=0.0250,YSIZE=0.0250 BTM2L : INST ! Burn-Through-Monitor behind PCPM2L ! Safety Dump: ! ----------- SFTBEG : MARK ! start of safety dump (entrance of turned-off BYD1) PCPM0 : ECOL, L=LPCPM,XSIZE=0.0168,YSIZE=0.0103 ! added Sep. 13, 2007 per J. Langton PCPM1 : ECOL, L=LPCPM,XSIZE=0.0168,YSIZE=0.0103 PCPM2 : ECOL, L=LPCPM,XSIZE=0.0198,YSIZE=0.0121 BTM0 : INST ! Burn-Through-Monitor behind PCPM1L BTM1 : INST ! Burn-Through-Monitor behind PCPM1L BTM2 : INST ! Burn-Through-Monitor behind PCPM1L DYD1 : DRIFT, L=LBdm*cos(1*ABdm0/2) DYD2 : DRIFT, L=LBdm*cos(3*ABdm0/2) DYD3 : DRIFT, L=LBdm*cos(5*ABdm0/2) DSS1 : DRIFT, L=LDS*cos(1*ABdm0) DSS2 : DRIFT, L=LDS*cos(2*ABdm0) DScS1 : DRIFT, L=LDSC*cos(3*ABdm0)/2+0.188398+0.004 DScS2 : DRIFT, L=LDSC*cos(3*ABdm0)/2-0.188398-0.004 BTMSFT : INST ! Burn-Through-Monitor behind saftey-dump ! ============================================================================== ! DRIFTs ! ------------------------------------------------------------------------------ ! L1/2/3 FODO cells D9 : DRIF, L=DLWL9 D10 : DRIF, L=DLWL10 DAQ1 : DRIF, L=0.0342 DAQ2 : DRIF, L=0.027 ! injector geometry LGGUN := 7.51*0.3048 LGL0 := 2*3.0441+1.0 LGBEND := 0.95 + 2*0.3048 ! add 12" to either side of QB for more room (22JAN04 - PE) LGEMIT := 9.000328707307 LGMATCH := 1.5134597681 DGGUN : DRIF, L=LGGUN DGL0 : DRIF, L=LGL0 ! L0 LOADLOCK : DRIF, L=LGGUN-1.42 DL00 : DRIF, L=-LOADLOCK[L] !from cathode back to u/s end of loadlock DL01a : DRIF, L=0.19601-LSOL1/2 DL01a1 : DRIF, L=0.07851 DL01a2 : DRIF, L=0.11609 DL01a3 : DRIF, L=0.10461 DL01a4 : DRIF, L=0.0170+0.0014 DL01a5 : DRIF, L=0.0132-0.00223 DL01b : DRIF, L=0.0825 DL01c : DRIF, L=0.1340-0.00353-0.003175 DL01d : DRIF, L=0.1008464-0.0155757 DL01h : DRIF, L=0.0581886 DL01e : DRIF, L=0.2286-DXG0[L]-0.00536+0.0155757 DL01f : DRIF, L=0.1353+0.00708 DL01f2 : DRIF, L=0.0277+0.00167 DL01g : DRIF, L=0.0740-0.00341 DL02a1 : DRIF, L=0.066356+0.0021436-0.008205 DL02a2 : DRIF, L=0.104580+0.008205 DL02a3 : DRIF, L=0.098776-LQx/2+0.028834 DL02b1 : DRIF, L=0.169672-LQx/2-0.028834+0.007646 DL02b2 : DRIF, L=0.185928-LQx/2-0.007646+0.001610 DL02c : DRIF, L=0.121498-LQx/2-0.001610 ! Heater-Chicane: LSRHTR_ON := 1E-12 !set to 1E-12 for OFF and 1.0 for ON (nominal) Brhoh := Cb*Ei !beam rigidity at heater (kG-m) BBh1 := -5.369805525659*LSRHTR_ON !heater-chicane bend field for 40-cm etaX_pk (kG) RBh1 := Brhoh/BBh1 !heater-chicane bend radius (m) ABh1 := ASIN(LBh/RBh1) !heater-chicane bend angle (rad) ABh1S := ASIN((LBh/2)/RBh1) !"short" half heater-chicane bend angle (rad) LBh1S := RBh1*ABh1S !"short" half heater-chicane bend path length (m) ABh1L := ABh1-ABh1S !"long" half heater-chicane bend angle (rad) LBh1L := RBh1*ABh1L !"long" half heater-chicane bend path length (m) BXh1A : SBEN, TYPE="5D3.9", L=LBh1S, ANGLE=+ABh1S, HGAP=GBh/2, & E1=0, FINT=0.5, FINTX=0 BXh1B : SBEN, TYPE="5D3.9", L=LBh1L, ANGLE=+ABh1L, HGAP=GBh/2, & FINT=0, E2=+ABh1, FINTX=0.5 BXh2A : SBEN, TYPE="5D3.9", L=LBh1L, ANGLE=-ABh1L, HGAP=GBh/2, & E1=-ABh1, FINT=0.5, FINTX=0 BXh2B : SBEN, TYPE="5D3.9", L=LBh1S, ANGLE=-ABh1S, HGAP=GBh/2, & FINT=0, E2=0, FINTX=0.5 BXh3A : SBEN, TYPE="5D3.9", L=LBh1S, ANGLE=-ABh1S, HGAP=GBh/2, & E1=0, FINT=0.5, FINTX=0 BXh3B : SBEN, TYPE="5D3.9", L=LBh1L, ANGLE=-ABh1L, HGAP=GBh/2, & FINT=0, E2=-ABh1, FINTX=0.5 BXh4A : SBEN, TYPE="5D3.9", L=LBh1L, ANGLE=+ABh1L, HGAP=GBh/2, & E1=+ABh1, FINT=0.5, FINTX=0 BXh4B : SBEN, TYPE="5D3.9", L=LBh1S, ANGLE=+ABh1S, HGAP=GBh/2, & FINT=0, E2=0, FINTX=0.5 ! Laser-Heater Undulator Model: lam := 0.05 ! laser-heater undulator period [m] K_und := 1.507139*LSRHTR_ON ! laser-heater undulator K [ ] gami := Ei/mc2 ! Lorentz energy factor in laser-heater undulator [ ] Lhun := 0.506263 ! length of laser-heater undulator kqlh := (K_und*2*pi/lam/sqrt(2)/gami)^2 ! natural undulator focusing "k" in y-plane [m^-2] VALUE,gami,kqlh LHBEG : MARK LHEND : MARK ! laser-heater undulator modeled as R-matrix to include vertical natural focusing: LH_UND : MATRIX, L=Lhun/2, & RM(1,1) = 1.0, & RM(1,2) = Lhun/2, & RM(2,1) = 0.0, & RM(2,2) = 1.0, & RM(3,3) = cos(Lhun/2*sqrt(kqlh)), & RM(3,4) = sin(Lhun/2*sqrt(kqlh))/sqrt(kqlh), & RM(4,3) = -sin(Lhun/2*sqrt(kqlh))*sqrt(kqlh), & RM(4,4) = cos(Lhun/2*sqrt(kqlh)) ! RM(5,6) = Lhun/2/(gami^2)*(1+(K_und^2)/2) VALUE, LH_UND[RM(1,2)],Lhun/2 VALUE, LH_UND[RM(3,3)],cos(Lhun/2*sqrt(kqlh)) VALUE, LH_UND[RM(3,4)],sin(Lhun/2*sqrt(kqlh))/sqrt(kqlh) VALUE, LH_UND[RM(4,3)],-sin(Lhun/2*sqrt(kqlh))*sqrt(kqlh) VALUE, LH_UND[RM(4,4)],cos(Lhun/2*sqrt(kqlh)) ! VALUE, LH_UND[RM(5,6)],Lhun/2/(gami^2)*(1+(K_und^2)/2) ! DL1 LWS01_03 := 3.827458 ! distance from WS01 to WS03 wire centers [m] (changed 06MAY05 -PE) BMIN0 := LWS01_03/SQRT(3)/2 ! betaX=betaY at WS02 where waist is located (12NOV03 -PE) VALUE, BMIN0 MRK0 : MARK DE00 : DRIF, L=0.024994 DE00a: DRIF, L=0.070613-LQx/2 DE01a: DRIF, L=0.130373-LQx/2 DE01b: DRIF, L=0.176359-LQx/2 DE01c: DRIF, L=0.094781 DE02 : DRIF, L=0.0897395-LQx/2 DE03a: DRIF, L=0.16832-LQx/2 DE03b: DRIF, L=0.047581 DE03c: DRIF, L=0.190499-LQx/2 DE04 : DRIF, L=0.197688-LQx/2 DE05 : DRIF, L=0.151968 DE05a: DRIF, L=DE05[L]/2 DE05c: DRIF, L=0.104470 DE06b: DRIF, L=0.2478024 DE06a: DRIF, L=LWS01_03/2-DE05[L]-DE05c[L]-DE06b[L] DE06d: DRIF, L=0.1638307 DE06e: DRIF, L=LWS01_03/2-DE05[L]-DE06d[L] DE07 : DRIF, L=0.2045007-LQx/2+0.305E-3 DE08 : DRIF, L=0.2318721-LQx/2-0.03 DE08a: DRIF, L=0.153330+0.03 DE08b: DRIF, L=0.170620-LQx/2 DE09 : DRIF, L=0.27745-LQx/2 DB00a: DRIF, L=0.399700, TYPE="CSR" DB00b: DRIF, L=0.161, TYPE="CSR" DB00c: DRIF, L=0.219100-LQE/2, TYPE="CSR" DB00d: DRIF, L=0.342-LQE/2, TYPE="CSR" DB00e: DRIF, L=0.4378, TYPE="CSR" DM00 : DRIF, L=0.203400-ZOFFINJ+0.03, TYPE="CSR" ! move entire injector ~12 mm dntr. (Nov. 17, 2004 - PE) DM00a: DRIF, L=0.224683-LQx/2-0.03, TYPE="CSR" DM01 : DRIF, L=0.142367-LQx/2, TYPE="CSR" DM01a: DRIF, L=0.262800-LQx/2, TYPE="CSR" DM02 : DRIF, L=0.194200-LQx/2 DM02a: DRIF, L=0.157448 ! L1 DAQA1 : DRIF, L=0.033450+dz_QA11 DAQA2 : DRIF, L=0.033450-dz_QA11 DAQA3 : DRIF, L=0.033450 DAQA4 : DRIF, L=0.033450 ! BC1 LWW1 := 1.656196 ! WS11-12 drift length and therefore ~ beam size BMIN1 := LWW1/SQRT(3) ! betaX,Y at WS12 DL1Xa : DRIF, L=0.093369 DL1Xb : DRIF, L=0.2 DM10a : DRIF, L=0.227400-0.022322 DM10c : DRIF, L=0.122322+dz_Q21201 DM10x : DRIF, L=0.083617-dz_Q21201 DM11 : DRIF, L=0.272500+0.006383 DM12 : DRIF, L=0.127801 DBQ1 : DRIF, L=(0.400381-LB1/2-LQc/2)/COS(AB11), TYPE="CSR" D11o :