call, filename = "kvals.DSB3_2_dlr.xsif"
!----------------------------------------------------
!  magnets
!----------------------------------------------------
! 
! main dipoles

! change dipole length
! LB = 5.4
 LBB = 1.35
 LB = 5.4 -2*LBB 
! LB = 5.4 -2*LBB + 0.5 !dlr  

!ratio =.7417
ratio =.7417*0.98 * 0.9996
 THETA_dlr:= 0.061692 *ratio
 THETPI_dlr:= 0.044194*ratio
 THETAS_dlr:= 0.044194*ratio

 BB:  SBEND, L = LB, ANGLE = THETA, K1 = 0.0, E1=0.5*THETA, E2=0.5*THETA
 BBpi:  SBEND, L = LB, ANGLE = THETpi, K1 = 0.0, E1=0.5*THETpi, E2=0.5*THETpi
 BBs: SBEND, L = lb, ANGLE = THETAs, K1 = 0.0, E1=0.5*THETAs, E2=0.5*THETAs

 BB_dlr:  SBEND, L = LB, ANGLE = THETA_dlr, K1 = 0.0,&
 E1=0.5*THETA_dlr, E2=0.5*THETA_dlr
 BBpi_dlr:SBEND, L = LB, ANGLE = THETpi_dlr, K1=0.0, &
 E1=0.5*THETpi_dlr, E2=0.5*THETpi_dlr
 BBs_dlr: SBEND, L = lb, ANGLE = THETAs_dlr, K1 = 0.0, &
 E1=0.5*THETAs_dlr, E2=0.5*THETAs_dlr

 !BB:  RBEND, L = LB, ANGLE = THETA, K1 = 0.0, E1=0., E2=0.
 !BBpi:  RBEND, L = LB, ANGLE = THETpi, K1 = 0.0, E1=0., E2=0.
 !BBs: RBEND, L = lb, ANGLE = THETAs, K1 = 0.0, E1=0., E2=0.


 LB0 = 2.0
 LMD0 = 0.4
 LMD1 = 0.2
 LMD2 = 6.783307071569
 LMD3 = 5.124909527754
 LMD4 = 5.795112579686
 LMD4S = 5.8
 LMD5 = 5.8
 LMD6 = 5.315132182892
 LMD7 = 5.79398166557
 LMD7S = 6.135059715599
 LMD8 = 0.2
 DDD = 0.17397089895

 ! quads

 LQ56:   CONSTANT = 0.280        ! length half PEP QD
 LQ73:   CONSTANT = 0.365        ! length half PEP QD
 LQ43:   CONSTANT = 0.215        ! length half PEP LER QD
 DQQ:    drift, L = LQ56-LQ43

KQFB_dlr:= 0.550023555334
KQFPI_dlr:= 0.341499779087
KQFBPI_dlr:= 0.287304535827

!dlr
!kQDPI_dlr :=      -0.286194032276560
!kQFPI_dlr :=       0.340622282875416
!kQFBPI_dlr :=      0.283162453876714
!dlr

 !arc quads
 QD    : QUADRUPO,  L=2*LQ56, K1=KQD_dlr
 QF    : QUADRUPO,  L=LQ73, K1=KQF_dlr
 QDpi  : QUADRUPO,  L=2*LQ56, K1=KQDpi_dlr
 QFpi  : QUADRUPO,  L=LQ73, K1=KQFpi_dlr
 QFBpi : QUADRUPO,  L=LQ73, K1=KQFBpi_dlr
 QFB   : QUADRUPO,  L=LQ73, K1=KQFB_dlr

 ! dispersion suppressor quads 
 QFpis : QUADRUPO,  L=LQ73, K1=KQFpis_dlr
 QDpis : QUADRUPO,  L=2*LQ56,K1=KQDpis_dlr


 ! sexts
 
 LSXT  = 0.125    ! length half-sextupole
ksf2_dlr:=5.481
ksd1_dlr:=-6.3

SF1 : SEXTUPOLE, L=2*LSXT, K2 = KSF1_dlr
SF2 : SEXTUPOLE, L=LSXT, K2 = KSF2_dlr
SD1 : SEXTUPOLE, L=2*LSXT, K2 = KSD1_dlr

! D sextupoles in the dispersion suppressor
SD0I : SEXTUPOLE, L=2*LSXT, K2 = KSD0I_dlr
SD0R : SEXTUPOLE, L=2*LSXT, K2 = KSD0R_dlr
SD2I : SEXTUPOLE, L=2*LSXT, K2 = KSD2I_dlr
SD2R : SEXTUPOLE, L=2*LSXT, K2 = KSD2R_dlr

 !-----------------------------------------
 ! arc cells              
 !-----------------------------------------
FL1=1.15
  DSF:  DRIFT, L=0.25*FL1
  DSD:  DRIFT, L=0.25*FL1
  DLA2: DRIFT, L= 1.94*FL1
  DLA2pi: DRIFT, L= 2.94*FL1

  DLA2s: DRIFT, L= 2.44*FL1

  DLB: DRIFT, L=0.2*FL1
  DLBB: DRIFT, L=LBB*FL1

 LBF=1.75
 LBD=1.35
  DLBF: DRIFT, L=LBF*FL1
  DLBD: DRIFT, L=LBD*FL1
!------------------------------------------------------------------------

 CX_CELL_HER   : LINE=(SF2,DLB,QF, DLB, dsf, DLA2, SD1, DLB,&
                           QD, DLBD, BB, DLBF, QFB,&
                           QFB, DLBF, BB, DLBD,QD,&
                           DLB, SD1, DLA2, dsf, DLB, QF,DLB,SF2)

 CXpi_CELL_HER   : LINE=(SF2,DLB,QFpi, DLB, dsf, DLA2pi, SD1, DLB,&
                         QDpi, DLB, DLBB, BBpi, DLBB, DLB, QFBpi,&
                         QFBpi, DLB, DLBB, BBpi, DLBB, DLB, QDpi,&
                         DLB, SD1, DLA2pi, dsf, DLB, QFpi,DLB,SF2)

 CXpih_CELL_HER   : LINE=(SF2,DLB,QFpi, DLB, dsf, DLA2pi, SD1, DLB,&
                         QDpi, DLB, DLBB, BBpi, DLBB, DLB, QFBpi)

!------------------------------------------------------------
!dlr
 CX_CELL_HER_dlr   : LINE=(SF2,DLB,QF, DLB, dsf, DLA2, SD1, DLB,&
                           QD, DLBD, BB_dlr, DLBF, QFB,&
                           QFB, DLBF, BB_dlr, DLBD,QD,&
                           DLB, SD1, DLA2, dsf, DLB, QF,DLB,SF2)

 CXpi_CELL_HER_dlr   : LINE=(SF2,DLB,QFpi, DLB, dsf, DLA2pi, SD1, DLB,&
                         QDpi, DLB, DLBB, BBpi_dlr, DLBB, DLB, QFBpi,&
                         QFBpi, DLB, DLBB, BBpi_dlr, DLBB, DLB, QDpi,&
                         DLB, SD1, DLA2pi, dsf, DLB, QFpi,DLB,SF2)

 CXpih_CELL_HER_dlr   : LINE=(SF2,DLB,QFpi, DLB, dsf, DLA2pi, SD1, DLB,&
                         QDpi, DLB, DLBB, BBpi_dlr, DLBB, DLB, QFBpi)

!----------------------------------------------------
! arc
!----------------------------------------------------


  arc2_dlr:LINE=( -CXpih_CELL_HER, &
                 13*(CX_CELL_HER, CXPI_CELL_HER), &
!                 14*(CX_CELL_HER, CXPI_CELL_HER), &
                     CX_CELL_HER, CXpih_CELL_HER)

  arc3_dlr:LINE=( -CXpih_CELL_HER, &
!                 13*(CX_CELL_HER, CXPI_CELL_HER), &
                 19*(CX_CELL_HER, CXPI_CELL_HER), &
                     CX_CELL_HER, CXpih_CELL_HER)

  arc4_dlr:LINE=( -CXpih_CELL_HER_dlr, &
!                 13*(CX_CELL_HER, CXPI_CELL_HER_dlr), &
                 19*(CX_CELL_HER_dlr, CXPI_CELL_HER_dlr), &
                     CX_CELL_HER_dlr, CXpih_CELL_HER_dlr)


!----------------------------------------------------
! basic arc cells

CXPI_CX :    LINE=(CXPI_CELL_HER, CX_CELL_HER)
  

! ------------------------------------------------------------------------------
! End   New SuperB-like arc cells matching to DCO straights

! ==============================================================================