!****combined mucool and diagnostic line

!***new diagnostic line optics**************

!***linac quad magnetic length********

QD74_C    : quadrupole, l=.08984/2, k1=-6.09

ld    : drift, l=0.358397
dm0  : drift, l=.090671
dm1   : drift, l=0.22007 + 0.001045 ! increase in chopper plate length
dm2   : drift, l=.545853+.001045
dm3   : drift, l=1.60347-.2826043-.039255-.002476-0.5518154
dm3a   : drift, l=0.5518154

!********pulsed extraction dipoles and chopper

UHB01     : rbend, l=0.2489962,angle=.052
chop:    rbend, l= 1.524, angle=.0,tilt=-pi/2
UHB02     : rbend, l=0.7020052,angle=.131
UMW1_C:   marker  


extract :  line = (0*ld,0*qd74,qd74_c,dm0,UHB01,dm1,chop,dm2,UHB02,&
                   dm3a,UMW1_C,dm3)


!*** start bend up ramp***********
dm4    : drift, l= 7.476536E-01/5
dm5    : drift, l=.01392288-.00635
dm6    : drift, l= 0.10446928+.00635
dm7    : drift, l= 7.476536E-01/5-0.13945
!dm8    : drift, l= 7.476536E-01+1.0-0.13945
dm8    : drift, l= 0.5449356
dm8a    : drift, l= 1.6082036-0.5449356-.3302
dm9    : drift, l= 7.476536E-01-0.13945
!dm10    : drift, l= 7.476536E-01+2.0-1.25-0.13945-0.4855976
dm10    : drift, l= 0.190208
dm10a    : drift, l= 0.428398
dm10b    : drift, l= 0.4855976
dm11    : drift, l= 7.476536E-01-0.13945
dm12    : drift, l= 1.401238+.1524-1.25-0.13945
dm13    : drift, l= 1.401238 
!dm14    : drift, l= 7.476536E-01/5*20
dm14    : drift, l= 0.2847852
dm14a    : drift, l= 2.4518292
dm15    : drift, l= 7.476536E-01/5*3-0.13945
!dm16    : drift, l= 7.476536E-01/5*10-0.13945
dm16    : drift, l= 0.442549
dm16a    : drift, l=0.6593082
dm17     : drift, l=0.254-0.13945
dm18    : drift, l= 7.476536E-01/5*3-0.13945

dm19    : drift, l= 0.254-0.13945+.00635
!dm20  : drift, l=1.548835208-.239046928-.18066928-.00635
dm20  : drift, l=0.6593082
dm20a  : drift, l=0.2094608
dm21    : drift, l= 7.476536E-01/5*3-0.13945
dm22  : drift, l=2.188939E+00-.5-0.08138-.18066928-0.13945
dm22  : drift, l=1.28743972-0.630684
dm22a  : drift, l=0.630684
dm23  : drift, l=.06815072
dm24    : drift, l= 7.476536E-01/5*4-0.4970038
dm25   : drift, l=0.15116705
dm26  : drift, l=.4970038
!dm27   : drift, l=4.767599E-01+0.15116705
dm27   : drift, l=0.23737615
dm27a   : drift, l=0.1365508
dm28  : drift, l=0.2953516
dm28a  : drift, l=1.110793
!dm28b  : drift, l=5/10*10-0.2953516-1.110793
dm28b  : drift, l=0.3048
!dm29  : drift, l=5/10*10
dm29  : drift, l=4.6314554
!dm30   : drift, l=4.767599E-01+0.15116705
dm30   : drift, l=0.13554595
dm30a   : drift, l=0.238381
dm31   : drift, l=0.15116705
dm32    : drift, l= 7.476536E-01/5*4
dm33  : drift, l=.06815072
dm34   : drift, l=0.5-0.08138
dm35  : drift, l=0.2953516
dm35a  : drift, l=2.188939E+00-.5-0.2953516

!************multiwires

UMW2_C:   marker  
UMW3_C:   marker  
UMW4_C:   marker  
UMW5_C:   marker  
UMW6_C:   marker  


UVB01    : rbend,l= 0.3302,angle= .018355858+(.004*0.49),tilt=-pi/2
!UVB01    : rbend,l= 0.3302,angle= .001*18.2696*1.0047214,tilt=-pi/2

UVB02    : rbend,l= 0.3302,angle= .001*0.85*18.2696*1.0047214,tilt=-pi/2
UVB03    : rbend,l= 0.3302,angle= -.0303656*1.0047214*0,tilt=-pi/2
UVB04    : rbend,l= 0.3302,angle= -.0036*0.49,tilt=-pi/2


!*******200-MeV quads

uq01    :    quadrupole, l = .2985,k1 = 1.515392E+00 
uq02    :    quadrupole, l = .2985,k1 = -9.213345E-01
uq03    :    quadrupole, l = .2985,k1 = 1.526284E+00 
uq04    :    quadrupole, l = .2985,k1 = -1.317844E+00 
uq05    :    quadrupole, l = .2985,k1 = 2.141151E+00


dispy   : marker
shieldu : marker
shieldd : marker

T1  : = 0.180
T2    : = 0.17/2-T1-.01


UHB04    :   rbend, l = 1.3086, angle = T2

DCRD    : drift, l=.13945
UHB03    :   rbend, l = 1.3086, angle = .170+.01

CRDSLOT1 : line =(DCRD,UHB03,DCRD)
CRDSLOT2 : line =(DCRD,UHB04,DCRD)

DIAG5  : drift, l=2.394875E+00-1.3086

!trims---------
UHT03_VT03:     hkicker, l=0.254,kick=0
UHT04_VT04:     hkicker, l=0.254,kick=0
UHT06:     hkicker, l=0.254,kick=0
UHT09_VT09:     hkicker, l=0.254,kick=0
UHT10_VT10:     hkicker, l=0.254,kick=0

ramp :line =(extract,uq01,dm4,dm5,UVB01,dm6,dm7,CRDSLOT1,&
              dm8,UVB04,dm8a,uq02,dm9,CRDSLOT1,dm10,UHT03_VT03,dm10a,&
              UMW2_C,dm10b,uq03,&
              dm11,CRDSLOT1,dm12,dm13,&
              uq04,dm14,UHT04_VT04,dm14a,uq05,dm15,CRDSLOT1,&
              dm16,UHT06,dm16a,uq06,dm17,&
              CRDSLOT2,dm18)

ramp1 :line=(extract,uq01,dm4,dm5,UVB01,dm6,dm7,CRDSLOT1,&
             dm8,UVB04,dm8a,uq02,&
             dm9,CRDSLOT1,dm10,UHT03_VT03,dm10a,UMW2_C,dm10b,uq03,&
             dm11,CRDSLOT1,dm12,dm13,&
             uq04,dm14,UHT04_VT04,dm14a,uq05,dm15,CRDSLOT1)


!**************

uq06    :    quadrupole, l = .2985,k1 = 3.183261E-01 
uq07    :    quadrupole, l = .46126,type="sqa",k1 =  -1.131414E+00
uq08    :    quadrupole,type="sqa", l = 0.46126,k1 = 1.796769E+00
uq09    :    quadrupole, l = .2985,k1 = -1.433901E+00

uq10    :    quadrupole, l = .2985,k1 =-1.333058E+00 
uq11    :    quadrupole, type="sqa",l = .46126,k1 = 1.862412E+00
uq12    :    quadrupole, l = .46126,type="sqa",k1 =  -1.184130E+00


blocks  : drift, l=3.6576

shield  : line = (shieldu,blocks,shieldd)

emit: line= (dm28a,UMW4_C,dm28,uq09,dm27a,UHT09_VT09,dm27,uq08,dm26,&
                 dm25,dm24,&
                 dm23,uq07,dm22a,UMW3_C,&
                 dm22,CRDSLOT2,dm21, &
                uq06,dm20a,UHT06,dm20,UVB02,dm19)
emit1  : line = (dm28b,UMW5_C,dm29,uq10,dm30,UHT10_VT10,dm30a,uq11,&
                 dm31,dm32,dm33,&
                 uq12,dm34,UVB03,dm35,UMW6_C,dm35a)

diagnos1  : line = (ramp1,-emit,0*emit1)
diagnos  : line = (ramp1,-emit,shield,emit1)
emittot : line =(-emit,emit)