TITLE
EROS;FULL MACHINE VERSION MAR84 INJEC. POINT (29.55 CM IN FRONT OF QS3F
!*
!     THIS DATASET CONTAINS THE MISALIGNMENT SCHEME DEVELOPPED IN FEBRUARY
!     1985 . THE HC MAGNETS ARE USED TO STEER HORIZONTALLY
!**
UTRANSPORT
NOECHO
FC1: DRIFT, L=0.2916459
FS1N: DRIFT, L=2.254
FC2:DRIFT, L=0.3000000
FC3:DRIFT, L=0.6916459
DFCH:QUADSEXT, L= .15,K1= 3.64364395,K2= -5.94186921
DDCH:QUADSEXT, L= .3,K1= -2.31589474,K2= -3.899127644
QFCH:QUADRUPOLE, L= .15,K1= 3.64364395
QDCH:QUADRUPOLE, L= .3,K1= -2.31589474
DSH:QUADSEXT,L= 0.15,K1= 2.61852925,K2= -2.97093461
HC:SBEND,L= 0.78539816,ANGLE= 45,FINT= .40,HGAP=0.02,    &
      E1=22.5,E2=22.5,FINTX=.40,HGAPX=0.02
FS1:DRIFT,L= 2.554
FS2:DRIFT,L= 1.1255
FS3:DRIFT,L= 3.237
FIE1:DRIFT,L= 0.2955
FIE2:DRIFT,L= 2.9415
FSE1:DRIFT,L= 2.737
FSE2:DRIFT,L= 0.3
ECHO
QS1D:QUADRUPOLE,L= 0.25,K1= -2.52269412
QS2F:QUADRUPOLE,L= 0.25,K1= 2.24132745
QS2D:QUADRUPOLE,L= 0.25,K1= -1.18504679
QS3F:QUADRUPOLE,L= 0.25,K1= 1.099786801
QS3D:QUADRUPOLE,L= 0.25,K1= -1.318180800
NOECHO
SE1:SEXTUPOLE,L= 0.20,K2= 1.5
SE2:SEXTUPOLE,L= 0.20,K2= -1.5
FK11:DRIFT,L= 0.5
FK12:DRIFT,L= 0.6255
FK21:DRIFT,L= 2.61300000
FK22:DRIFT,L= 0.62400000
K1:GKICK,DYP=0,V= 1,T= 1
K2:GKICK,DYP= 0,V=1,T= 1
KCv:GKICK,V=1,T=1
Ksv:GKICK,V=1,T=1
Ksh:GKICK,V=1,T=1
PMs:MONITOR
PMc:MONITOR
MRKC1:MARKER
MRKC2:MARKER
MRKS1:MARKER
MRKS2:MARKER
BL:LINE=(DSH,MRKC1,FC3,KCv,DDCH,FC2,HC,FC1,DFCH,         &
DFCH,FC3,KCv,DDCH,FC2,HC,PMC,FC1,DFCH,                 &
DFCH,FC3,KCv,DDCH,FC2,HC,PMC,FC1,DFCH,                 &
DFCH,FC3,KCv,DDCH,FC2,HC,PMC,FC1,DSH,                  &
DSH,FS1,PMC,MRKS1,QS1D,Ksv,FK11,K1,FK12,QS2F,Ksh,FS3,QS2D,   &
FIE2,                                                  &
FIE1,QS3F,PMs,FS3,QS3D,Ksv,FS3,QS3F,Ksh,FK21,K2,FK22,QS3D,  &
FSE1,SE1,FSE2,QS3F,PMs,FS3,QS3D,FS3,Ksh,               &
QS3F,FS3,Ksv,QS2D,FS3,QS2F,FS2,PMs,QS1D,FS1,DSH,       &
DSH,MRKC2,FC3,Kcv,DDCH,FC2,HC,FC1,DFCH,                  &
DFCH,FC3,KCv,DDCH,FC2,HC,PMC,FC1,DFCH,                 &
DFCH,FC3,KCv,DDCH,FC2,HC,PMC,FC1,DFCH,                 &
DFCH,FC3,KCv,DDCH,FC2,HC,PMC,FC1,DSH,                  &
DSH,FS1,PMC,MRKS2,QS1D,Ksv,FS2,QS2F,Ksh,FS3,QS2D,FS3,QS3F,PMs, &
FS3,QS3D,Ksv,FS3,QS3F,Ksh,FS3,QS3D,                    &
FSE1,SE2,FSE2,QS3F,PMs,FIE1,FIE2,QS3D,FS3,Ksh,         &
QS3F,FS3,Ksv,QS2D,FS3,QS2F,FS2,PMs,QS1D,FS1,           &
DSH)
CCEL:LINE=(DFCH,FC3,KCv,DDCH,FC2,HC,PMC,FC1,DFCH)
QCCEL:LINE=(QFCH,FC3,KCv,QDCH,FC2,HC,PMC,FC1,QFCH)
USE,BL
cosy
stop