!!!!
! PLS2 bare lattice
!!!!

RFC : RFCA, FREQ=499.968E6, VOLT=3.3E6, PHASE=162

!Bend
!
BM  : CSBEN, L=1.8,ANGLE=0.2617994,E1=0.1308997,E2=0.1308997,&
              K1=-0.400,&  
	N_KICKS=10,&

!
!Quadrupole
!
Q101a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=20
Q201a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=20
Q301a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=20
Q401a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=20

!
!Sextupole without strength limit
!
S1 :  KSEXT, L=0.10, K2=  6.225  ,N_KICKS=10
S2 :  KSEXT, L=0.10, K2=  44.50  ,N_KICKS=10
S3 :  KSEXT, L=0.200, K2= -34.055  ,N_KICKS=10
S4 :  KSEXT, L=0.150, K2= -58.3933 ,N_KICKS=10
S5 :  KSEXT, L=0.150, K2=  61.87733 ,N_KICKS=10
S6 :  KSEXT, L=0.100, K2= -27.59  ,N_KICKS=10

!
!Drift
!
L1    :  DRIFT, L=0.410
L11   :  DRIFT, L=0.275
L2    :  DRIFT, L=0.2465
L3    :  DRIFT, L=0.399
L4    :  DRIFT, L=0.300
L6    :  DRIFT, L=0.1910
L7    :  DRIFT, L=0.290
L80   :  DRIFT, L=0.176
L82   :  DRIFT, L=0.391
L90   :  DRIFT, L=0.194

L0    :  DRIFT, L=3.440
L01   :  DRIFT, L=2.460
L02   :  DRIFT, L=0.955
L03   :  DRIFT, L=2.460
L04   :  DRIFT, L=1.445
L05   :  DRIFT, L=0.940
L06   :  DRIFT, L=0.955
L07   :  DRIFT, L=2.460
L08   :  DRIFT, L=0.955
L09   :  DRIFT, L=2.460

L91   :  DRIFT, L=1.550
L911  :  DRIFT, L=0.550
L912  :  DRIFT, L=0.550
L913  :  DRIFT, L=0.550
L914  :  DRIFT, L=0.550
L915  :  DRIFT, L=0.570
L916  :  DRIFT, L=0.570
L917  :  DRIFT, L=0.550
L918  :  DRIFT, L=0.550
L919  :  DRIFT, L=0.550
L9110 :  DRIFT, L=0.550
L9112 :  DRIFT, L=0.550

!
! ID
! Nominal lattice. (ID is considered as dirift)
!
IVU2h :  DRIFT, L=1.0
MPW14h:  DRIFT, L=0.98
MPW10h:  DRIFT, L=1.0
EPU7Ah:  DRIFT, L=2.485
EPU7Bh:  DRIFT, L=2.485
EPU5h :  DRIFT, L=2.50
U7h   :  DRIFT, L=1.995


!
! Define Cell
!
CEL1 : LINE=(L0,Q101a,L1,S1,L11,Q201a,L2,S2,L3,S3,L4,BM,L6,S4,L7,&
             Q301a,L80,S5,L82,Q401a,L90,S6,L911,IVU2h,IVU2h,L911,&
             S6,L90,Q401a,L82,S5,L80,Q301a,L7,S4,L6,BM,L4,S3,L3,S2,&
             L2,Q201a,L11,S1,L1,Q101a,L01,MPW14h)

mal: malign
PLS  : LINE=(mal,12*CEL1)
USE,PLS
RETURN

