!*********g-2 beam line ********
!*********CD1 version **********
!*********6/2013****************



!*** magnet parameters ****


!twopi    = 6.28318530718
!momentum = 8.827385                              ! GeV/c 8.827385
!momentum = 8.88864                              ! GeV/c 8.827385
momentum = 3.1                                 ! GeV/c
brho     = 3.335641 * momentum                   ! T-m


lSDD     =  1.616075                             ! 63.625" SDD arc length
lSQC_2   =  27.6*0.0254/2                        ! half 0.70104 TeV I design report: 0.35052
lSQD_2   =  32.6*0.0254/2                        ! half SQD quad length 0.82804
!lSQD_2   :=  0.396875                        ! half SQD quad length 0.82804
lSQA_2   =  0.4572/2                             ! half 18" TeV I design report
lSQB_2   =  0.64008/2
llQC_2   =  0.77216/2                            ! 0.5*26.25" LQC quad length
llQD_2   =  0.870/2                              ! not correct - but used here
llQE_2   =  0.8205/2                              ! not correct - but used here
LQ32_2    = 0.4064                               ! steel length/2
lSQE_2   =  1.3117/2                             !
llQB_2   =  0.6472/2                             ! 25.5 - 25.3" effective length measured/design report
l4Q24_2   =  0.6604/2
L8Q24_2    = 0.7112/2 
L_NDA      = 0.1651                            !
L_NDB      = 0.466725                            !


!***********coil parameters************
!dcmagcoil:  drift, l=0.2032
dcmagcoil:  drift, l=0.128725
dcedwa  : drift, l=0.1651 
pdcedwa   =0.1651                          
dc63120 : drift, l=0.2286
pdc63120  =0.2286
dcmdc   : drift, l=0.159893
pdcmdc    =0.159893
dcvdpa   : drift,l=0.1524
pdcvdpa   =0.1524
pdqcoil  =0.1016
pnda_coil = 0.06985
dnda_coil: drift, l=0.06985
pndb_coil = 0.0587375
dndb_coil: drift, l=0.0587375

dqcoil  : drift, l=0.1016
dlqcoil : drift, l=0.1778
plqcoil  = 0.1778
dpflan   = 0.1016
bel     : drift, l= 0.127
gatev   : drift, l=0.1016

dm1      : drift, l=0.5   ! generic magnet separation spacing
dm1h     : drift, l=0.25  ! generic half magnet separation spacing
dm1s     : drift, l=0.5-pdqcoil-dpflan
dm1sl   : drift, l=0.5-plqcoil-dpflan

pdatoc    = lsqa_2-lsqc_2
pdctob    = lsqc_2-lsqb_2
pdctod    = lsqc_2-lsqd_2
pddtoa    = lsqd_2-lsqa_2

!dsqah : = 0.46126/2-.4572/2                        ! don't ask
dsqah  = 0.00203                        ! don't ask
dm1a:   drift, l= 0.5 + dsqah
dm1as:   drift, l= 0.5 + dsqah-pdqcoil-dpflan
drsqah:  drift, l=dsqah
fa   = 0.46126/0.4572

dsqch  = 0.333375 - 0.70104/2                        ! don't ask
dm1c  : drift, l= 0.5 + dsqch
dm1cc  : drift, l= 0.5 + 2*dsqch
dm1cs  : drift, l= 0.5 + dsqch-pdqcoil-dpflan
drsqch : drift, l=dsqch
fc      = 0.333375*2/0.70104

dsqdh  = 0.396875 - 0.82804/2                        ! don't ask
dm1d  : drift, l= 0.5 + dsqdh
dm1dd  : drift, l= 0.5 + 2*dsqdh
dm1dds  : drift, l= 0.5 + 2*dsqdh-2*pdqcoil-2*dpflan
dm1ds  : drift, l= 0.5 + dsqdh-pdqcoil-dpflan
drsqdh : drift, l=dsqdh
fd     = 0.396875*2/0.82804


!d4q24 = lsqa_2-l4q24_2
d4q24 = -0.1016
dc4q24 = lsqc_2-l4q24_2
dq24tosqa : drift, l=-d4q24
dsqato4q24 : drift, l=d4q24

!***BPMs****
hbpm     : monitor, l = 0.1524
vbpm     : monitor, l = 0.1524

!*****quad midpoint marker****

QMID:  marker


MW:      MONITOR, l=0.381
TXMW:    MONITOR, l=0.23495
SWIC:    MONITOR, l=0.381
B_SWIC:  MONITOR, l=0.15875
dflan1 :  drift, l=0.1016
dflan :  drift, l=0.1016
dflan2 : drift, l=0.1524
dflan3 : drift, l=0.0762
dflansh :  drift, l=0.1016/2


!SEMSLOT1 : line =(dflan1,MW,dflan1)

IC:  instrument, l=0.381
MIC:  instrument, l=0.15875
ICSLOT1 : line =(dflan1,IC,dflan1)
B_IC:  instrument, l=0.15875

pndbnda = 0.2794

HNDA : hkicker, l= 0.3048,kick=0
VNDA : vkicker, l= 0.3048,kick=0
HNDASLOT1 : line = (dflan1,HNDA,dflan1)
VNDASLOT1 : line = (dflan1,VNDA,dflan1)
HNDB : hkicker, l= 0.7874,kick=0
VNDB : vkicker, l= 0.7874,kick=0
HNDBSLOT1 : line = (dflan1,HNDB,dflan1)
VNDBSLOT1 : line = (dflan1,VNDB,dflan1)

HVDPA  : hkicker, l= 0.762, kick =0
VVDPA  : vkicker, l= 0.762, kick = 0

HVDPASLOT1 : line = (dflan1,HVDPA,dflan1)
VVDPASLOT1 : line = (dflan1,VVDPA,dflan1)


dcolins   = 3.6684