! ------------------------------------------------------------------------------ ! XLEAP-II optics (Yuri Nosochkov) ! ------------------------------------------------------------------------------ ! to run XLEAP-II optics, uncomment the SUBROUTINE with the appropriate energy; ! within the selected SUBROUTINE, comment out any unused wiggler pair !COMMENT SETK2XL2 : SUBROUTINE !4 GeV SET, Ef, 4.0 ; SET, Eu, Ef !comment !turn on first wiggler pair and match (chicane and XLEAP wiggler OFF) SET, R11XL1, 1.098929204922070 ; SET, R11XL2, R11XL1 SET, R12XL1, 1.719551869522400 ; SET, R12XL2, R12XL1 SET, R21XL1, 0.120755530037211 ; SET, R21XL2, R21XL1 SET, R22XL1, 1.098929204922070 ; SET, R22XL2, R22XL1 SET, R33XL1, 0.904229208659358 ; SET, R33XL2, R33XL1 SET, R34XL1, 1.611499871655030 ; SET, R34XL2, R34XL1 SET, R43XL1, -0.113167578486975 ; SET, R43XL2, R43XL1 SET, R44XL1, 0.904229208659358 ; SET, R44XL2, R44XL1 SET, KQEM2B, -1.855597499801 SET, KQEM3B, 2.029672289863 SET, KQEM4B, -1.894033245576 SET, KQE31B, -0.911483880729 SET, KQFXL1, 3.973250008086 !Yuri match (Ef=4.0, KSXU=5.0) SET, KQUM4B, -0.522052682614 SET, KQSX16, 0.386434780667 SET, KQSX19, -0.894006742269 SET, KQSX21, 1.22862150816 SET, KQSX24, -1.251292803834 SET, KQDSXM, -2.295714281502 SET, KQUE1B, 0.289647390030 SET, KQUE2B, -0.006066762022 !endcomment !comment !turn on second wiggler pair and match (chicane and XLEAP wiggler ON) SET, SETXLEAP2, 1 !turn on XLEAP chicane and XLEAP wiggler SET, R11XL3, 1.098929204922070 ; SET, R11XL4, R11XL3 SET, R12XL3, 1.719551869522400 ; SET, R12XL4, R12XL3 SET, R21XL3, 0.120755530037211 ; SET, R21XL4, R21XL3 SET, R22XL3, 1.098929204922070 ; SET, R22XL4, R22XL3 SET, R33XL3, 0.904229208659358 ; SET, R33XL4, R33XL3 SET, R34XL3, 1.611499871655030 ; SET, R34XL4, R34XL3 SET, R43XL3, -0.113167578486975 ; SET, R43XL4, R43XL3 SET, R44XL3, 0.904229208659358 ; SET, R44XL4, R44XL3 SET, KQFXL2, 3.389084494844 SET, KQE36B, 0.464496912086 SET, KQUM1B, -1.288258487292 SET, KQUM2B, 1.041228170092 SET, KQUM3B, 0.407065056038 SET, KQUM4B, -0.560689701297 SET, KQSX16, 0.290640871929 SET, KQSX19, -0.767829223363 SET, KQSX21, 1.215779744406 SET, KQSX24, -1.329281363177 SET, KQDSXM, -2.35530398789 SET, KQUE1B, 0.287123287034 SET, KQUE2B, -0.459677422214E-2 !endcomment ENDSUBROUTINE !ENDCOMMENT COMMENT SETK2XL2 : SUBROUTINE !5 GeV SET, Ef, 5.0 ; SET, Eu, Ef !comment !turn on first wiggler pair and match (chicane and XLEAP wiggler OFF) SET, R11XL1, 1.062946961078510 ; SET, R11XL2, R11XL1 SET, R12XL1, 1.699791113287200 ; SET, R12XL2, R12XL1 SET, R21XL1, 0.076395411795580 ; SET, R21XL2, R21XL1 SET, R22XL1, 1.062946961078510 ; SET, R22XL2, R22XL1 SET, R33XL1, 0.938346707893913 ; SET, R33XL2, R33XL1 SET, R34XL1, 1.630639676711440 ; SET, R34XL2, R34XL1 SET, R43XL1, -0.073287469630119 ; SET, R43XL2, R43XL1 SET, R44XL1, 0.938346707893913 ; SET, R44XL2, R44XL1 SET, KQEM2B, -2.142973249297 SET, KQEM3B, 1.647737152819 SET, KQEM4B, -1.995037119049 SET, KQE31B, 0.449342062876 SET, KQFXL1, 2.403996935928 !Yuri match (Ef=5.0, KSXU=5.0) SET, KQUM4B, -0.577392226859 SET, KQSX16, 0.537345289645 SET, KQSX19, -0.919001038802 SET, KQSX21, 1.149032721175 SET, KQSX24, -1.149198905131 SET, KQDSXM, -2.274032862665 SET, KQUE1B, 0.294640131345 SET, KQUE2B, -0.039040543319 !endcomment !comment !turn on second wiggler pair and match (chicane and XLEAP wiggler ON) SET, SETXLEAP2, 1 !turn on XLEAP chicane and XLEAP wiggler SET, R11XL3, 1.062946961078510 ; SET, R11XL4, R11XL3 SET, R12XL3, 1.699791113287200 ; SET, R12XL4, R12XL3 SET, R21XL3, 0.076395411795580 ; SET, R21XL4, R21XL3 SET, R22XL3, 1.062946961078510 ; SET, R22XL4, R22XL3 SET, R33XL3, 0.938346707893913 ; SET, R33XL4, R33XL3 SET, R34XL3, 1.630639676711440 ; SET, R34XL4, R34XL3 SET, R43XL3, -0.073287469630119 ; SET, R43XL4, R43XL3 SET, R44XL3, 0.938346707893913 ; SET, R44XL4, R44XL3 SET, KQFXL2, 2.028913100615 SET, KQE36B, 0.296823732929 SET, KQUM1B, 0.470161614571 SET, KQUM2B, -0.895521946436 SET, KQUM3B, 0.731006631117 SET, KQUM4B, -0.663851007883 SET, KQSX16, 0.425985523532 SET, KQSX19, -0.845890823594 SET, KQSX21, 1.194038975447 SET, KQSX24, -1.20312897334 SET, KQDSXM, -2.214455093268 SET, KQUE1B, 0.276688999314 SET, KQUE2B, -0.819338710187E-2 !endcomment ENDSUBROUTINE ENDCOMMENT COMMENT SETK2XL2 : SUBROUTINE !6 GeV SET, Ef, 6.0 ; SET, Eu, Ef !comment !turn on first wiggler pair and match (chicane and XLEAP wiggler OFF) SET, R11XL1, 1.043574947350930 ; SET, R11XL2, R11XL1 SET, R12XL1, 1.689114560362730 ; SET, R12XL2, R12XL1 SET, R21XL1, 0.052719142222877 ; SET, R21XL2, R21XL1 SET, R22XL1, 1.043574947350930 ; SET, R22XL2, R22XL1 SET, R33XL1, 0.957048925519107 ; SET, R33XL2, R33XL1 SET, R34XL1, 1.641093188891540 ; SET, R34XL2, R34XL1 SET, R43XL1, -0.051220341862181 ; SET, R43XL2, R43XL1 SET, R44XL1, 0.957048925519107 ; SET, R44XL2, R44XL1 SET, KQEM2B, -2.086763336102 SET, KQEM3B, 1.312007902964 SET, KQEM4B, -0.933181570665 SET, KQE31B, 0.258485548676 SET, KQFXL1, 1.806104323421 !Yuri match (Ef=6.0, KSXU=5.0) SET, KQUM4B, -0.602392867736 SET, KQSX16, 0.615336296192 SET, KQSX19, -0.928947112742 SET, KQSX21, 1.068847626658 SET, KQSX24, -1.041727553275 SET, KQDSXM, -2.192708210169 SET, KQUE1B, 0.311244605889 SET, KQUE2B, -0.0881305063 !endcomment !comment !turn on second wiggler pair and match (chicane and XLEAP wiggler ON) SET, R11XL3, 1.043574947350930 ; SET, R11XL4, R11XL3 SET, R12XL3, 1.689114560362730 ; SET, R12XL4, R12XL3 SET, R21XL3, 0.052719142222877 ; SET, R21XL4, R21XL3 SET, R22XL3, 1.043574947350930 ; SET, R22XL4, R22XL3 SET, R33XL3, 0.957048925519107 ; SET, R33XL4, R33XL3 SET, R34XL3, 1.641093188891540 ; SET, R34XL4, R34XL3 SET, R43XL3, -0.051220341862181 ; SET, R43XL4, R43XL3 SET, R44XL3, 0.957048925519107 ; SET, R44XL4, R44XL3 SET, SETXLEAP2, 1 !turn on XLEAP chicane and XLEAP wiggler SET, KQFXL2, 1.347300109414 SET, KQE36B, 0.295229916889 SET, KQUM1B, 0.232862504101 SET, KQUM2B, -0.346147623983 SET, KQUM3B, 0.631417482569 SET, KQUM4B, -0.7771256824 SET, KQSX16, 0.532641841189 SET, KQSX19, -0.865220359407 SET, KQSX21, 1.133561342406 SET, KQSX24, -1.115093081884 SET, KQDSXM, -2.140462468904 SET, KQUE1B, 0.305120871802 SET, KQUE2B, -0.075603072915 !endcomment ENDSUBROUTINE ENDCOMMENT COMMENT SETK2XL2 : SUBROUTINE !7 GeV SET, Ef, 7.0 ; SET, Eu, Ef !comment !turn on first wiggler pair and match (chicane and XLEAP wiggler OFF) SET, R11XL1, 1.031953140218210 ; SET, R11XL2, R11XL1 SET, R12XL1, 1.682696500322550 ; SET, R12XL2, R12XL1 SET, R21XL1, 0.038585260974743 ; SET, R21XL2, R21XL1 SET, R22XL1, 1.031953140218210 ; SET, R22XL2, R22XL1 SET, R33XL1, 0.968383610128047 ; SET, R33XL2, R33XL1 SET, R34XL1, 1.647415637422870 ; SET, R34XL2, R34XL1 SET, R43XL1, -0.037776249187925 ; SET, R43XL2, R43XL1 SET, R44XL1, 0.968383610128047 ; SET, R44XL2, R44XL1 SET, KQEM2B, -1.966460407249 SET, KQEM3B, 1.149339285652 SET, KQEM4B, -0.609094273466 SET, KQE31B, 0.291728304235 SET, KQFXL1, 1.33582677812 !Yuri match (Ef=7.0, KSXU=5.0) SET, KQUM4B, -0.612553547942 SET, KQSX16, 0.656531988316 SET, KQSX19, -0.918397681573 SET, KQSX21, 0.985606839833 SET, KQSX24, -0.92622038386 SET, KQDSXM, -2.040561838231 SET, KQUE1B, 0.323345951278 SET, KQUE2B, -0.126793918904 !endcomment !comment !turn on second wiggler pair and match (chicane and XLEAP wiggler ON) SET, SETXLEAP2, 1 !turn on XLEAP chicane and XLEAP wiggler SET, R11XL3, 1.031953140218210 ; SET, R11XL4, R11XL3 SET, R12XL3, 1.682696500322550 ; SET, R12XL4, R12XL3 SET, R21XL3, 0.038585260974743 ; SET, R21XL4, R21XL3 SET, R22XL3, 1.031953140218210 ; SET, R22XL4, R22XL3 SET, R33XL3, 0.968383610128047 ; SET, R33XL4, R33XL3 SET, R34XL3, 1.647415637422870 ; SET, R34XL4, R34XL3 SET, R43XL3, -0.037776249187925 ; SET, R43XL4, R43XL3 SET, R44XL3, 0.968383610128047 ; SET, R44XL4, R44XL3 SET, KQFXL2, 0.954259354436 SET, KQE36B, 0.223879720714 SET, KQUM1B, 0.37992474682 SET, KQUM2B, -0.600721859547 SET, KQUM3B, 0.601182182909 SET, KQUM4B, -0.577653054937 SET, KQSX16, 0.529965207303 SET, KQSX19, -0.903616279843 SET, KQSX21, 1.088895212513 SET, KQSX24, -1.070854350113 SET, KQDSXM, -2.003920050097 SET, KQUE1B, 0.321468480252 SET, KQUE2B, -0.123151696076 !endcomment ENDSUBROUTINE ENDCOMMENT COMMENT SETK2XL2 : SUBROUTINE !8 GeV SET, Ef, 8.0 ; SET, Eu, Ef !comment !turn on first wiggler pair and match (chicane and XLEAP wiggler OFF) SET, R11XL1, 1.024433796036150 ; SET, R11XL2, R11XL1 SET, R12XL1, 1.678538794967410 ; SET, R12XL2, R12XL1 SET, R21XL1, 0.029468846719147 ; SET, R21XL2, R21XL1 SET, R22XL1, 1.024433796036150 ; SET, R22XL2, R22XL1 SET, R33XL1, 0.975763600637818 ; SET, R33XL2, R33XL1 SET, R34XL1, 1.651526938083830 ; SET, R34XL2, R34XL1 SET, R43XL1, -0.028994619806734 ; SET, R43XL2, R43XL1 SET, R44XL1, 0.975763600637818 ; SET, R44XL2, R44XL1 SET, KQEM2B, -1.90691592871 SET, KQEM3B, 1.191623728587 SET, KQEM4B, -0.664838884251 SET, KQE31B, 0.230547717948 SET, KQFXL1, 1.111758049867 !Yuri match (Ef=8.0, KSXU=5.0) SET, KQUM4B, -0.61774146348 SET, KQSX16, 0.677894017174 SET, KQSX19, -0.893321229694 SET, KQSX21, 0.901518123026 SET, KQSX24, -0.825282828044 SET, KQDSXM, -1.843482712046 SET, KQUE1B, 0.325725075565 SET, KQUE2B, -0.144356640751 !endcomment !comment !turn on second wiggler pair and match (chicane and XLEAP wiggler ON) SET, SETXLEAP2, 1 !turn on XLEAP chicane and XLEAP wiggler SET, R11XL3, 1.024433796036150 ; SET, R11XL4, R11XL3 SET, R12XL3, 1.678538794967410 ; SET, R12XL4, R12XL3 SET, R21XL3, 0.029468846719147 ; SET, R21XL4, R21XL3 SET, R22XL3, 1.024433796036150 ; SET, R22XL4, R22XL3 SET, R33XL3, 0.975763600637818 ; SET, R33XL4, R33XL3 SET, R34XL3, 1.651526938083830 ; SET, R34XL4, R34XL3 SET, R43XL3, -0.028994619806734 ; SET, R43XL4, R43XL3 SET, R44XL3, 0.975763600637818 ; SET, R44XL4, R44XL3 SET, KQFXL2, 0.80795621658 SET, KQE36B, 0.576286649843E-2 SET, KQUM1B, 0.421280440634 SET, KQUM2B, -0.565123338154 SET, KQUM3B, 0.623837052173 SET, KQUM4B, -0.626404824474 SET, KQSX16, 0.539702428378 SET, KQSX19, -0.839075812772 SET, KQSX21, 1.009894190449 SET, KQSX24, -1.013981671812 SET, KQDSXM, -1.784478916667 SET, KQUE1B, 0.310926049255 SET, KQUE2B, -0.110591700418 !endcomment ENDSUBROUTINE ENDCOMMENT COMMENT SETK2XL2 : SUBROUTINE !9 GeV SET, Ef, 9.0 ; SET, Eu, Ef !comment !turn on first wiggler pair and match (chicane and wiggler OFF) SET, R11XL1, 1.019289300836160 ; SET, R11XL2, R11XL1 SET, R12XL1, 1.675691857965750 ; SET, R12XL2, R12XL1 SET, R21XL1, 0.023244535451979 ; SET, R21XL2, R21XL1 SET, R22XL1, 1.019289300836160 ; SET, R22XL2, R22XL1 SET, R33XL1, 0.980833932870322 ; SET, R33XL2, R33XL1 SET, R34XL1, 1.654349178842450 ; SET, R34XL2, R34XL1 SET, R43XL1, -0.022948478238857 ; SET, R43XL2, R43XL1 SET, R44XL1, 0.980833932870322 ; SET, R44XL2, R44XL1 SET, KQEM2B, -1.869925264101 SET, KQEM3B, 1.223473474334 SET, KQEM4B, -0.762872788064 SET, KQE31B, 0.314407523713 SET, KQFXL1, 0.865767364731 !Yuri match (Ef=9.0, KSXU=5.0) SET, KQUM4B, -0.620070539426 SET, KQSX16, 0.686904936425 SET, KQSX19, -0.862547903987 SET, KQSX21, 0.821318329891 SET, KQSX24, -0.742610254846 SET, KQDSXM, -1.643834219472 SET, KQUE1B, 0.318005451435 SET, KQUE2B, -0.137993505202 !endcomment !comment !turn on second wiggler pair and match (chicane and XLEAP wiggler ON) SET, SETXLEAP2, 1 !turn on XLEAP chicane and XLEAP wiggler SET, R11XL3, 1.019289300836160 ; SET, R11XL4, R11XL3 SET, R12XL3, 1.675691857965750 ; SET, R12XL4, R12XL3 SET, R21XL3, 0.023244535451979 ; SET, R21XL4, R21XL3 SET, R22XL3, 1.019289300836160 ; SET, R22XL4, R22XL3 SET, R33XL3, 0.980833932870322 ; SET, R33XL4, R33XL3 SET, R34XL3, 1.654349178842450 ; SET, R34XL4, R34XL3 SET, R43XL3, -0.022948478238857 ; SET, R43XL4, R43XL3 SET, R44XL3, 0.980833932870322 ; SET, R44XL4, R44XL3 SET, KQFXL2, 0.676092865748 SET, KQE36B, -0.115195486421 SET, KQUM1B, 0.445496193551 SET, KQUM2B, -0.551516458129 SET, KQUM3B, 0.618784432631 SET, KQUM4B, -0.624872408649 SET, KQSX16, 0.548607431728 SET, KQSX19, -0.815006333033 SET, KQSX21, 0.944812827688 SET, KQSX24, -0.922819701132 SET, KQDSXM, -1.586203481381 SET, KQUE1B, 0.296269880553 SET, KQUE2B, -0.089899461548 !endcomment ENDSUBROUTINE ENDCOMMENT COMMENT SETK2XL2 : SUBROUTINE !10 GeV SET, Ef, 10.0 ; SET, Eu, Ef !comment !turn on first wiggler pair and match (chicane and wiggler OFF) SET, R11XL1, 1.015614828829930 ; SET, R11XL2, R11XL1 SET, R12XL1, 1.673657241934410 ; SET, R12XL2, R12XL1 SET, R21XL1, 0.018805212770375 ; SET, R21XL2, R21XL1 SET, R22XL1, 1.015614828829930 ; SET, R22XL2, R22XL1 SET, R33XL1, 0.984466024780417 ; SET, R33XL2, R33XL1 SET, R34XL1, 1.656369682310920 ; SET, R34XL2, R34XL1 SET, R43XL1, -0.018610969750446 ; SET, R43XL2, R43XL1 SET, R44XL1, 0.984466024780417 ; SET, R44XL2, R44XL1 SET, KQEM2B, -1.844949572743 SET, KQEM3B, 1.253752374149 SET, KQEM4B, -0.801695737186 SET, KQE31B, 0.259681460234 SET, KQFXL1, 0.771217575894 !Yuri match (Ef=10.0, KSXU=5.0) SET, KQUM4B, -0.620550775736 SET, KQSX16, 0.687744906904 SET, KQSX19, -0.829520512329 SET, KQSX21, 0.747580051633 SET, KQSX24, -0.674907978729 SET, KQDSXM, -1.490999997513 SET, KQUE1B, 0.302231833894 SET, KQUE2B, -0.111425150391 !endcomment !comment !turn on second wiggler pair and match (chicane and XLEAP wiggler ON) SET, SETXLEAP2, 1 !turn on XLEAP chicane and XLEAP wiggler SET, R11XL3, 1.015614828829930 ; SET, R11XL4, R11XL3 SET, R12XL3, 1.673657241934410 ; SET, R12XL4, R12XL3 SET, R21XL3, 0.018805212770375 ; SET, R21XL4, R21XL3 SET, R22XL3, 1.015614828829930 ; SET, R22XL4, R22XL3 SET, R33XL3, 0.984466024780417 ; SET, R33XL4, R33XL3 SET, R34XL3, 1.656369682310920 ; SET, R34XL4, R34XL3 SET, R43XL3, -0.018610969750446 ; SET, R43XL4, R43XL3 SET, R44XL3, 0.984466024780417 ; SET, R44XL4, R44XL3 SET, KQFXL2, 0.560671458918 SET, KQE36B, -0.174487700478 SET, KQUM1B, 0.456142334525 SET, KQUM2B, -0.543717103234 SET, KQUM3B, 0.616773367803 SET, KQUM4B, -0.62490556008 SET, KQSX16, 0.5465354403 SET, KQSX19, -0.784574259726 SET, KQSX21, 0.884535481464 SET, KQSX24, -0.850997100567 SET, KQDSXM, -1.427583133238 SET, KQUE1B, 0.284692708939 SET, KQUE2B, -0.076124961797 !endcomment ENDSUBROUTINE ENDCOMMENT ! ------------------------------------------------------------------------------ ! SXR from SC linac (XLEAP-II) ASSIGN, PRINT="LCLS2scS-XL2.print" BEAM, ENERGY=Ei SET, SETSP, SETSPs ; SET, SETCUS, CUSOFF USE, SC_SXRi SAVEBETA, TWXL, VBOUTB TWISS, BETA0=TWSSi BEAM, ENERGY=Ef SETK2XL2 USE, SC_SXRi, RANGE=VBOUTB/#E PRINT, FULL TWISS, SAVE, & BETX=TWXL[BETX], ALFX=TWXL[ALFX], & BETY=TWXL[BETY], ALFY=TWXL[ALFY], & TAPE="LCLS2scS-XL2_twiss.tape" !, RTAPE="LCLS2scS-XL2_rmat.tape" PLOT, TABLE=TWISS, HAXIS=S, VAXIS1=BETX,BETY, VAXIS2=DX,DY, & STYLE=100, SPLINE, RANGE=#S/DU7S[31], FILE="LCLS2scS-XL2", & TITLE="XLEAP-II (from SC linac): LTUS-UNDS" PLOT, TABLE=TWISS, HAXIS=S, VAXIS1=BETX,BETY, VAXIS2=DX,DY, & STYLE=100, SPLINE, RANGE=DU7S[26]/#E, FILE="LCLS2scS-XL2", & TITLE="XLEAP-II (from SC linac): DMPS" ! ------------------------------------------------------------------------------ RETURN