!!!!
! PLS2 bare lattice
! 2009. 09. 21. modified by Youngim KIM
!!!!

!!Wiggler

ID1:WIGGLER,L=0.98,POLES=14,RADIUS=5
ID2:WIGGLER,L=1,POLES=100,RADIUS=8.333
ID3:WIGGLER,L=2,POLES=59,RADIUS=10.101


!
!RF Cavity
!

RFC : RFCA, FREQ=499.968E6, VOLT=3.3E6, PHASE=162

!!FitPoint
FIT: MARK,FITPOINT=1
FIT1:MARK,FITPOINT=1
FIT2:MARK,FITPOINT=1
FIT3:MARK,FITPOINT=1
!FIT4:MARK,FITPOINT=1
!FIT5:MARK,FITPOINT=1
!FIT6:MARK,FITPOINT=1
!FIT7:MARK,FITPOINT=1
!FIT8:MARK,FITPOINT=1
!FIT9:MARK,FITPOINT=1

!FIT10:MARK,FITPOINT=1
!FIT11:MARK,FITPOINT=1
!FIT12:MARK,FITPOINT=1
!FIT13:MARK,FITPOINT=1
!FIT14:MARK,FITPOINT=1
!FIT15:MARK,FITPOINT=1
!FIT16:MARK,FITPOINT=1
!FIT17:MARK,FITPOINT=1


!!FIT13:MARK,FITPOINT=1



!
!!BPM
!

BPM: MONI

!
!Bend
!

BM  : SBEN, L=1.8,ANGLE=0.2617994,E1=0.1308997,E2=0.1308997,&
              K1=-0.400,&  
!	N_KICKS=30,&
!	EDGE_ORDER=2,&
!	SYNCH_RAD=1
!	integration_order=4,&
             HGAP=0.04,FINT=0.35,&
             EDGE1_EFFECTS=1,EDGE2_EFFECTS=1

!
!Quadrupole
!
Q101a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q101b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q102a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q102b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q103a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q103b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q104a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q104b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q105a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q105b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q106a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q106b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q107a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q107b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q108a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q108b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q109a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q109b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q110a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q110b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q111a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q111b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q112a :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30
Q112b :  KQUAD, L=0.220, K1=-1.213136 ,N_KICKS=30

Q201a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q201b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q202a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q202b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q203a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q203b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q204a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q204b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q205a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q205b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q206a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q206b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q207a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q207b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q208a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q208b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q209a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q209b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q210a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q210b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q211a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q211b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q212a :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30
Q212b :  KQUAD, L=0.330, K1= 2.16878 ,N_KICKS=30

Q301a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q301b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q302a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q302b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q303a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q303b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q304a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q304b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q305a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q305b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q306a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q306b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q307a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q307b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q308a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q308b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q309a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q309b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q310a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q310b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q311a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q311b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q312a :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30
Q312b :  KQUAD, L=0.510, K1= 1.9121568 ,N_KICKS=30

Q401a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q401b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q402a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q402b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q403a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q403b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q404a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q404b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q405a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q405b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q406a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q406b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q407a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q407b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q408a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q408b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q409a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q409b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q410a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q410b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q411a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q411b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q412a :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30
Q412b :  KQUAD, L=0.220, K1=-1.739545 ,N_KICKS=30

!
!Sextupole without strength limit
!
S1 :  KSEXT, L=0.100, K2=  6.225  ,N_KICKS=30
S2 :  KSEXT, L=0.100, K2=  44.50  ,N_KICKS=30
S3 :  KSEXT, L=0.200, K2= -34.055  ,N_KICKS=30
S4 :  KSEXT, L=0.150, K2= -58.3933 ,N_KICKS=30
S5 :  KSEXT, L=0.150, K2=  61.87733 ,N_KICKS=30
S6 :  KSEXT, L=0.100, K2= -27.59  ,N_KICKS=30

!Sextupole with strength limit
!
!S1 :  KSEXT, L=0.100, K2=  40.2528  ,N_KICKS=30
!S2 :  KSEXT, L=0.100, K2=  21.3804  ,N_KICKS=30
!S3 :  KSEXT, L=0.200, K2= -46.2018  ,N_KICKS=30
!S4 :  KSEXT, L=0.150, K2= -47.0978  ,N_KICKS=30
!S5 :  KSEXT, L=0.150, K2=  59.0832  ,N_KICKS=30
!S6 :  KSEXT, L=0.100, K2= -44.0000  ,N_KICKS=30
!
!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

L00 : DRIFT,L=1.440
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

L900 : DRIFT, L=0.550
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.570
L918  :  DRIFT, L=0.550
L919  :  DRIFT, L=0.550
L9110 :  DRIFT, L=0.550
L9112 :  DRIFT, L=0.550

CORRECTOR
VCOR: VKICK,L=0.0
HCOR: HKICK,L=0.0
HVCOR: LINE=(VCOR,HCOR)

!
! 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
!

!BM: LINE=(BM1,BM2,BM3)


CEL1 : LINE=(FIT,L0,BPM,Q101a,L1,S1,HVCOR,L11,FIT1,Q201a,L2,S2,BPM,L3,S3,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q301a,FIT3,L80,S5,L82,Q401a,L90,S6,HVCOR,BPM,L900,ID2,ID2,L900,BPM,&
             HVCOR,S6,L90,Q401b,L82,S5,L80,FIT3,Q301b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q201b,FIT1,L11,HVCOR,S1,L1,Q101b,BPM,L00,ID3,FIT)
CEL2 : LINE=(FIT,ID3,L00,BPM,Q102a,L1,S1,HVCOR,L11,FIT1,Q202a,L2,S2,BPM,L3,S3,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q302a,FIT3,L80,S5,L82,Q402a,L90,S6,HVCOR,BPM,L900,ID2,ID2,L900,BPM,&
             HVCOR,S6,L90,Q402b,L82,S5,L80,FIT3,Q302b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q202b,FIT1,L11,HVCOR,S1,L1,Q102b,BPM,L00,ID3,FIT)
CEL3 : LINE=(FIT,ID3,L00,BPM,Q103a,L1,S1,HVCOR,L11,FIT1,Q203a,L2,S2,BPM,L3,S3,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q303a,FIT3,L80,S5,L82,Q403a,L90,S6,HVCOR,BPM,L900,ID2,ID2,L900,BPM,&
             HVCOR,S6,L90,Q403b,L82,S5,L80,FIT3,Q303b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q203b,FIT1,L11,HVCOR,S1,L1,Q103b,BPM,L00,ID3,FIT)
CEL4 : LINE=(FIT,ID3,L00,BPM,Q104a,L1,S1,HVCOR,L11,FIT1,Q204a,L2,S2,BPM,L3,S3,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q304a,FIT3,L80,S5,L82,Q404a,L90,S6,HVCOR,BPM,L900,ID2,ID2,L900,BPM,&
             HVCOR,S6,L90,Q404b,L82,S5,L80,FIT3,Q304b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q204b,FIT1,L11,HVCOR,S1,L1,Q104b,BPM,L00,ID3,FIT)
CEL5 : LINE=(FIT,ID3,L00,BPM,Q105a,L1,S1,HVCOR,L11,FIT1,Q205a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q305a,FIT3,L80,S5,L82,Q405a,L90,S6,HVCOR,BPM,L915,ID1,ID1,L915,BPM,&
             HVCOR,S6,L90,Q405b,L82,S5,L80,FIT3,Q305b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q205b,FIT1,L11,HVCOR,S1,L1,Q105b,BPM,L00,ID3,FIT)
CEL6 : LINE=(FIT,ID3,L00,BPM,Q106a,L1,S1,HVCOR,L11,FIT1,Q206a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q306a,FIT3,L80,S5,L82,Q406a,L90,S6,HVCOR,BPM,L916,ID1,ID1,L916,BPM,&
             HVCOR,S6,L90,Q406b,L82,S5,L80,FIT3,Q306b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q206b,FIT1,L11,HVCOR,S1,L1,Q106b,BPM,L00,ID3,FIT)
CEL7 : LINE=(FIT,ID3,L00,BPM,Q107a,L1,S1,HVCOR,L11,FIT1,Q207a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q307a,FIT3,L80,S5,L82,Q407a,L90,S6,HVCOR,BPM,L917,ID1,ID1,L917,BPM,&
             HVCOR,S6,L90,Q407b,L82,S5,L80,FIT3,Q307b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q207b,FIT1,L11,HVCOR,S1,L1,Q107b,BPM,L00,ID3,FIT)
CEL8 : LINE=(FIT,ID3,L00,BPM,Q108a,L1,S1,HVCOR,L11,FIT1,Q208a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q308a,FIT3,L80,S5,L82,Q408a,L90,S6,HVCOR,BPM,L918,ID2,ID2,L918,BPM,&
             HVCOR,S6,L90,Q408b,L82,S5,L80,FIT3,Q308b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q208b,FIT1,L11,HVCOR,S1,L1,Q108b,BPM,L00,ID3,FIT)
CEL9 : LINE=(FIT,ID3,L00,BPM,Q109a,L1,S1,HVCOR,L11,FIT1,Q209a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q309a,FIT3,L80,S5,L82,Q409a,L90,S6,HVCOR,BPM,L919,ID2,ID2,L919,BPM,&
             HVCOR,S6,L90,Q409b,L82,S5,L80,FIT3,Q309b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q209b,FIT1,L11,HVCOR,S1,L1,Q109b,BPM,L00,ID3,FIT)
CEL10: LINE=(FIT,ID3,L00,BPM,Q110a,L1,S1,HVCOR,L11,FIT1,Q210a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q310a,FIT3,L80,S5,L82,Q410a,L90,S6,HVCOR,BPM,L9110,ID2,ID2,L9110,BPM,&
             HVCOR,S6,L90,Q410b,L82,S5,L80,FIT3,Q310b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q210b,FIT1,L11,HVCOR,S1,L1,Q110b,BPM,L00,ID3,FIT)
CEL11: LINE=(FIT,ID3,L00,BPM,Q111a,L1,S1,HVCOR,L11,FIT1,Q211a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q311a,FIT3,L80,S5,L82,Q411a,L90,S6,HVCOR,BPM,L911,MPW10h,MPW10h,L911,BPM,&
             HVCOR,S6,L90,Q411b,L82,S5,L80,FIT3,Q311b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q211b,FIT1,L11,HVCOR,S1,L1,Q111b,BPM,L0,FIT)
CEL12: LINE=(FIT,L0,BPM,Q112a,L1,S1,HVCOR,L11,FIT1,Q212a,L2,S2,L3,S3,BPM,L4,FIT2,BM,L6,S4,HVCOR,L7,BPM,&
             Q312a,FIT3,L80,S5,L82,Q412a,L90,S6,HVCOR,BPM,L91,L91,BPM,&
             HVCOR,S6,L90,Q412b,L82,S5,L80,FIT3,Q312b,BPM,L7,HVCOR,S4,L6,BM,FIT2,L4,S3,L3,BPM,S2,&
             L2,Q212b,FIT1,L11,HVCOR,S1,L1,Q112b,BPM,L0,FIT)

mal: malign,on_pass=0
!PLS1  : LINE=(mal,CEL1,CEL2,CEL3,CEL4,CEL5,CEL6)
PLS  : LINE=(mal,CEL1,CEL2,CEL3,CEL4,CEL5,CEL6,CEL7,CEL8,CEL9,CEL10,CEL11,CEL12)
USE,PLS
RETURN