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


!***************horz bend string section***********

 ghk1l    =  1.926278E+00 
 ghk2l    = -3.646953E+00 
 ghk3l    =  3.129660E+00

IQ006:   marker
IQ007:   marker
IQ008:   marker
IQ009:   marker
IQ010:   marker
IQ011:   marker


Q006 :    quadrupole, l = lsqa_2,type="sqa",k1 = ghk1l/brho/lsqa_2      
Q007 :    quadrupole, l = l4q24_2,type="4q24",k1 = ghk2l/brho/l4q24_2   
Q008 :    quadrupole, l = lsqb_2,type="sqb",k1 = ghk3l/brho/lsqb_2
Q009 :    quadrupole, l = lsqb_2,type="sqb",k1 = ghk3l/brho/lsqb_2
Q010 :    quadrupole, l = l4q24_2,type="4q24",k1 = ghk2l/brho/l4q24_2 
Q011 :    quadrupole, l = lsqa_2,type="sqa",k1 = ghk1l/brho/lsqa_2 


Q006I:    line = (IQ006,Q006,Q006)   
Q007I:    line = (IQ007,Q007,Q007)   
Q008I:    line = (IQ008,Q008,Q008)   
Q009I:    line = (IQ009,Q009,Q009)   
Q010I:    line = (IQ010,Q010,Q010)   
Q011I:    line = (IQ011,Q011,Q011)   


hbangle:=9.027532679*pi/180

H005  : rbend,l=1.524,type="MDC",angle= -hbangle
H008  : rbend,l=1.524,type="MDC",angle= -hbangle
H011  : rbend,l=1.524,type="MDC",angle= -hbangle

IH005  : marker
IH008  : marker
IH011  : marker

H005I  : line = (dflan,dcmdc,IH005,H005,dcmdc,dflan)
H008I  : line = (dflan,dcmdc,IH008,H008,dcmdc,dflan)
H011I  : line = (dflan,dcmdc,IH011,H011,dcmdc,dflan)


ghdrf_1   : drift, l= 0.60795
ghdrf_2   : drift, l=0
ghdrf_3   : drift, l=lsqc_2
ghdrf_4   : drift, l=4.8
!dpdctoa   : drift, l=-pdatoc
dpdctob   : drift, l= pdctob
ddc4q24   : drift, l=dc4q24

!colh    : drift, l=(3.048/2+0.5)
colh    : drift, l=0.5

!MOM:   marker
!MOM2:   marker

MIDh:   marker

PWC005   : line =(B_SWIC)
PWC011   : line =(B_SWIC)

IPWC005  : marker
IPWC011  : marker

PWC005I   : line =(IPWC005,PWC005)
PWC011I   : line =(IPWC011,PWC011)

dmsw  : drift, l=0.5-0.15875

drgb1  : drift, l=0.079757
drgb2  : drift, l=0.343282
drgb3  : drift, l=0.251842
drgb4  : drift, l= 0.251842
drgb4a : drift, l= 0.51651
drgb5  : drift, l=0.343282
drgb6  : drift, l=0.079757


gHBEND: line = (PWC005I,drgb1,H005I,drgb2,Q006I,&
               ghdrf_1,Q007I,drgb4a,Q008I,drgb3,&
               H008I,drgb4,Q009I,drgb4a,&
               Q010I,ghdrf_1,Q011I,&
               drgb5,H011I,drgb6,PWC011I)

ECMAG_HBND : line = (ECMAG_VMAT,ghbend)