! S I S 18
TITLE, " -- SIS -- : bend. quad. sex. with correction to fringe "

   !--------------------- DRIFT SPACES DEFINITION ---------------------
   DR1: DRIFT, TYPE=DRIF, L=0.6450000
   DR2: DRIFT, TYPE=DRIF, L=0.9700000
   DR3: DRIFT, TYPE=DRIF, L=6.8390117
   DR4: DRIFT, TYPE=DRIF, L=0.6000000
   DR5: DRIFT, TYPE=DRIF, L=0.7098000
   DR6: DRIFT, TYPE=DRIF, L=0.4998000
   DRB: DRIFT, TYPE=DRIF, L= 2.617993877991
   !---------------------------------------------------------------------

   !-------------------------- BENDING MAGNET ---------------------------
   ALPHA := 15 * RADDEG
   LL     := 150 * RADDEG
   PFR    := 7.3* RADDEG
   FI     := 0.7
   RB: SBEND,TYPE=B1,L= LL,ANGLE= ALPHA,E1= PFR,E2=PFR,HGAP= 0.035,FINT= FI
   ! ------------------- horizontal quadrupole ----------------------------
   QS1F: QUADRUPOLE, TYPE= QD1, L= 1.0400000, K1= 0.30989596
   QS2D: QUADRUPOLE, TYPE= QD2, L= 1.0400000, K1= -0.49964116
   QS3T: QUADRUPOLE, TYPE= QD3, L= 0.4804000, K1= 0.62221964
!   QS1F: QUADRUPOLE, TYPE= QD1, L= 1.0400000, K1= 0.361646718
!   QS2D: QUADRUPOLE, TYPE= QD2, L= 1.0400000, K1= -0.361646718
!   QS3T: QUADRUPOLE, TYPE= QD3, L= 0.4804000, K1= 0.06222151

!---------------------------------------------------------------

   ! --------------------------- LINE DEFINITION ---------------------------
   CELLA: LINE=(DR1,RB,DR2,RB,DR3,QS1F,DR4,QS2D,DR5,QS3T,DR6)
!   CELLA: LINE=(DR1,DRB,DR2,DRB,DR3,QS1F,DR4,QS2D,DR5,QS3T,DR6)
   !------------------------------------------------------------------------
   MACHINE: LINE=(12*CELLA)

USE, MACHINE

!-------------------------------------------------------

TWISS,DELTAP=-0.001:0.001:0.0001,SAVE

!   PRINT, FULL
!   TWISS, SAVE
!   PLOT, HAXIS=S, VAXIS2=DX