! Based on straights from ILCDR FODO LATTICE "DCO4" 
! that were created by Maxim Krostelev, Andy Wolski, (Cockcroft), Aug 2009
! with New arcs, modified wiggler and RF straights. David Rubin, (Cornell), June 2011
  E0      := 5.0           ! nominal beam energy (GeV)
NAME:BEAM, energy=5.0


  BLENGTH := 2.00          ! length of standard bending magnet
  QLENGTH := 0.30          ! length of standard quadrupole

  ratio =.7417*0.98 * 0.9996

  THETPI_dlr:= 0.044194*ratio


  ANGARCB := thetpi_dlr  ! ?
  scl := 1.2643 ! scale coefficient to squeeze length of the drifts in the MDW


!--------1---------2---------3---------4---------5---------6---------7---------8
! Instrumentation and correction components
!------------------------------------------------------------------------------
! For matching iterations only LDBPM:=0, LDCOR:= 0, LCOR:= 0
!--------1---------2---------3---------4---------5---------6---------7---------8

! Drift from quadrupole to beam position monitor

  LDBPM := 0.0
  DBPM:    DRIFT, L=LDBPM

! Beam position monitor

  BPMRNG:  MONITOR

! Drift from orbit corrector to quadrupole

  LDCOR := 0.0
  DCOR:    DRIFT, L=LDCOR

! Orbit corrector

  LCOR  := 0.0
  CORRNG:  KICKER, L=LCOR, HKICK=0, VKICK=0

! Skew quadrupole (coupling corrector)

  SKQRNG: QUADRUPOLE, L=0.2, K1=0.0, TILT

! Corrector, quad and BPM

  CQB(Q1): LINE=(CORRNG,DCOR,Q1,DBPM,BPMRNG)

call, filename = "dtc_arc.bmad"
call, filename = "dtc_kvals.bmad"
call, filename = "dtc_straights.bmad"
call, filename= "dtc_psd.bmad"
call, filename= "dtc_dsp.bmad"

call, filename= "5Hz_low_power.bmad"    !1.5T wigglers, 1.1MV/cavity, QWGC2[k1]= -5.4978824668E-01
!call, filename= "10Hz_low_power.bmad"   !2.1T wigglers, 1.64MV/cavity, QWGC2[K1] = -5.09788E-01
  

!--------1---------2---------3---------4---------5---------6---------7---------8
! RING
!--------1---------2---------3---------4---------5---------6---------7---------8

  MRK4:   MARKER
  IMRK4:   MARKER
  END_MARK:   MARKER


  ARC1_MARK: marker
  ARC2_MARK: marker
  IP_L0: marker


  MID_WIG_STRAIGHT : marker, superimpose,ref = BSMRK,offset = 712.3251/2 
  MID_INJ_STRAIGHT : marker, superimpose, ref=BSMIK, offset = 712.3251/2 

  HRINGR_dtc:  LINE=(PSD, IMRK4,arc6_dlr, MRK1, DSP,BSMRK,        &
                    5*PHT, MRKR_PHT,  &
                     MPR,MRKR_MPR,    &
                   3*RFC_4cav,RFC_4nocav, MRKR_RFC, &
                     MRC,MRKR_CCH, &
                     MDW,MRKR_MDW,          &
                  27*WGC, ESMRK, PSD, MRK4)


  HRINGI_dtc:  LINE=(ARC2_mark, arc6_dlr, IMRK1, DSP, BSMIK,        &
                     2*PHT, MRKI_PHT, MPI,         &
             IMRK2, INJ,EXT,  IMRK3, MIF, &
                    3*IFD, MFC, CCH, MDW, &
                      ESMIK)

  RING:   LINE=(IP_L0, HRINGR_dtc, HRINGI_dtc )

!at start of inj_ext straight betax=39.9100, betay=10.4602, alphax= -1.9083, alphay= 0.5084

!At start of wiggler straight betax=40.0486, betay= 10.4789, alphax -1.8777, alphay= 0.5104

use, wiggler_straight
use, inj_ext_straight
use, ring

RETURN