! *** OPTICS=LCLS2sc20MAR15 ***

! LCLS2sc transport from Cu-linac to SXR

! ==============================================================================
! Modification History
! ------------------------------------------------------------------------------
! 20-MAR-2015, M. Woodley
!  * move definitions of BEGCuSXR and ENDCuSXR MARKERs to common.xsif
!  * add SEQ20BEG and SEQ20END MARKERs
! 12-MAR-2015, Y. Nosochkov
!  * add a dogleg transport line from Cu-linac to SXR (deferred to level 3)
! ------------------------------------------------------------------------------

! XYZ (linac system) and Twiss at entrance of the first bend (BEGCUSXR)

  XCuS1  := -3.310074536E-07 !per existing LCLS-1 coordinates
  YCuS1  :=  0.0
  ZCuS1  :=  3064.696790
  THCuS1 :=  0.0
  PHCuS1 :=  0.0
  PSCuS1 :=  0.0

  TBXCuS1 :=  5.138874742E+01
  TBYCuS1 :=  5.132779090E+01
  TAXCuS1 := -1.303698686
  TAYCuS1 :=  1.135912384
  TWSCuS1 : BETA0, BETX=TBXCuS1, BETY=TBYCuS1, ALFX=TAXCuS1, ALFY=TAYCuS1

! XYZ (linac system) and Twiss at exit of the last bend

  XCuS2  := -25.610*IN2M
  YCuS2  :=  25.570*IN2M
  ZCuS2  :=  3139.196790
  THCuS2 :=  0.0
  PHCuS2 :=  0.0
  PSCuS2 :=  0.0

  TBXCuS2 :=  5.138874676E+01
  TBYCuS2 :=  5.132779082E+01
  TAXCuS2 :=  1.303699220
  TAYCuS2 := -1.135912462
  TWSCuS2 : BETA0, BETX=TBXCuS2, BETY=TBYCuS2, ALFX=TAXCuS2, ALFY=TAYCuS2

! quads (stronger quads are needed for 15 GeV)

  KQCUS1 :=  0.534390947764
  KQCUS2 := -0.539299198588
  KQCUS3 := -0.37079981763
  KQCUS4 :=  1.391685560788
  KQCUS5 := -2.1
  KQCuS6 :=  KQCuS4
  KQCuS7 :=  KQCuS3
  KQCuS8 :=  KQCuS2
  KQCuS9 :=  KQCUS1

  QCuS1 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS1, APER=rQR
  QCuS2 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS2, APER=rQR
  QCuS3 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS3, APER=rQR
  QCuS4 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS4, APER=rQR
  QCuS5 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS5, APER=rQR
  QCuS6 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS6, APER=rQR
  QCuS7 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS7, APER=rQR
  QCuS8 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS8, APER=rQR
  QCuS9 : QUAD, TYPE="@3,2Q10", L=LQR/2, K1=KQCuS9, APER=rQR

! outer rolled bends

  ZBRCuS  := 1.0    !bend straight length (1.0D38.37) (m)
  GBRCuS  := 0.0254 !bend gap height (m)

  ABRCuS :=  0.012534139549
  LBRCuS :=  ZBRCuS*ABRCuS/(2*SIN(ABRCuS/2)) !bend path length (m)
  TBRCuS := -0.786884391235                  !bend roll angle (rad)

  BRCuS1a : SBEN, TYPE="@3,1.0D38.37", L=LBRCuS/2, ANGLE= ABRCuS/2, &
            E1= ABRCuS/2, E2=0, FINT=0.5, FINTX=0, HGAP=GBRCuS/2, TILT=TBRCuS
  BRCuS1b : SBEN, TYPE="@3,1.0D38.37", L=LBRCuS/2, ANGLE= ABRCuS/2, &
            E2= ABRCuS/2, E1=0, FINT=0, FINTX=0.5, HGAP=GBRCuS/2, TILT=TBRCuS

  BRCuS2a : SBEN, TYPE="@3,1.0D38.37", L=LBRCuS/2, ANGLE=-ABRCuS/2, &
            E1=-ABRCuS/2, E2=0, FINT=0.5, FINTX=0, HGAP=GBRCuS/2, TILT=TBRCuS
  BRCuS2b : SBEN, TYPE="@3,1.0D38.37", L=LBRCuS/2, ANGLE=-ABRCuS/2, &
            E2=-ABRCuS/2, E1=0, FINT=0, FINTX=0.5, HGAP=GBRCuS/2, TILT=TBRCuS

! inner vertical bends

  ZBYCuS  := 0.6    !bend straight length (m)
  GBYCuS  := 0.0254 !bend full gap (m)

  ABYCuS  := 0.103108493743E-2
  LBYCuS  := ZBYCuS*ABYCuS/(2*SIN(ABYCuS/2)) !bend path length (m)

  BYCuS1a : SBEN, TYPE="@3,1.0D22.625", L=LBYCuS/2, ANGLE= ABYCuS/2, &
            E1= ABYCuS/2, E2=0, FINT=0.5, FINTX=0, HGAP=GBYCuS/2, TILT=PI/2
  BYCuS1b : SBEN, TYPE="@3,1.0D22.625", L=LBYCuS/2, ANGLE= ABYCuS/2, &
            E2= ABYCuS/2, E1=0, FINT=0, FINTX=0.5, HGAP=GBYCuS/2, TILT=PI/2

  BYCuS2a : SBEN, TYPE="@3,1.0D22.625", L=LBYCuS/2, ANGLE=-ABYCuS/2, &
            E1=-ABYCuS/2, E2=0, FINT=0.5, FINTX=0, HGAP=GBYCuS/2, TILT=PI/2
  BYCuS2b : SBEN, TYPE="@3,1.0D22.625", L=LBYCuS/2, ANGLE=-ABYCuS/2, &
            E2=-ABYCuS/2, E1=0, FINT=0, FINTX=0.5, HGAP=GBYCuS/2, TILT=PI/2

! drifts

  LDCuS1  := 17.5
  LDCuS5  := 1.5
  LDCuS6  := 1.0
 dLDCuS3  := 0.
  LDCuS3  := (16.9693549277269-LDCuS5-LDCuS6)/3 +dLDCuS3
  LDCuS2  := LDCuS3
  LDCuS4  := LDCuS3
  LDCuS7  := LDCuS6
  LDCuS8  := LDCuS5
  LDCuS9  := LDCuS4
  LDCuS10 := LDCuS3
  LDCuS11 := LDCuS2
  LDCuS12 := LDCuS1

  LDCuS2a  := 0.5
  LDCuS2b  := LDCuS2-LDCuS2a
  LDCuS3a  := 0.5
  LDCuS3b  := LDCuS3-LDCuS3a
  LDCuS4a  := 0.5
  LDCuS4b  := LDCuS4-LDCuS4a
  LDCuS5a  := 0.5
  LDCuS5b  := LDCuS5-LDCuS5a
  LDCuS7a  := 0.5
  LDCuS7b  := LDCuS7-LDCuS7a
  LDCuS9a  := 0.5
  LDCuS9b  := LDCuS9-LDCuS9a
  LDCuS10a := 0.5
  LDCuS10b := LDCuS10-LDCuS10a
  LDCuS11a := 0.5
  LDCuS11b := LDCuS11-LDCuS11a
  LDCuS12a := 0.5
  LDCuS12b := LDCuS12-LDCuS12a

  DCuS1   : DRIF, L=LDCuS1
  DCuS2a  : DRIF, L=LDCuS2a
  DCuS2b  : DRIF, L=LDCuS2b
  DCuS3a  : DRIF, L=LDCuS3a
  DCuS3b  : DRIF, L=LDCuS3b
  DCuS4a  : DRIF, L=LDCuS4a
  DCuS4b  : DRIF, L=LDCuS4b
  DCuS5a  : DRIF, L=LDCuS5a
  DCuS5b  : DRIF, L=LDCuS5b
  DCuS6   : DRIF, L=LDCuS6
  DCuS7a  : DRIF, L=LDCuS7a
  DCuS7b  : DRIF, L=LDCuS7b
  DCuS8   : DRIF, L=LDCuS8
  DCuS9a  : DRIF, L=LDCuS9a
  DCuS9b  : DRIF, L=LDCuS9b
  DCuS10a : DRIF, L=LDCuS10a
  DCuS10b : DRIF, L=LDCuS10b
  DCuS11a : DRIF, L=LDCuS11a
  DCuS11b : DRIF, L=LDCuS11b
  DCuS12a : DRIF, L=LDCuS12a
  DCuS12b : DRIF, L=LDCuS12b

! markers

  CENCuSXR : MARK !center of CuSXR
  CNTCuS1  : MARK, TYPE="CENTER"
  CNTCuS2  : MARK, TYPE="CENTER"
  CNTCuS3  : MARK, TYPE="CENTER"
  CNTCuS4  : MARK, TYPE="CENTER"

! monitors

  BPMCuS1  : MONI, TYPE="@3,Stripline-3"
  BPMCuS2  : MONI, TYPE="@3,Stripline-3"
  BPMCuS3  : MONI, TYPE="@3,Stripline-3"
  BPMCuS4  : MONI, TYPE="@3,Stripline-3"
  BPMCuS5  : MONI, TYPE="@3,Stripline-3"
  BPMCuS6  : MONI, TYPE="@3,Stripline-3"
  BPMCuS7  : MONI, TYPE="@3,Stripline-3"
  BPMCuS8  : MONI, TYPE="@3,Stripline-3"
  BPMCuS9  : MONI, TYPE="@3,Stripline-3"

! steering correctors

  XCCuS1 : HKIC, TYPE="@3,class-4" !type TBD
  XCCuS4 : HKIC, TYPE="@3,class-4" !type TBD
  XCCuS6 : HKIC, TYPE="@3,class-4" !type TBD
  XCCuS9 : HKIC, TYPE="@3,class-4" !type TBD

  YCCuS2 : VKIC, TYPE="@3,class-4" !type TBD
  YCCuS3 : VKIC, TYPE="@3,class-4" !type TBD
  YCCuS5 : VKIC, TYPE="@3,class-4" !type TBD
  YCCuS7 : VKIC, TYPE="@3,class-4" !type TBD
  YCCuS8 : VKIC, TYPE="@3,class-4" !type TBD

! stoppers

! other diagnostic

  LPCCuS := 0.3 !length of BCS protection collimator (TBD)

! SROT to remove rotation angle

  AROCuSo := -0.392770230446E-4
  AROCuSi :=  0.172850424966E-15

  ROCuS1 : SROT, ANGLE= AROCuSo
  ROCuS2 : SROT, ANGLE=-AROCuSo
  ROCuS3 : SROT, ANGLE= AROCuSi
  ROCuS4 : SROT, ANGLE=-AROCuSi

! beamlines

  CuSXR : LINE=(SEQ20BEG,BEGCuSXR ,&
                BRCuS1a,        BRCuS1b ,CNTCuS1,ROCuS1,DCuS1  ,&
                QCuS1  ,BPMCuS1,QCuS1   ,DCuS2a ,XCCuS1,DCuS2b ,&
                QCuS2  ,BPMCuS2,QCuS2   ,DCuS3a ,YCCuS2,DCuS3b ,&
                QCuS3  ,BPMCuS3,QCuS3   ,DCuS4a ,YCCuS3,DCuS4b ,&
                QCuS4  ,BPMCuS4,QCuS4   ,DCuS5a ,XCCuS4,DCuS5b ,&
                BYCuS1a,        BYCuS1b ,CNTCuS3,ROCuS3,DCuS6  ,&
                QCuS5  ,BPMCuS5,CENCuSXR,QCuS5  ,&
                                         DCuS7a ,YCCuS5,DCuS7b ,ROCuS4,&
                BYCuS2a,        BYCuS2b ,CNTCuS4,       DCuS8  ,&
                QCuS6  ,BPMCuS6,QCuS6   ,DCuS9a ,XCCuS6,DCuS9b ,&
                QCuS7  ,BPMCuS7,QCuS7   ,DCuS10a,YCCuS7,DCuS10b,&
                QCuS8  ,BPMCuS8,QCuS8   ,DCuS11a,YCCuS8,DCuS11b,&
                QCuS9  ,BPMCuS9,QCuS9   ,DCuS12a,XCCuS9,DCuS12b,ROCuS2,&
                BRCuS2a,        BRCuS2b ,CNTCuS2,&
                ENDCuSXR,SEQ20END )

  RETURN