! HLS2 lattice

B: CSBEND, INTEGRATION_ORDER=4, N_KICKS=26, EDGE_ORDER=1, &
    L=1.7,ANGLE=0.785398,E1=0.392699,E2=0.392699, &
    K1=0.0, K2= 0.0, HGAP= 0.02, FINT= 0.5000000000E+00  
 
C1X: KICKER, L=1E-12
C2X: KICKER, L=1E-12
C3X: KICKER, L=1E-12
C4X: KICKER, L=1E-12
C5X: KICKER, L=1E-12
C6X: KICKER, L=1E-12

C1Y: KICKER, L=1E-12
C2Y: KICKER, L=1E-12
C3Y: KICKER, L=1E-12
C4Y: KICKER, L=1E-12
C5Y: KICKER, L=1E-12
C6Y: KICKER, L=1E-12
C7Y: KICKER, L=1E-12
C8Y: KICKER, L=1E-12

! define L
% 2.46625 sto Labc
DL     : DRIFT, L="Labc"
DQ1    : DRIFT, L=0.30000
DBQ1   : DRIFT, L=0.40000
DBQ2   : DRIFT, L=0.60000
DQ2    : DRIFT, L=0.40000
DM1    : DRIFT, L=1.20000
DM2    : DRIFT, L=1.20000

P1: MONI, WEIGHT = 0
P2: MONI, WEIGHT = 0
P3: MONI, WEIGHT = 0
P4: MONI, WEIGHT = 0
P5: MONI, WEIGHT = 0
P6: MONI, WEIGHT = 0
P7: MONI, WEIGHT = 0
P8: MONI, WEIGHT = 0


Q1H: KQUAD,N_KICKS=30, INTEGRATION_ORDER=4, L=0.15, K1= 2.968093E+00
Q2H: KQUAD,N_KICKS=30, INTEGRATION_ORDER=4, L=0.15, K1=-2.564795E+00
Q3H: KQUAD,N_KICKS=15, INTEGRATION_ORDER=4, L=0.15, K1= 4.588791E+00
Q4H: KQUAD,N_KICKS=15, INTEGRATION_ORDER=4, L=0.15, K1=-3.532602E+00


! convert from thin lens Taylor series to Mad gradients
! LSS= 0.2

SF:  KSEXT,N_KICKS=20, INTEGRATION_ORDER=4,L=0.0000010,K2=2948960   
SD:  KSEXT,N_KICKS=20, INTEGRATION_ORDER=4,L=0.0000010,K2=-7435478  
SF1: KSEXT,N_KICKS=20, INTEGRATION_ORDER=4,L=0.0000010,K2=809980     
SD1: KSEXT,N_KICKS=20, INTEGRATION_ORDER=4,L=0.0000010,K2=-1602376  
   
Q1: LINE=(Q1H,SF1,Q1H)
Q2: LINE=(Q2H,SD1,Q2H)
Q3: LINE=(Q3H,SF,Q3H)
Q4: LINE=(Q4H,SD,Q4H)

ONESP: LINE=(DL,P1,C1X,C1Y,Q1,DQ1,Q2,C2Y,P2,DBQ1,B,DBQ2,P3,C2X,C3Y,Q3,&
             DQ2,P4,Q4,DM1,& 
             DM2,Q4,P5,DQ2,Q3,C3X,C4Y,P6,DBQ2,B,DBQ1,P7,C5Y,&
             Q2,DQ1,Q1,C4X,C6Y,P8,DL)


malin0: malign,on_pass=0,dx=0.0,dp=0.00,force_modify_matrix=1
w1: watch,filename="%s.w1",mode="centroid"

par: LINE=(malin0,w1,4*ONESP)
! ring with extra monitors at the end to constrain the trajectory
!RINGT: LINE=(injoffset,rc, malin0,w1,4*ONESP)
USE,par
RETURN
