! ==============================================================================
! 10-OCT-2013, M. Woodley
!    FACET v33 (high charge, full compression)
! 08-MAR-2013, M. Woodley
!    FACET v31 (low charge, relaxed compression)
! 15-FEB-2013, M. Woodley
!    Match to low-beta optics (LI19 Q901 is a QD)
! 16-AUG-2012, M. Woodley
!    New FACET_linac MAD deck
!    - LCLS/LCLS2-style device naming conventions
!    - "staggered chirp" energy profile in LI02-10
!    - add energy loss from beam loading (as in LiTrack)
!    - 76-degree linac lattice (Q10802 OFF ... e- only)
!    - LI18/LI19 match includes individually powered Q18601-901
!    - add bunch length monitor at 2-9
!    - add TORO LI20 1988
! 02-JUN-2011, M. Woodley
!    FACET LI02-LI20; energy profile from Mark Hogan:
!    - NRTL compressor AMPL = 40.8 MV, PDES = 90 degrees
!    - LI02 injection energy = 1.19 GeV
!    - LI02-10 PDES = -20.4 degrees
!    - LBCC energy = 9.0 GeV
!    - LI11-19 PDES = 0 degrees
!    - FACET energy = 23.0 GeV
! 09-SEP-2009, Y. Nosochkov
!    Cavities in sector-19 and in the last part of sector-18 are turned off
!    in order to set energy to 23 GeV at FACET.
! 27-SEP-2002, M. Woodley
!    SPPS energy profile (9.0 GeV @ LI10 chicane, 28.5 GeV @ BSY)
! ------------------------------------------------------------------------------

! ==============================================================================
! accelerating structures
! ------------------------------------------------------------------------------

! NOTE: energy loss in structures due to longitudinal wake is included!

  KLOSS1 := 5.51068074059E13  !V/C/m (matched to LiTrack energy profile)
  KLOSS2 := 9.791471950166E13 !V/C/m (matched to LiTrack energy profile)

! structure families (used only to document detuning)

  STRUC0 : LCAV, FREQ=2856 !, TYPE="0MHz" !no HOM detuning
  STRUC2 : LCAV, FREQ=2856 !, TYPE="2MHz" !2 MHz HOM detuning
  STRUC4 : LCAV, FREQ=2856 !, TYPE="4MHz" !4 MHz HOM detuning

! assume nominal gradient (except for power factors) in all structures

  GSLED := 235.0/12.17640 !nominal SLEDed base gradient (MeV/m)
  GZERO := 0              !OFF

! subbooster phases ("staggered chirp")

  PSTAG := -11.2

  PHI02 :=   0    /360
  PHI03 := 1*PSTAG/360
  PHI04 := 2*PSTAG/360
  PHI05 := 3*PSTAG/360
  PHI06 := 3*PSTAG/360
  PHI07 :=   0    /360 !RF in LI07 is unavailable
  PHI08 :=   0    /360 !RF in LI08 is unavailable
  PHI09 :=   0    /360
  PHI10 := 5*PSTAG/360
  PHI11 :=   0    /360
  PHI12 :=   0    /360
  PHI13 :=   0    /360
  PHI14 :=   0    /360
  PHI15 :=   0    /360
  PHI16 :=   0    /360
  PHI17 :=   0    /360
  PHI18 :=   0    /360
  PHI19 :=   0    /360

! feedback phases
! - use 9-1 and 9-2 tubes to adjust energy at LBCC chicane
! - use LI17 and LI18 subboosters to adjust energy at FACET chicane

  PFB91 := -87.9/360  !9-1  (LiTrack value)
  PFB92 := -PFB91     !9-2
  PFB17 := -89.49/360 !LI17 (LiTrack value)
  PFB18 := -PFB17     !LI18

! base gradients and klystron phases

  G02_1 := GSLED ; P02_1 := PHI02
  G02_2 := GSLED ; P02_2 := PHI02
  G02_3 := GSLED ; P02_3 := PHI02
  G02_4 := GSLED ; P02_4 := PHI02
  G02_5 := GSLED ; P02_5 := PHI02
  G02_6 := GSLED ; P02_6 := PHI02
  G02_7 := GSLED ; P02_7 := PHI02
  G02_8 := GSLED ; P02_8 := PHI02

  G03_1 := GSLED ; P03_1 := PHI03
  G03_2 := GSLED ; P03_2 := PHI03
  G03_3 := GSLED ; P03_3 := PHI03
  G03_4 := GSLED ; P03_4 := PHI03
  G03_5 := GSLED ; P03_5 := PHI03
  G03_6 := GSLED ; P03_6 := PHI03
  G03_7 := GSLED ; P03_7 := PHI03
  G03_8 := GSLED ; P03_8 := PHI03

  G04_1 := GSLED ; P04_1 := PHI04
  G04_2 := GSLED ; P04_2 := PHI04
  G04_3 := GSLED ; P04_3 := PHI04
  G04_4 := GSLED ; P04_4 := PHI04
  G04_5 := GSLED ; P04_5 := PHI04
  G04_6 := GSLED ; P04_6 := PHI04
  G04_7 := GSLED ; P04_7 := PHI04
  G04_8 := GSLED ; P04_8 := PHI04

  G05_1 := GSLED ; P05_1 := PHI05
  G05_2 := GSLED ; P05_2 := PHI05
  G05_3 := GSLED ; P05_3 := PHI05
  G05_4 := GSLED ; P05_4 := PHI05
  G05_5 := GSLED ; P05_5 := PHI05
  G05_6 := GSLED ; P05_6 := PHI05
  G05_7 := GSLED ; P05_7 := PHI05
  G05_8 := GSLED ; P05_8 := PHI05

  G06_1 := GSLED ; P06_1 := PHI06
  G06_2 := GSLED ; P06_2 := PHI06
  G06_3 := GSLED ; P06_3 := PHI06
  G06_4 := GSLED ; P06_4 := PHI06
  G06_5 := GSLED ; P06_5 := PHI06
  G06_6 := GSLED ; P06_6 := PHI06
  G06_7 := GSLED ; P06_7 := PHI06
  G06_8 := GZERO ; P06_8 := PHI06

! RF in LI07 and LI08 is unavailable

  G07_1 := GZERO ; P07_1 := PHI07
  G07_2 := GZERO ; P07_2 := PHI07
  G07_3 := GZERO ; P07_3 := PHI07
  G07_4 := GZERO ; P07_4 := PHI07
  G07_5 := GZERO ; P07_5 := PHI07
  G07_6 := GZERO ; P07_6 := PHI07
  G07_7 := GZERO ; P07_7 := PHI07
  G07_8 := GZERO ; P07_8 := PHI07

  G08_1 := GZERO ; P08_1 := PHI08
  G08_2 := GZERO ; P08_2 := PHI08
  G08_3 := GZERO ; P08_3 := PHI08
  G08_4 := GZERO ; P08_4 := PHI08
  G08_5 := GZERO ; P08_5 := PHI08
  G08_6 := GZERO ; P08_6 := PHI08
  G08_7 := GZERO ; P08_7 := PHI08
  G08_8 := GZERO ; P08_8 := PHI08

  G09_1 := GSLED ; P09_1 := PFB91
  G09_2 := GSLED ; P09_2 := PFB92
  G09_3 := GZERO ; P09_3 := PHI09
  G09_4 := GZERO ; P09_4 := PHI09
  G09_5 := GZERO ; P09_5 := PHI09
  G09_6 := GZERO ; P09_6 := PHI09
  G09_7 := GZERO ; P09_7 := PHI09
  G09_8 := GZERO ; P09_8 := PHI09

  G10_1 := GZERO ; P10_1 := PHI10
  G10_2 := GZERO ; P10_2 := PHI10
  G10_3 := GZERO ; P10_3 := PHI10
  G10_4 := GZERO ; P10_4 := PHI10
  G10_5 := GZERO ; P10_5 := PHI10
  G10_6 := GZERO ; P10_6 := PHI10
  G10_7 := GZERO ; P10_7 := PHI10

  G11_1 := GSLED ; P11_1 := PHI11
  G11_2 := GSLED ; P11_2 := PHI11
  G11_4 := GSLED ; P11_4 := PHI11
  G11_5 := GSLED ; P11_5 := PHI11
  G11_6 := GSLED ; P11_6 := PHI11
  G11_7 := GSLED ; P11_7 := PHI11
  G11_8 := GSLED ; P11_8 := PHI11

  G12_1 := GSLED ; P12_1 := PHI12
  G12_2 := GSLED ; P12_2 := PHI12
  G12_3 := GSLED ; P12_3 := PHI12
  G12_4 := GSLED ; P12_4 := PHI12
  G12_5 := GSLED ; P12_5 := PHI12
  G12_6 := GSLED ; P12_6 := PHI12
  G12_7 := GSLED ; P12_7 := PHI12
  G12_8 := GSLED ; P12_8 := PHI12

  G13_1 := GSLED ; P13_1 := PHI13
  G13_2 := GSLED ; P13_2 := PHI13
  G13_3 := GSLED ; P13_3 := PHI13
  G13_4 := GSLED ; P13_4 := PHI13
  G13_5 := GSLED ; P13_5 := PHI13
  G13_6 := GSLED ; P13_6 := PHI13
  G13_7 := GSLED ; P13_7 := PHI13
  G13_8 := GSLED ; P13_8 := PHI13

  G14_1 := GSLED ; P14_1 := PHI14
  G14_2 := GSLED ; P14_2 := PHI14
  G14_3 := GSLED ; P14_3 := PHI14
  G14_4 := GSLED ; P14_4 := PHI14
  G14_5 := GSLED ; P14_5 := PHI14
  G14_6 := GSLED ; P14_6 := PHI14
  G14_7 := GSLED ; P14_7 := PHI14
  G14_8 := GSLED ; P14_8 := PHI14

  G15_1 := GSLED ; P15_1 := PHI15
  G15_2 := GSLED ; P15_2 := PHI15
  G15_3 := GSLED ; P15_3 := PHI15
  G15_4 := GSLED ; P15_4 := PHI15
  G15_5 := GSLED ; P15_5 := PHI15
  G15_6 := GSLED ; P15_6 := PHI15
  G15_7 := GSLED ; P15_7 := PHI15
  G15_8 := GSLED ; P15_8 := PHI15

  G16_1 := GSLED ; P16_1 := PHI16
  G16_2 := GSLED ; P16_2 := PHI16
  G16_3 := GSLED ; P16_3 := PHI16
  G16_4 := GSLED ; P16_4 := PHI16
  G16_5 := GSLED ; P16_5 := PHI16
  G16_6 := GSLED ; P16_6 := PHI16
  G16_7 := GSLED ; P16_7 := PHI16
  G16_8 := GSLED ; P16_8 := PHI16

  G17_1 := GSLED ; P17_1 := PFB17
  G17_2 := GSLED ; P17_2 := PFB17
  G17_3 := GSLED ; P17_3 := PFB17
  G17_4 := GSLED ; P17_4 := PFB17
  G17_5 := GSLED ; P17_5 := PFB17
  G17_6 := GSLED ; P17_6 := PFB17
  G17_7 := GSLED ; P17_7 := PFB17
  G17_8 := GSLED ; P17_8 := PFB17

  G18_1 := GSLED ; P18_1 := PFB18
  G18_2 := GSLED ; P18_2 := PFB18
  G18_3 := GSLED ; P18_3 := PFB18
  G18_4 := GSLED ; P18_4 := PFB18
  G18_5 := GSLED ; P18_5 := PFB18
  G18_6 := GSLED ; P18_6 := PFB18
  G18_7 := GSLED ; P18_7 := PFB18
  G18_8 := GSLED ; P18_8 := PFB18

  G19_1 := GSLED ; P19_1 := PHI19
  G19_2 := GSLED ; P19_2 := PHI19
  G19_3 := GSLED ; P19_3 := PHI19
  G19_4 := GZERO ; P19_4 := PHI19
  G19_5 := GZERO ; P19_5 := PHI19
  G19_6 := GZERO ; P19_6 := PHI19
  G19_8 := GZERO ; P19_8 := PHI19

! factors for unequal power feeds

  P25 := 1       !25% power ... standard setup
  P50 := SQRT(2) !50% power

! structure lengths

  DLWG10 := 3.0441
  DLWG9  := 2.8692
  DLWG7  := 2.1694

! structure definitions

  K02_2c1 : STRUC4, L=0.3850, DELTAE=0.3850*G02_2*P50, ELOSS=0.3850*KLOSS1, &
                    PHI0=P02_2 !KLYS LI02 21
  K02_2c2 : STRUC4, L=2.1772, DELTAE=2.1772*G02_2*P50, ELOSS=2.1772*KLOSS1, &
                    PHI0=P02_2 !KLYS LI02 21
  K02_2c3 : STRUC4, L=0.3070, DELTAE=0.3070*G02_2*P50, ELOSS=0.3070*KLOSS1, &
                    PHI0=P02_2 !KLYS LI02 21
  K02_2d1 : STRUC4, L=0.3850, DELTAE=0.3850*G02_2*P50, ELOSS=0.3850*KLOSS1, &
                    PHI0=P02_2 !KLYS LI02 21
  K02_2d2 : STRUC4, L=2.1932, DELTAE=2.1932*G02_2*P50, ELOSS=2.1932*KLOSS1, &
                    PHI0=P02_2 !KLYS LI02 21
  K02_2d3 : STRUC4, L=0.2910, DELTAE=0.2910*G02_2*P50, ELOSS=0.2910*KLOSS1, &
                    PHI0=P02_2 !KLYS LI02 21
  K02_3a1 : STRUC4, L=0.4050, DELTAE=0.4050*G02_1*P50, ELOSS=0.4050*KLOSS1, &
                    PHI0=P02_1 !KLYS LI02 11
  K02_3a2 : STRUC4, L=2.1702, DELTAE=2.1702*G02_1*P50, ELOSS=2.1702*KLOSS1, &
                    PHI0=P02_1 !KLYS LI02 11
  K02_3a3 : STRUC4, L=0.2940, DELTAE=0.2940*G02_1*P50, ELOSS=0.2940*KLOSS1, &
                    PHI0=P02_1 !KLYS LI02 11
  K02_3b1 : STRUC4, L=0.3950, DELTAE=0.3950*G02_1*P50, ELOSS=0.3950*KLOSS1, &
                    PHI0=P02_1 !KLYS LI02 11
  K02_3b2 : STRUC4, L=2.1862, DELTAE=2.1862*G02_1*P50, ELOSS=2.1862*KLOSS1, &
                    PHI0=P02_1 !KLYS LI02 11
  K02_3b3 : STRUC4, L=0.2880, DELTAE=0.2880*G02_1*P50, ELOSS=0.2880*KLOSS1, &
                    PHI0=P02_1 !KLYS LI02 11
  K02_3c1 : STRUC4, L=0.4200, DELTAE=0.4200*G02_3*P50, ELOSS=0.4200*KLOSS1, &
                    PHI0=P02_3 !KLYS LI02 31
  K02_3c2 : STRUC4, L=2.1492, DELTAE=2.1492*G02_3*P50, ELOSS=2.1492*KLOSS1, &
                    PHI0=P02_3 !KLYS LI02 31
  K02_3c3 : STRUC4, L=0.3000, DELTAE=0.3000*G02_3*P50, ELOSS=0.3000*KLOSS1, &
                    PHI0=P02_3 !KLYS LI02 31
  K02_3d1 : STRUC4, L=0.3950, DELTAE=0.3950*G02_3*P50, ELOSS=0.3950*KLOSS1, &
                    PHI0=P02_3 !KLYS LI02 31
  K02_3d2 : STRUC4, L=2.1932, DELTAE=2.1932*G02_3*P50, ELOSS=2.1932*KLOSS1, &
                    PHI0=P02_3 !KLYS LI02 31
  K02_3d3 : STRUC4, L=0.2810, DELTAE=0.2810*G02_3*P50, ELOSS=0.2810*KLOSS1, &
                    PHI0=P02_3 !KLYS LI02 31
  K02_4a1 : STRUC4, L=0.3668, DELTAE=0.3668*G02_4*P25, ELOSS=0.3668*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4a2 : STRUC4, L=2.2474, DELTAE=2.2474*G02_4*P25, ELOSS=2.2474*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4a3 : STRUC4, L=0.2550, DELTAE=0.2550*G02_4*P25, ELOSS=0.2550*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4b1 : STRUC4, L=0.3627, DELTAE=0.3627*G02_4*P25, ELOSS=0.3627*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4b2 : STRUC4, L=2.1500, DELTAE=2.1500*G02_4*P25, ELOSS=2.1500*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4b3 : STRUC4, L=0.3565, DELTAE=0.3565*G02_4*P25, ELOSS=0.3565*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4c1 : STRUC4, L=0.3686, DELTAE=0.3686*G02_4*P25, ELOSS=0.3686*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4c2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_4*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4c3 : STRUC4, L=0.3606, DELTAE=0.3606*G02_4*P25, ELOSS=0.3606*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4d1 : STRUC4, L=0.3645, DELTAE=0.3645*G02_4*P25, ELOSS=0.3645*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4d2 : STRUC4, L=2.3200, DELTAE=2.3200*G02_4*P25, ELOSS=2.3200*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_4d3 : STRUC4, L=0.3596, DELTAE=0.3596*G02_4*P25, ELOSS=0.3596*KLOSS1, &
                    PHI0=P02_4 !KLYS LI02 41
  K02_5a1 : STRUC4, L=0.3724, DELTAE=0.3724*G02_5*P25, ELOSS=0.3724*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5a2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_5*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5a3 : STRUC4, L=0.3568, DELTAE=0.3568*G02_5*P25, ELOSS=0.3568*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5b1 : STRUC4, L=0.3683, DELTAE=0.3683*G02_5*P25, ELOSS=0.3683*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5b2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_5*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5b3 : STRUC4, L=0.3609, DELTAE=0.3609*G02_5*P25, ELOSS=0.3609*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5c1 : STRUC4, L=0.3642, DELTAE=0.3642*G02_5*P25, ELOSS=0.3642*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5c2 : STRUC4, L=2.1500, DELTAE=2.1500*G02_5*P25, ELOSS=2.1500*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5c3 : STRUC4, L=0.3550, DELTAE=0.3550*G02_5*P25, ELOSS=0.3550*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5d1 : STRUC4, L=0.3701, DELTAE=0.3701*G02_5*P25, ELOSS=0.3701*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5d2 : STRUC4, L=2.3100, DELTAE=2.3100*G02_5*P25, ELOSS=2.3100*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_5d3 : STRUC4, L=0.3640, DELTAE=0.3640*G02_5*P25, ELOSS=0.3640*KLOSS1, &
                    PHI0=P02_5 !KLYS LI02 51
  K02_6a1 : STRUC4, L=0.3680, DELTAE=0.3680*G02_6*P25, ELOSS=0.3680*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6a2 : STRUC4, L=2.2526, DELTAE=2.2526*G02_6*P25, ELOSS=2.2526*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6a3 : STRUC4, L=0.2486, DELTAE=0.2486*G02_6*P25, ELOSS=0.2486*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6b1 : STRUC4, L=0.3639, DELTAE=0.3639*G02_6*P25, ELOSS=0.3639*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6b2 : STRUC4, L=2.1500, DELTAE=2.1500*G02_6*P25, ELOSS=2.1500*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6b3 : STRUC4, L=0.3553, DELTAE=0.3553*G02_6*P25, ELOSS=0.3553*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6c1 : STRUC4, L=0.3698, DELTAE=0.3698*G02_6*P25, ELOSS=0.3698*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6c2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_6*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6c3 : STRUC4, L=0.3594, DELTAE=0.3594*G02_6*P25, ELOSS=0.3594*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6d1 : STRUC4, L=0.3657, DELTAE=0.3657*G02_6*P25, ELOSS=0.3657*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6d2 : STRUC4, L=2.3200, DELTAE=2.3200*G02_6*P25, ELOSS=2.3200*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_6d3 : STRUC4, L=0.3584, DELTAE=0.3584*G02_6*P25, ELOSS=0.3584*KLOSS1, &
                    PHI0=P02_6 !KLYS LI02 61
  K02_7a1 : STRUC4, L=0.3736, DELTAE=0.3736*G02_7*P25, ELOSS=0.3736*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7a2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_7*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7a3 : STRUC4, L=0.3556, DELTAE=0.3556*G02_7*P25, ELOSS=0.3556*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7b1 : STRUC4, L=0.3695, DELTAE=0.3695*G02_7*P25, ELOSS=0.3695*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7b2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_7*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7b3 : STRUC4, L=0.3597, DELTAE=0.3597*G02_7*P25, ELOSS=0.3597*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7c1 : STRUC4, L=0.3654, DELTAE=0.3654*G02_7*P25, ELOSS=0.3654*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7c2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_7*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7c3 : STRUC4, L=0.3638, DELTAE=0.3638*G02_7*P25, ELOSS=0.3638*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7d1 : STRUC4, L=0.3613, DELTAE=0.3613*G02_7*P25, ELOSS=0.3613*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7d2 : STRUC4, L=2.3200, DELTAE=2.3200*G02_7*P25, ELOSS=2.3200*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_7d3 : STRUC4, L=0.3628, DELTAE=0.3628*G02_7*P25, ELOSS=0.3628*KLOSS1, &
                    PHI0=P02_7 !KLYS LI02 71
  K02_8a1 : STRUC4, L=0.3692, DELTAE=0.3692*G02_8*P25, ELOSS=0.3692*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8a2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_8*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8a3 : STRUC4, L=0.3600, DELTAE=0.3600*G02_8*P25, ELOSS=0.3600*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8b1 : STRUC4, L=0.3651, DELTAE=0.3651*G02_8*P25, ELOSS=0.3651*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8b2 : STRUC4, L=2.2555, DELTAE=2.2555*G02_8*P25, ELOSS=2.2555*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8b3 : STRUC4, L=0.2486, DELTAE=0.2486*G02_8*P25, ELOSS=0.2486*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8c1 : STRUC4, L=0.3710, DELTAE=0.3710*G02_8*P25, ELOSS=0.3710*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8c2 : STRUC4, L=2.1400, DELTAE=2.1400*G02_8*P25, ELOSS=2.1400*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8c3 : STRUC4, L=0.3582, DELTAE=0.3582*G02_8*P25, ELOSS=0.3582*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8d1 : STRUC4, L=0.3669, DELTAE=0.3669*G02_8*P25, ELOSS=0.3669*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8d2 : STRUC4, L=1.9250, DELTAE=1.9250*G02_8*P25, ELOSS=1.9250*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8d3 : STRUC4, L=0.3398, DELTAE=0.3398*G02_8*P25, ELOSS=0.3398*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81
  K02_8d4 : STRUC4, L=0.4124, DELTAE=0.4124*G02_8*P25, ELOSS=0.4124*KLOSS1, &
                    PHI0=P02_8 !KLYS LI02 81

  K03_1a1 : STRUC2, L=0.3500, DELTAE=0.3500*G03_1*P25, ELOSS=0.3500*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1a2 : STRUC2, L=0.4500, DELTAE=0.4500*G03_1*P25, ELOSS=0.4500*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1a3 : STRUC2, L=2.2441, DELTAE=2.2441*G03_1*P25, ELOSS=2.2441*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1b1 : STRUC2, L=2.5059, DELTAE=2.5059*G03_1*P25, ELOSS=2.5059*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1b2 : STRUC2, L=0.3633, DELTAE=0.3633*G03_1*P25, ELOSS=0.3633*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1c1 : STRUC2, L=0.3618, DELTAE=0.3618*G03_1*P25, ELOSS=0.3618*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1c2 : STRUC2, L=2.6823, DELTAE=2.6823*G03_1*P25, ELOSS=2.6823*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1d1 : STRUC2, L=2.6777, DELTAE=2.6777*G03_1*P25, ELOSS=2.6777*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_1d2 : STRUC2, L=0.3664, DELTAE=0.3664*G03_1*P25, ELOSS=0.3664*KLOSS1, &
                    PHI0=P03_1 !KLYS LI03 11
  K03_2a1 : STRUC2, L=0.3656, DELTAE=0.3656*G03_2*P25, ELOSS=0.3656*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_2a2 : STRUC2, L=2.6785, DELTAE=2.6785*G03_2*P25, ELOSS=2.6785*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_2b1 : STRUC2, L=2.5115, DELTAE=2.5115*G03_2*P25, ELOSS=2.5115*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_2b2 : STRUC2, L=0.3577, DELTAE=0.3577*G03_2*P25, ELOSS=0.3577*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_2c1 : STRUC2, L=0.3674, DELTAE=0.3674*G03_2*P25, ELOSS=0.3674*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_2c2 : STRUC2, L=2.6767, DELTAE=2.6767*G03_2*P25, ELOSS=2.6767*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_2d1 : STRUC2, L=2.6833, DELTAE=2.6833*G03_2*P25, ELOSS=2.6833*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_2d2 : STRUC2, L=0.3608, DELTAE=0.3608*G03_2*P25, ELOSS=0.3608*KLOSS1, &
                    PHI0=P03_2 !KLYS LI03 21
  K03_3a1 : STRUC2, L=0.3712, DELTAE=0.3712*G03_3*P25, ELOSS=0.3712*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_3a2 : STRUC2, L=2.6729, DELTAE=2.6729*G03_3*P25, ELOSS=2.6729*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_3b1 : STRUC2, L=2.5071, DELTAE=2.5071*G03_3*P25, ELOSS=2.5071*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_3b2 : STRUC2, L=0.3621, DELTAE=0.3621*G03_3*P25, ELOSS=0.3621*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_3c1 : STRUC2, L=0.3630, DELTAE=0.3630*G03_3*P25, ELOSS=0.3630*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_3c2 : STRUC2, L=2.6811, DELTAE=2.6811*G03_3*P25, ELOSS=2.6811*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_3d1 : STRUC2, L=2.6789, DELTAE=2.6789*G03_3*P25, ELOSS=2.6789*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_3d2 : STRUC2, L=0.3652, DELTAE=0.3652*G03_3*P25, ELOSS=0.3652*KLOSS1, &
                    PHI0=P03_3 !KLYS LI03 31
  K03_4a1 : STRUC2, L=0.3668, DELTAE=0.3668*G03_4*P25, ELOSS=0.3668*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_4a2 : STRUC2, L=2.6773, DELTAE=2.6773*G03_4*P25, ELOSS=2.6773*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_4b1 : STRUC2, L=2.5127, DELTAE=2.5127*G03_4*P25, ELOSS=2.5127*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_4b2 : STRUC2, L=0.3565, DELTAE=0.3565*G03_4*P25, ELOSS=0.3565*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_4c1 : STRUC2, L=0.3686, DELTAE=0.3686*G03_4*P25, ELOSS=0.3686*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_4c2 : STRUC2, L=2.6755, DELTAE=2.6755*G03_4*P25, ELOSS=2.6755*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_4d1 : STRUC2, L=2.6845, DELTAE=2.6845*G03_4*P25, ELOSS=2.6845*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_4d2 : STRUC2, L=0.3596, DELTAE=0.3596*G03_4*P25, ELOSS=0.3596*KLOSS1, &
                    PHI0=P03_4 !KLYS LI03 41
  K03_5a1 : STRUC2, L=0.3724, DELTAE=0.3724*G03_5*P25, ELOSS=0.3724*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_5a2 : STRUC2, L=2.6717, DELTAE=2.6717*G03_5*P25, ELOSS=2.6717*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_5b1 : STRUC2, L=2.5083, DELTAE=2.5083*G03_5*P25, ELOSS=2.5083*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_5b2 : STRUC2, L=0.3609, DELTAE=0.3609*G03_5*P25, ELOSS=0.3609*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_5c1 : STRUC2, L=0.3642, DELTAE=0.3642*G03_5*P25, ELOSS=0.3642*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_5c2 : STRUC2, L=2.6799, DELTAE=2.6799*G03_5*P25, ELOSS=2.6799*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_5d1 : STRUC2, L=2.6801, DELTAE=2.6801*G03_5*P25, ELOSS=2.6801*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_5d2 : STRUC2, L=0.3640, DELTAE=0.3640*G03_5*P25, ELOSS=0.3640*KLOSS1, &
                    PHI0=P03_5 !KLYS LI03 51
  K03_6a1 : STRUC2, L=0.3680, DELTAE=0.3680*G03_6*P25, ELOSS=0.3680*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_6a2 : STRUC2, L=2.6761, DELTAE=2.6761*G03_6*P25, ELOSS=2.6761*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_6b1 : STRUC2, L=2.5139, DELTAE=2.5139*G03_6*P25, ELOSS=2.5139*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_6b2 : STRUC2, L=0.3553, DELTAE=0.3553*G03_6*P25, ELOSS=0.3553*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_6c1 : STRUC2, L=0.3698, DELTAE=0.3698*G03_6*P25, ELOSS=0.3698*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_6c2 : STRUC2, L=2.6743, DELTAE=2.6743*G03_6*P25, ELOSS=2.6743*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_6d1 : STRUC2, L=2.6857, DELTAE=2.6857*G03_6*P25, ELOSS=2.6857*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_6d2 : STRUC2, L=0.3584, DELTAE=0.3584*G03_6*P25, ELOSS=0.3584*KLOSS1, &
                    PHI0=P03_6 !KLYS LI03 61
  K03_7a1 : STRUC2, L=0.3736, DELTAE=0.3736*G03_7*P25, ELOSS=0.3736*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_7a2 : STRUC2, L=2.6705, DELTAE=2.6705*G03_7*P25, ELOSS=2.6705*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_7b1 : STRUC2, L=2.6206, DELTAE=2.6206*G03_7*P25, ELOSS=2.6206*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_7b2 : STRUC2, L=0.2486, DELTAE=0.2486*G03_7*P25, ELOSS=0.2486*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_7c1 : STRUC2, L=0.3654, DELTAE=0.3654*G03_7*P25, ELOSS=0.3654*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_7c2 : STRUC2, L=2.6787, DELTAE=2.6787*G03_7*P25, ELOSS=2.6787*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_7d1 : STRUC2, L=2.6813, DELTAE=2.6813*G03_7*P25, ELOSS=2.6813*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_7d2 : STRUC2, L=0.3628, DELTAE=0.3628*G03_7*P25, ELOSS=0.3628*KLOSS1, &
                    PHI0=P03_7 !KLYS LI03 71
  K03_8a1 : STRUC2, L=0.3692, DELTAE=0.3692*G03_8*P25, ELOSS=0.3692*KLOSS1, &
                    PHI0=P03_8 !KLYS LI03 81
  K03_8a2 : STRUC2, L=2.6749, DELTAE=2.6749*G03_8*P25, ELOSS=2.6749*KLOSS1, &
                    PHI0=P03_8 !KLYS LI03 81
  K03_8b1 : STRUC2, L=2.5151, DELTAE=2.5151*G03_8*P25, ELOSS=2.5151*KLOSS1, &
                    PHI0=P03_8 !KLYS LI03 81
  K03_8b2 : STRUC2, L=0.3541, DELTAE=0.3541*G03_8*P25, ELOSS=0.3541*KLOSS1, &
                    PHI0=P03_8 !KLYS LI03 81
  K03_8c1 : STRUC2, L=0.3710, DELTAE=0.3710*G03_8*P25, ELOSS=0.3710*KLOSS1, &
                    PHI0=P03_8 !KLYS LI03 81
  K03_8c2 : STRUC2, L=2.6731, DELTAE=2.6731*G03_8*P25, ELOSS=2.6731*KLOSS1, &
                    PHI0=P03_8 !KLYS LI03 81
  K03_8d  : STRUC2, L=3.0441, DELTAE=3.0441*G03_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P03_8 !KLYS LI03 81

  K04_1a  : STRUC2, L=3.0441, DELTAE=3.0441*G04_1*P50, ELOSS=3.0441*KLOSS1, &
                    PHI0=P04_1 !KLYS LI04 11
  K04_1b1 : STRUC2, L=2.2300, DELTAE=2.2300*G04_1*P50, ELOSS=2.2300*KLOSS1, &
                    PHI0=P04_1 !KLYS LI04 11
  K04_1b2 : STRUC2, L=0.3874, DELTAE=0.3874*G04_1*P50, ELOSS=0.3874*KLOSS1, &
                    PHI0=P04_1 !KLYS LI04 11
  K04_1b3 : STRUC2, L=0.2518, DELTAE=0.2518*G04_1*P50, ELOSS=0.2518*KLOSS1, &
                    PHI0=P04_1 !KLYS LI04 11
  K04_2c1 : STRUC2, L=0.7417, DELTAE=0.7417*G04_2*P50, ELOSS=0.7417*KLOSS1, &
                    PHI0=P04_2 !KLYS LI04 21
  K04_2c2 : STRUC2, L=2.3024, DELTAE=2.3024*G04_2*P50, ELOSS=2.3024*KLOSS1, &
                    PHI0=P04_2 !KLYS LI04 21
  K04_2d1 : STRUC2, L=2.6833, DELTAE=2.6833*G04_2*P50, ELOSS=2.6833*KLOSS1, &
                    PHI0=P04_2 !KLYS LI04 21
  K04_2d2 : STRUC2, L=0.3608, DELTAE=0.3608*G04_2*P50, ELOSS=0.3608*KLOSS1, &
                    PHI0=P04_2 !KLYS LI04 21
  K04_3a1 : STRUC2, L=0.3712, DELTAE=0.3712*G04_3*P25, ELOSS=0.3712*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_3a2 : STRUC2, L=2.6729, DELTAE=2.6729*G04_3*P25, ELOSS=2.6729*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_3b1 : STRUC2, L=2.5071, DELTAE=2.5071*G04_3*P25, ELOSS=2.5071*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_3b2 : STRUC2, L=0.3621, DELTAE=0.3621*G04_3*P25, ELOSS=0.3621*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_3c1 : STRUC2, L=0.3630, DELTAE=0.3630*G04_3*P25, ELOSS=0.3630*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_3c2 : STRUC2, L=2.6811, DELTAE=2.6811*G04_3*P25, ELOSS=2.6811*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_3d1 : STRUC2, L=2.6789, DELTAE=2.6789*G04_3*P25, ELOSS=2.6789*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_3d2 : STRUC2, L=0.3652, DELTAE=0.3652*G04_3*P25, ELOSS=0.3652*KLOSS1, &
                    PHI0=P04_3 !KLYS LI04 31
  K04_4a1 : STRUC2, L=0.3668, DELTAE=0.3668*G04_4*P25, ELOSS=0.3668*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_4a2 : STRUC2, L=2.6773, DELTAE=2.6773*G04_4*P25, ELOSS=2.6773*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_4b1 : STRUC2, L=2.5127, DELTAE=2.5127*G04_4*P25, ELOSS=2.5127*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_4b2 : STRUC2, L=0.3565, DELTAE=0.3565*G04_4*P25, ELOSS=0.3565*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_4c1 : STRUC2, L=0.3686, DELTAE=0.3686*G04_4*P25, ELOSS=0.3686*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_4c2 : STRUC2, L=2.6755, DELTAE=2.6755*G04_4*P25, ELOSS=2.6755*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_4d1 : STRUC2, L=2.6845, DELTAE=2.6845*G04_4*P25, ELOSS=2.6845*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_4d2 : STRUC2, L=0.3596, DELTAE=0.3596*G04_4*P25, ELOSS=0.3596*KLOSS1, &
                    PHI0=P04_4 !KLYS LI04 41
  K04_5a1 : STRUC2, L=0.3724, DELTAE=0.3724*G04_5*P25, ELOSS=0.3724*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_5a2 : STRUC2, L=2.6717, DELTAE=2.6717*G04_5*P25, ELOSS=2.6717*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_5b1 : STRUC2, L=2.5083, DELTAE=2.5083*G04_5*P25, ELOSS=2.5083*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_5b2 : STRUC2, L=0.3609, DELTAE=0.3609*G04_5*P25, ELOSS=0.3609*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_5c1 : STRUC2, L=0.3642, DELTAE=0.3642*G04_5*P25, ELOSS=0.3642*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_5c2 : STRUC2, L=2.6799, DELTAE=2.6799*G04_5*P25, ELOSS=2.6799*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_5d1 : STRUC2, L=2.6801, DELTAE=2.6801*G04_5*P25, ELOSS=2.6801*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_5d2 : STRUC2, L=0.3640, DELTAE=0.3640*G04_5*P25, ELOSS=0.3640*KLOSS1, &
                    PHI0=P04_5 !KLYS LI04 51
  K04_6a1 : STRUC2, L=0.3680, DELTAE=0.3680*G04_6*P25, ELOSS=0.3680*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_6a2 : STRUC2, L=2.6761, DELTAE=2.6761*G04_6*P25, ELOSS=2.6761*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_6b1 : STRUC2, L=2.5139, DELTAE=2.5139*G04_6*P25, ELOSS=2.5139*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_6b2 : STRUC2, L=0.3553, DELTAE=0.3553*G04_6*P25, ELOSS=0.3553*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_6c1 : STRUC2, L=0.3698, DELTAE=0.3698*G04_6*P25, ELOSS=0.3698*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_6c2 : STRUC2, L=2.6743, DELTAE=2.6743*G04_6*P25, ELOSS=2.6743*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_6d1 : STRUC2, L=2.6857, DELTAE=2.6857*G04_6*P25, ELOSS=2.6857*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_6d2 : STRUC2, L=0.3584, DELTAE=0.3584*G04_6*P25, ELOSS=0.3584*KLOSS1, &
                    PHI0=P04_6 !KLYS LI04 61
  K04_7a1 : STRUC2, L=0.3736, DELTAE=0.3736*G04_7*P25, ELOSS=0.3736*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_7a2 : STRUC2, L=2.6705, DELTAE=2.6705*G04_7*P25, ELOSS=2.6705*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_7b1 : STRUC2, L=2.5095, DELTAE=2.5095*G04_7*P25, ELOSS=2.5095*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_7b2 : STRUC2, L=0.3597, DELTAE=0.3597*G04_7*P25, ELOSS=0.3597*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_7c1 : STRUC2, L=0.3654, DELTAE=0.3654*G04_7*P25, ELOSS=0.3654*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_7c2 : STRUC2, L=2.6787, DELTAE=2.6787*G04_7*P25, ELOSS=2.6787*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_7d1 : STRUC2, L=2.6813, DELTAE=2.6813*G04_7*P25, ELOSS=2.6813*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_7d2 : STRUC2, L=0.3628, DELTAE=0.3628*G04_7*P25, ELOSS=0.3628*KLOSS1, &
                    PHI0=P04_7 !KLYS LI04 71
  K04_8a1 : STRUC2, L=0.3692, DELTAE=0.3692*G04_8*P25, ELOSS=0.3692*KLOSS1, &
                    PHI0=P04_8 !KLYS LI04 81
  K04_8a2 : STRUC2, L=2.6749, DELTAE=2.6749*G04_8*P25, ELOSS=2.6749*KLOSS1, &
                    PHI0=P04_8 !KLYS LI04 81
  K04_8b1 : STRUC2, L=2.5151, DELTAE=2.5151*G04_8*P25, ELOSS=2.5151*KLOSS1, &
                    PHI0=P04_8 !KLYS LI04 81
  K04_8b2 : STRUC2, L=0.3541, DELTAE=0.3541*G04_8*P25, ELOSS=0.3541*KLOSS1, &
                    PHI0=P04_8 !KLYS LI04 81
  K04_8c1 : STRUC2, L=0.3710, DELTAE=0.3710*G04_8*P25, ELOSS=0.3710*KLOSS1, &
                    PHI0=P04_8 !KLYS LI04 81
  K04_8c2 : STRUC2, L=2.6731, DELTAE=2.6731*G04_8*P25, ELOSS=2.6731*KLOSS1, &
                    PHI0=P04_8 !KLYS LI04 81
  K04_8d  : STRUC2, L=3.0441, DELTAE=3.0441*G04_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P04_8 !KLYS LI04 81

  K05_1a1 : STRUC2, L=0.3500, DELTAE=0.3500*G05_1*P25, ELOSS=0.3500*KLOSS1, &
                    PHI0=P05_1 !KLYS LI05 11
  K05_1a2 : STRUC2, L=0.4500, DELTAE=0.4500*G05_1*P25, ELOSS=0.4500*KLOSS1, &
                    PHI0=P05_1 !KLYS LI05 11
  K05_1a3 : STRUC2, L=2.2441, DELTAE=2.2441*G05_1*P25, ELOSS=2.2441*KLOSS1, &
                    PHI0=P05_1 !KLYS LI05 11
  K05_1b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_1 !KLYS LI05 11
  K05_1c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_1 !KLYS LI05 11
  K05_1d  : STRUC2, L=3.0441, DELTAE=3.0441*G05_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_1 !KLYS LI05 11
  K05_2a1 : STRUC2, L=0.3256, DELTAE=0.3256*G05_2*P25, ELOSS=0.3256*KLOSS1, &
                    PHI0=P05_2 !KLYS LI05 21
  K05_2a2 : STRUC2, L=0.4036, DELTAE=0.4036*G05_2*P25, ELOSS=0.4036*KLOSS1, &
                    PHI0=P05_2 !KLYS LI05 21
  K05_2a3 : STRUC2, L=2.3149, DELTAE=2.3149*G05_2*P25, ELOSS=2.3149*KLOSS1, &
                    PHI0=P05_2 !KLYS LI05 21
  K05_2b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_2 !KLYS LI05 21
  K05_2c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_2 !KLYS LI05 21
  K05_2d  : STRUC2, L=3.0441, DELTAE=3.0441*G05_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_2 !KLYS LI05 21
  K05_3a1 : STRUC2, L=0.3312, DELTAE=0.3312*G05_3*P25, ELOSS=0.3312*KLOSS1, &
                    PHI0=P05_3 !KLYS LI05 31
  K05_3a2 : STRUC2, L=0.3758, DELTAE=0.3758*G05_3*P25, ELOSS=0.3758*KLOSS1, &
                    PHI0=P05_3 !KLYS LI05 31
  K05_3a3 : STRUC2, L=2.3371, DELTAE=2.3371*G05_3*P25, ELOSS=2.3371*KLOSS1, &
                    PHI0=P05_3 !KLYS LI05 31
  K05_3b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_3 !KLYS LI05 31
  K05_3c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_3 !KLYS LI05 31
  K05_3d  : STRUC2, L=3.0441, DELTAE=3.0441*G05_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_3 !KLYS LI05 31
  K05_4a1 : STRUC2, L=0.3268, DELTAE=0.3268*G05_4*P25, ELOSS=0.3268*KLOSS1, &
                    PHI0=P05_4 !KLYS LI05 41
  K05_4a2 : STRUC2, L=0.2500, DELTAE=0.2500*G05_4*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P05_4 !KLYS LI05 41
  K05_4a3 : STRUC2, L=2.4673, DELTAE=2.4673*G05_4*P25, ELOSS=2.4673*KLOSS1, &
                    PHI0=P05_4 !KLYS LI05 41
  K05_4b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_4 !KLYS LI05 41
  K05_4c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_4 !KLYS LI05 41
  K05_4d  : STRUC2, L=3.0441, DELTAE=3.0441*G05_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_4 !KLYS LI05 41
  K05_5a1 : STRUC2, L=0.3800, DELTAE=0.3800*G05_5*P25, ELOSS=0.3800*KLOSS1, &
                    PHI0=P05_5 !KLYS LI05 51
  K05_5a2 : STRUC2, L=2.6641, DELTAE=2.6641*G05_5*P25, ELOSS=2.6641*KLOSS1, &
                    PHI0=P05_5 !KLYS LI05 51
  K05_5b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_5 !KLYS LI05 51
  K05_5c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_5 !KLYS LI05 51
  K05_5d  : STRUC2, L=3.0441, DELTAE=3.0441*G05_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_5 !KLYS LI05 51
  K05_6a1 : STRUC2, L=0.3863, DELTAE=0.3863*G05_6*P25, ELOSS=0.3863*KLOSS1, &
                    PHI0=P05_6 !KLYS LI05 61
  K05_6a2 : STRUC2, L=2.6578, DELTAE=2.6578*G05_6*P25, ELOSS=2.6578*KLOSS1, &
                    PHI0=P05_6 !KLYS LI05 61
  K05_6b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_6 !KLYS LI05 61
  K05_6c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_6 !KLYS LI05 61
  K05_6d  : STRUC2, L=3.0441, DELTAE=3.0441*G05_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_6 !KLYS LI05 61
  K05_7a1 : STRUC2, L=0.3800, DELTAE=0.3800*G05_7*P25, ELOSS=0.3800*KLOSS1, &
                    PHI0=P05_7 !KLYS LI05 71
  K05_7a2 : STRUC2, L=2.6641, DELTAE=2.6641*G05_7*P25, ELOSS=2.6641*KLOSS1, &
                    PHI0=P05_7 !KLYS LI05 71
  K05_7b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_7 !KLYS LI05 71
  K05_7c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_7 !KLYS LI05 71
  K05_7d  : STRUC2, L=3.0441, DELTAE=3.0441*G05_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_7 !KLYS LI05 71
  K05_8a1 : STRUC2, L=0.3736, DELTAE=0.3736*G05_8*P25, ELOSS=0.3736*KLOSS1, &
                    PHI0=P05_8 !KLYS LI05 81
  K05_8a2 : STRUC2, L=2.6705, DELTAE=2.6705*G05_8*P25, ELOSS=2.6705*KLOSS1, &
                    PHI0=P05_8 !KLYS LI05 81
  K05_8b  : STRUC2, L=3.0441, DELTAE=3.0441*G05_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_8 !KLYS LI05 81
  K05_8c  : STRUC2, L=3.0441, DELTAE=3.0441*G05_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P05_8 !KLYS LI05 81
  K05_8d1 : STRUC2, L=2.6570, DELTAE=2.6570*G05_8*P25, ELOSS=2.6570*KLOSS1, &
                    PHI0=P05_8 !KLYS LI05 81
  K05_8d2 : STRUC2, L=0.3871, DELTAE=0.3871*G05_8*P25, ELOSS=0.3871*KLOSS1, &
                    PHI0=P05_8 !KLYS LI05 81

  K06_1a  : STRUC0, L=3.0441, DELTAE=3.0441*G06_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_1 !KLYS LI06 11
  K06_1b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_1 !KLYS LI06 11
  K06_1c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_1 !KLYS LI06 11
  K06_1d  : STRUC0, L=3.0441, DELTAE=3.0441*G06_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_1 !KLYS LI06 11
  K06_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G06_2*P25, ELOSS=0.3256*KLOSS1, &
                    PHI0=P06_2 !KLYS LI06 21
  K06_2a2 : STRUC0, L=0.2500, DELTAE=0.2500*G06_2*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P06_2 !KLYS LI06 21
  K06_2a3 : STRUC0, L=2.4685, DELTAE=2.4685*G06_2*P25, ELOSS=2.4685*KLOSS1, &
                    PHI0=P06_2 !KLYS LI06 21
  K06_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_2 !KLYS LI06 21
  K06_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_2 !KLYS LI06 21
  K06_2d  : STRUC0, L=3.0441, DELTAE=3.0441*G06_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_2 !KLYS LI06 21
  K06_3a1 : STRUC0, L=0.3312, DELTAE=0.3312*G06_3*P25, ELOSS=0.3312*KLOSS1, &
                    PHI0=P06_3 !KLYS LI06 31
  K06_3a2 : STRUC0, L=0.2500, DELTAE=0.2500*G06_3*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P06_3 !KLYS LI06 31
  K06_3a3 : STRUC0, L=2.4629, DELTAE=2.4629*G06_3*P25, ELOSS=2.4629*KLOSS1, &
                    PHI0=P06_3 !KLYS LI06 31
  K06_3b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_3 !KLYS LI06 31
  K06_3c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_3 !KLYS LI06 31
  K06_3d  : STRUC0, L=3.0441, DELTAE=3.0441*G06_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_3 !KLYS LI06 31
  K06_4a1 : STRUC0, L=0.3268, DELTAE=0.3268*G06_4*P25, ELOSS=0.3268*KLOSS1, &
                    PHI0=P06_4 !KLYS LI06 41
  K06_4a2 : STRUC0, L=0.3516, DELTAE=0.3516*G06_4*P25, ELOSS=0.3516*KLOSS1, &
                    PHI0=P06_4 !KLYS LI06 41
  K06_4a3 : STRUC0, L=2.3657, DELTAE=2.3657*G06_4*P25, ELOSS=2.3657*KLOSS1, &
                    PHI0=P06_4 !KLYS LI06 41
  K06_4b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_4 !KLYS LI06 41
  K06_4c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_4 !KLYS LI06 41
  K06_4d  : STRUC0, L=3.0441, DELTAE=3.0441*G06_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_4 !KLYS LI06 41
  K06_5a1 : STRUC0, L=0.3324, DELTAE=0.3324*G06_5*P25, ELOSS=0.3324*KLOSS1, &
                    PHI0=P06_5 !KLYS LI06 51
  K06_5a2 : STRUC0, L=0.2500, DELTAE=0.2500*G06_5*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P06_5 !KLYS LI06 51
  K06_5a3 : STRUC0, L=2.4617, DELTAE=2.4617*G06_5*P25, ELOSS=2.4617*KLOSS1, &
                    PHI0=P06_5 !KLYS LI06 51
  K06_5b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_5 !KLYS LI06 51
  K06_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_5 !KLYS LI06 51
  K06_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G06_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_5 !KLYS LI06 51
  K06_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G06_6*P25, ELOSS=0.3280*KLOSS1, &
                    PHI0=P06_6 !KLYS LI06 61
  K06_6a2 : STRUC0, L=0.2500, DELTAE=0.2500*G06_6*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P06_6 !KLYS LI06 61
  K06_6a3 : STRUC0, L=2.4661, DELTAE=2.4661*G06_6*P25, ELOSS=2.4661*KLOSS1, &
                    PHI0=P06_6 !KLYS LI06 61
  K06_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_6 !KLYS LI06 61
  K06_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_6 !KLYS LI06 61
  K06_6d  : STRUC0, L=3.0441, DELTAE=3.0441*G06_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_6 !KLYS LI06 61
  K06_7a1 : STRUC0, L=0.3336, DELTAE=0.3336*G06_7*P25, ELOSS=0.3336*KLOSS1, &
                    PHI0=P06_7 !KLYS LI06 71
  K06_7a2 : STRUC0, L=0.2500, DELTAE=0.2500*G06_7*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P06_7 !KLYS LI06 71
  K06_7a3 : STRUC0, L=2.4605, DELTAE=2.4605*G06_7*P25, ELOSS=2.4605*KLOSS1, &
                    PHI0=P06_7 !KLYS LI06 71
  K06_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_7 !KLYS LI06 71
  K06_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_7 !KLYS LI06 71
  K06_7d  : STRUC0, L=3.0441, DELTAE=3.0441*G06_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_7 !KLYS LI06 71
  K06_8a1 : STRUC0, L=0.3292, DELTAE=0.3292*G06_8*P25, ELOSS=0.3292*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81
  K06_8a2 : STRUC0, L=0.2500, DELTAE=0.2500*G06_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81
  K06_8a3 : STRUC0, L=2.4649, DELTAE=2.4649*G06_8*P25, ELOSS=2.4649*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81
  K06_8b  : STRUC0, L=3.0441, DELTAE=3.0441*G06_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81
  K06_8c  : STRUC0, L=3.0441, DELTAE=3.0441*G06_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81
  K06_8d1 : STRUC0, L=2.3869, DELTAE=2.3869*G06_8*P25, ELOSS=2.3869*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81
  K06_8d2 : STRUC0, L=0.2500, DELTAE=0.2500*G06_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81
  K06_8d3 : STRUC0, L=0.4072, DELTAE=0.4072*G06_8*P25, ELOSS=0.4072*KLOSS1, &
                    PHI0=P06_8 !KLYS LI06 81

  K07_1a  : STRUC0, L=3.0441, DELTAE=3.0441*G07_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_1 !KLYS LI07 11
  K07_1b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_1 !KLYS LI07 11
  K07_1c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_1 !KLYS LI07 11
  K07_1d  : STRUC0, L=3.0441, DELTAE=3.0441*G07_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_1 !KLYS LI07 11
  K07_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G07_2*P25, ELOSS=0.3256*KLOSS1, &
                    PHI0=P07_2 !KLYS LI07 21
  K07_2a2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_2*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_2 !KLYS LI07 21
  K07_2a3 : STRUC0, L=2.4685, DELTAE=2.4685*G07_2*P25, ELOSS=2.4685*KLOSS1, &
                    PHI0=P07_2 !KLYS LI07 21
  K07_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_2 !KLYS LI07 21
  K07_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_2 !KLYS LI07 21
  K07_2d  : STRUC0, L=3.0441, DELTAE=3.0441*G07_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_2 !KLYS LI07 21
  K07_3a1 : STRUC0, L=0.3312, DELTAE=0.3312*G07_3*P25, ELOSS=0.3312*KLOSS1, &
                    PHI0=P07_3 !KLYS LI07 31
  K07_3a2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_3*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_3 !KLYS LI07 31
  K07_3a3 : STRUC0, L=2.4629, DELTAE=2.4629*G07_3*P25, ELOSS=2.4629*KLOSS1, &
                    PHI0=P07_3 !KLYS LI07 31
  K07_3b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_3 !KLYS LI07 31
  K07_3c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_3 !KLYS LI07 31
  K07_3d  : STRUC0, L=3.0441, DELTAE=3.0441*G07_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_3 !KLYS LI07 31
  K07_4a1 : STRUC0, L=0.3268, DELTAE=0.3268*G07_4*P25, ELOSS=0.3268*KLOSS1, &
                    PHI0=P07_4 !KLYS LI07 41
  K07_4a2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_4*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_4 !KLYS LI07 41
  K07_4a3 : STRUC0, L=2.4673, DELTAE=2.4673*G07_4*P25, ELOSS=2.4673*KLOSS1, &
                    PHI0=P07_4 !KLYS LI07 41
  K07_4b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_4 !KLYS LI07 41
  K07_4c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_4 !KLYS LI07 41
  K07_4d  : STRUC0, L=3.0441, DELTAE=3.0441*G07_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_4 !KLYS LI07 41
  K07_5a1 : STRUC0, L=0.3324, DELTAE=0.3324*G07_5*P25, ELOSS=0.3324*KLOSS1, &
                    PHI0=P07_5 !KLYS LI07 51
  K07_5a2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_5*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_5 !KLYS LI07 51
  K07_5a3 : STRUC0, L=2.4617, DELTAE=2.4617*G07_5*P25, ELOSS=2.4617*KLOSS1, &
                    PHI0=P07_5 !KLYS LI07 51
  K07_5b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_5 !KLYS LI07 51
  K07_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_5 !KLYS LI07 51
  K07_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G07_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_5 !KLYS LI07 51
  K07_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G07_6*P25, ELOSS=0.3280*KLOSS1, &
                    PHI0=P07_6 !KLYS LI07 61
  K07_6a2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_6*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_6 !KLYS LI07 61
  K07_6a3 : STRUC0, L=2.4661, DELTAE=2.4661*G07_6*P25, ELOSS=2.4661*KLOSS1, &
                    PHI0=P07_6 !KLYS LI07 61
  K07_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_6 !KLYS LI07 61
  K07_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_6 !KLYS LI07 61
  K07_6d  : STRUC0, L=3.0441, DELTAE=3.0441*G07_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_6 !KLYS LI07 61
  K07_7a1 : STRUC0, L=0.3336, DELTAE=0.3336*G07_7*P25, ELOSS=0.3336*KLOSS1, &
                    PHI0=P07_7 !KLYS LI07 71
  K07_7a2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_7*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_7 !KLYS LI07 71
  K07_7a3 : STRUC0, L=2.4605, DELTAE=2.4605*G07_7*P25, ELOSS=2.4605*KLOSS1, &
                    PHI0=P07_7 !KLYS LI07 71
  K07_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_7 !KLYS LI07 71
  K07_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_7 !KLYS LI07 71
  K07_7d  : STRUC0, L=3.0441, DELTAE=3.0441*G07_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_7 !KLYS LI07 71
  K07_8a1 : STRUC0, L=0.3292, DELTAE=0.3292*G07_8*P25, ELOSS=0.3292*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81
  K07_8a2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81
  K07_8a3 : STRUC0, L=2.4649, DELTAE=2.4649*G07_8*P25, ELOSS=2.4649*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81
  K07_8b  : STRUC0, L=3.0441, DELTAE=3.0441*G07_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81
  K07_8c  : STRUC0, L=3.0441, DELTAE=3.0441*G07_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81
  K07_8d1 : STRUC0, L=2.3869, DELTAE=2.3869*G07_8*P25, ELOSS=2.3869*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81
  K07_8d2 : STRUC0, L=0.2500, DELTAE=0.2500*G07_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81
  K07_8d3 : STRUC0, L=0.4072, DELTAE=0.4072*G07_8*P25, ELOSS=0.4072*KLOSS1, &
                    PHI0=P07_8 !KLYS LI07 81

  K08_1a  : STRUC0, L=3.0441, DELTAE=3.0441*G08_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_1 !KLYS LI08 11
  K08_1b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_1 !KLYS LI08 11
  K08_1c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_1 !KLYS LI08 11
  K08_1d  : STRUC0, L=3.0441, DELTAE=3.0441*G08_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_1 !KLYS LI08 11
  K08_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G08_2*P25, ELOSS=0.3256*KLOSS1, &
                    PHI0=P08_2 !KLYS LI08 21
  K08_2a2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_2*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_2 !KLYS LI08 21
  K08_2a3 : STRUC0, L=2.4685, DELTAE=2.4685*G08_2*P25, ELOSS=2.4685*KLOSS1, &
                    PHI0=P08_2 !KLYS LI08 21
  K08_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_2 !KLYS LI08 21
  K08_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_2 !KLYS LI08 21
  K08_2d  : STRUC0, L=3.0441, DELTAE=3.0441*G08_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_2 !KLYS LI08 21
  K08_3a1 : STRUC0, L=0.3312, DELTAE=0.3312*G08_3*P25, ELOSS=0.3312*KLOSS1, &
                    PHI0=P08_3 !KLYS LI08 31
  K08_3a2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_3*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_3 !KLYS LI08 31
  K08_3a3 : STRUC0, L=2.4629, DELTAE=2.4629*G08_3*P25, ELOSS=2.4629*KLOSS1, &
                    PHI0=P08_3 !KLYS LI08 31
  K08_3b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_3 !KLYS LI08 31
  K08_3c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_3 !KLYS LI08 31
  K08_3d  : STRUC0, L=3.0441, DELTAE=3.0441*G08_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_3 !KLYS LI08 31
  K08_4a1 : STRUC0, L=0.3268, DELTAE=0.3268*G08_4*P25, ELOSS=0.3268*KLOSS1, &
                    PHI0=P08_4 !KLYS LI08 41
  K08_4a2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_4*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_4 !KLYS LI08 41
  K08_4a3 : STRUC0, L=2.4673, DELTAE=2.4673*G08_4*P25, ELOSS=2.4673*KLOSS1, &
                    PHI0=P08_4 !KLYS LI08 41
  K08_4b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_4 !KLYS LI08 41
  K08_4c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_4 !KLYS LI08 41
  K08_4d  : STRUC0, L=3.0441, DELTAE=3.0441*G08_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_4 !KLYS LI08 41
  K08_5a1 : STRUC0, L=0.3324, DELTAE=0.3324*G08_5*P25, ELOSS=0.3324*KLOSS1, &
                    PHI0=P08_5 !KLYS LI08 51
  K08_5a2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_5*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_5 !KLYS LI08 51
  K08_5a3 : STRUC0, L=2.4617, DELTAE=2.4617*G08_5*P25, ELOSS=2.4617*KLOSS1, &
                    PHI0=P08_5 !KLYS LI08 51
  K08_5b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_5 !KLYS LI08 51
  K08_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_5 !KLYS LI08 51
  K08_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G08_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_5 !KLYS LI08 51
  K08_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G08_6*P25, ELOSS=0.3280*KLOSS1, &
                    PHI0=P08_6 !KLYS LI08 61
  K08_6a2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_6*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_6 !KLYS LI08 61
  K08_6a3 : STRUC0, L=2.4661, DELTAE=2.4661*G08_6*P25, ELOSS=2.4661*KLOSS1, &
                    PHI0=P08_6 !KLYS LI08 61
  K08_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_6 !KLYS LI08 61
  K08_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_6 !KLYS LI08 61
  K08_6d  : STRUC0, L=3.0441, DELTAE=3.0441*G08_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_6 !KLYS LI08 61
  K08_7a1 : STRUC0, L=0.3336, DELTAE=0.3336*G08_7*P25, ELOSS=0.3336*KLOSS1, &
                    PHI0=P08_7 !KLYS LI08 71
  K08_7a2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_7*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_7 !KLYS LI08 71
  K08_7a3 : STRUC0, L=2.4605, DELTAE=2.4605*G08_7*P25, ELOSS=2.4605*KLOSS1, &
                    PHI0=P08_7 !KLYS LI08 71
  K08_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_7 !KLYS LI08 71
  K08_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_7 !KLYS LI08 71
  K08_7d  : STRUC0, L=3.0441, DELTAE=3.0441*G08_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_7 !KLYS LI08 71
  K08_8a1 : STRUC0, L=0.3292, DELTAE=0.3292*G08_8*P25, ELOSS=0.3292*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81
  K08_8a2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81
  K08_8a3 : STRUC0, L=2.4649, DELTAE=2.4649*G08_8*P25, ELOSS=2.4649*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81
  K08_8b  : STRUC0, L=3.0441, DELTAE=3.0441*G08_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81
  K08_8c  : STRUC0, L=3.0441, DELTAE=3.0441*G08_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81
  K08_8d1 : STRUC0, L=2.3869, DELTAE=2.3869*G08_8*P25, ELOSS=2.3869*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81
  K08_8d2 : STRUC0, L=0.2500, DELTAE=0.2500*G08_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81
  K08_8d3 : STRUC0, L=0.4072, DELTAE=0.4072*G08_8*P25, ELOSS=0.4072*KLOSS1, &
                    PHI0=P08_8 !KLYS LI08 81

  K09_1a  : STRUC0, L=3.0441, DELTAE=3.0441*G09_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_1 !KLYS LI09 11
  K09_1b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_1 !KLYS LI09 11
  K09_1c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_1 !KLYS LI09 11
  K09_1d  : STRUC0, L=3.0441, DELTAE=3.0441*G09_1*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_1 !KLYS LI09 11
  K09_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G09_2*P25, ELOSS=0.3256*KLOSS1, &
                    PHI0=P09_2 !KLYS LI09 21
  K09_2a2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_2*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_2 !KLYS LI09 21
  K09_2a3 : STRUC0, L=2.4685, DELTAE=2.4685*G09_2*P25, ELOSS=2.4685*KLOSS1, &
                    PHI0=P09_2 !KLYS LI09 21
  K09_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_2 !KLYS LI09 21
  K09_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_2 !KLYS LI09 21
  K09_2d  : STRUC0, L=3.0441, DELTAE=3.0441*G09_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_2 !KLYS LI09 21
  K09_3a1 : STRUC0, L=0.3312, DELTAE=0.3312*G09_3*P25, ELOSS=0.3312*KLOSS1, &
                    PHI0=P09_3 !KLYS LI09 31
  K09_3a2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_3*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_3 !KLYS LI09 31
  K09_3a3 : STRUC0, L=2.4629, DELTAE=2.4629*G09_3*P25, ELOSS=2.4629*KLOSS1, &
                    PHI0=P09_3 !KLYS LI09 31
  K09_3b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_3 !KLYS LI09 31
  K09_3c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_3 !KLYS LI09 31
  K09_3d  : STRUC0, L=3.0441, DELTAE=3.0441*G09_3*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_3 !KLYS LI09 31
  K09_4a1 : STRUC0, L=0.3268, DELTAE=0.3268*G09_4*P25, ELOSS=0.3268*KLOSS1, &
                    PHI0=P09_4 !KLYS LI09 41
  K09_4a2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_4*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_4 !KLYS LI09 41
  K09_4a3 : STRUC0, L=2.4673, DELTAE=2.4673*G09_4*P25, ELOSS=2.4673*KLOSS1, &
                    PHI0=P09_4 !KLYS LI09 41
  K09_4b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_4 !KLYS LI09 41
  K09_4c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_4 !KLYS LI09 41
  K09_4d  : STRUC0, L=3.0441, DELTAE=3.0441*G09_4*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_4 !KLYS LI09 41
  K09_5a1 : STRUC0, L=0.3324, DELTAE=0.3324*G09_5*P25, ELOSS=0.3324*KLOSS1, &
                    PHI0=P09_5 !KLYS LI09 51
  K09_5a2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_5*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_5 !KLYS LI09 51
  K09_5a3 : STRUC0, L=2.4617, DELTAE=2.4617*G09_5*P25, ELOSS=2.4617*KLOSS1, &
                    PHI0=P09_5 !KLYS LI09 51
  K09_5b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_5 !KLYS LI09 51
  K09_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_5 !KLYS LI09 51
  K09_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G09_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_5 !KLYS LI09 51
  K09_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G09_6*P25, ELOSS=0.3280*KLOSS1, &
                    PHI0=P09_6 !KLYS LI09 61
  K09_6a2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_6*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_6 !KLYS LI09 61
  K09_6a3 : STRUC0, L=2.4661, DELTAE=2.4661*G09_6*P25, ELOSS=2.4661*KLOSS1, &
                    PHI0=P09_6 !KLYS LI09 61
  K09_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_6 !KLYS LI09 61
  K09_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_6 !KLYS LI09 61
  K09_6d  : STRUC0, L=3.0441, DELTAE=3.0441*G09_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_6 !KLYS LI09 61
  K09_7a1 : STRUC0, L=0.3336, DELTAE=0.3336*G09_7*P25, ELOSS=0.3336*KLOSS1, &
                    PHI0=P09_7 !KLYS LI09 71
  K09_7a2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_7*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_7 !KLYS LI09 71
  K09_7a3 : STRUC0, L=2.4605, DELTAE=2.4605*G09_7*P25, ELOSS=2.4605*KLOSS1, &
                    PHI0=P09_7 !KLYS LI09 71
  K09_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_7 !KLYS LI09 71
  K09_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_7 !KLYS LI09 71
  K09_7d  : STRUC0, L=3.0441, DELTAE=3.0441*G09_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_7 !KLYS LI09 71
  K09_8a1 : STRUC0, L=0.3292, DELTAE=0.3292*G09_8*P25, ELOSS=0.3292*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81
  K09_8a2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81
  K09_8a3 : STRUC0, L=2.4649, DELTAE=2.4649*G09_8*P25, ELOSS=2.4649*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81
  K09_8b  : STRUC0, L=3.0441, DELTAE=3.0441*G09_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81
  K09_8c  : STRUC0, L=3.0441, DELTAE=3.0441*G09_8*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81
  K09_8d1 : STRUC0, L=2.3869, DELTAE=2.3869*G09_8*P25, ELOSS=2.3869*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81
  K09_8d2 : STRUC0, L=0.2500, DELTAE=0.2500*G09_8*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81
  K09_8d3 : STRUC0, L=0.4072, DELTAE=0.4072*G09_8*P25, ELOSS=0.4072*KLOSS1, &
                    PHI0=P09_8 !KLYS LI09 81

  K10_1a  : STRUC0, L=3.0441, DELTAE=3.0441*G10_1*P50, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_1 !KLYS LI10 11
  K10_1b  : STRUC0, L=3.0441, DELTAE=3.0441*G10_1*P50, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_1 !KLYS LI10 11
  K10_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G10_2*P25, ELOSS=0.3256*KLOSS1, &
                    PHI0=P10_2 !KLYS LI10 21
  K10_2a2 : STRUC0, L=0.2500, DELTAE=0.2500*G10_2*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P10_2 !KLYS LI10 21
  K10_2a3 : STRUC0, L=2.4685, DELTAE=2.4685*G10_2*P25, ELOSS=2.4685*KLOSS1, &
                    PHI0=P10_2 !KLYS LI10 21
  K10_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G10_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_2 !KLYS LI10 21
  K10_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G10_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_2 !KLYS LI10 21
  K10_2d  : STRUC0, L=3.0441, DELTAE=3.0441*G10_2*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_2 !KLYS LI10 21
  K10_3a1 : STRUC0, L=0.3312, DELTAE=0.3312*G10_3*P50, ELOSS=0.3312*KLOSS1, &
                    PHI0=P10_3 !KLYS LI10 31
  K10_3a2 : STRUC0, L=0.2500, DELTAE=0.2500*G10_3*P50, ELOSS=0.2500*KLOSS1, &
                    PHI0=P10_3 !KLYS LI10 31
  K10_3a3 : STRUC0, L=2.4629, DELTAE=2.4629*G10_3*P50, ELOSS=2.4629*KLOSS1, &
                    PHI0=P10_3 !KLYS LI10 31
  K10_3b  : STRUC0, L=3.0441, DELTAE=3.0441*G10_3*P50, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_3 !KLYS LI10 31
  K10_3c  : STRUC0, L=3.0441, DELTAE=3.0441*G10_4*P50, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_4 !KLYS LI10 41
  K10_3d1 : STRUC0, L=2.3931, DELTAE=2.3931*G10_4*P50, ELOSS=2.3931*KLOSS1, &
                    PHI0=P10_4 !KLYS LI10 41
  K10_3d2 : STRUC0, L=0.2660, DELTAE=0.2660*G10_4*P50, ELOSS=0.2660*KLOSS1, &
                    PHI0=P10_4 !KLYS LI10 41
  K10_3d3 : STRUC0, L=0.3850, DELTAE=0.3850*G10_4*P50, ELOSS=0.3850*KLOSS1, &
                    PHI0=P10_4 !KLYS LI10 41
  K10_5a1 : STRUC0, L=0.8740, DELTAE=0.8740*G10_5*P25, ELOSS=0.8740*KLOSS1, &
                    PHI0=P10_5 !KLYS LI10 51
  K10_5a2 : STRUC0, L=0.3120, DELTAE=0.3120*G10_5*P25, ELOSS=0.3120*KLOSS1, &
                    PHI0=P10_5 !KLYS LI10 51
  K10_5a3 : STRUC0, L=1.8581, DELTAE=1.8581*G10_5*P25, ELOSS=1.8581*KLOSS1, &
                    PHI0=P10_5 !KLYS LI10 51
  K10_5b  : STRUC0, L=3.0441, DELTAE=3.0441*G10_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_5 !KLYS LI10 51
  K10_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G10_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_5 !KLYS LI10 51
  K10_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G10_5*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_5 !KLYS LI10 51
  K10_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G10_6*P25, ELOSS=0.3280*KLOSS1, &
                    PHI0=P10_6 !KLYS LI10 61
  K10_6a2 : STRUC0, L=0.2500, DELTAE=0.2500*G10_6*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P10_6 !KLYS LI10 61
  K10_6a3 : STRUC0, L=2.4661, DELTAE=2.4661*G10_6*P25, ELOSS=2.4661*KLOSS1, &
                    PHI0=P10_6 !KLYS LI10 61
  K10_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G10_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_6 !KLYS LI10 61
  K10_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G10_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_6 !KLYS LI10 61
  K10_6d  : STRUC0, L=3.0441, DELTAE=3.0441*G10_6*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_6 !KLYS LI10 61
  K10_7a1 : STRUC0, L=0.3336, DELTAE=0.3336*G10_7*P25, ELOSS=0.3336*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71
  K10_7a2 : STRUC0, L=0.2500, DELTAE=0.2500*G10_7*P25, ELOSS=0.2500*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71
  K10_7a3 : STRUC0, L=2.4605, DELTAE=2.4605*G10_7*P25, ELOSS=2.4605*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71
  K10_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G10_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71
  K10_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G10_7*P25, ELOSS=3.0441*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71
  K10_7d1 : STRUC0, L=2.3697, DELTAE=2.3697*G10_7*P25, ELOSS=2.3697*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71
  K10_7d2 : STRUC0, L=0.2800, DELTAE=0.2800*G10_7*P25, ELOSS=0.2800*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71
  K10_7d3 : STRUC0, L=0.3944, DELTAE=0.3944*G10_7*P25, ELOSS=0.3944*KLOSS1, &
                    PHI0=P10_7 !KLYS LI10 71

  K11_1b1 : STRUC0, L=0.3722, DELTAE=0.3722*G11_1*P50, ELOSS=0.3722*KLOSS2, &
                    PHI0=P11_1 !KLYS LI11 11
  K11_1b2 : STRUC0, L=0.2800, DELTAE=0.2800*G11_1*P50, ELOSS=0.2800*KLOSS2, &
                    PHI0=P11_1 !KLYS LI11 11
  K11_1b3 : STRUC0, L=2.3919, DELTAE=2.3919*G11_1*P50, ELOSS=2.3919*KLOSS2, &
                    PHI0=P11_1 !KLYS LI11 11
  K11_1c  : STRUC0, L=3.0441, DELTAE=3.0441*G11_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_1 !KLYS LI11 11
  K11_1d  : STRUC0, L=3.0441, DELTAE=3.0441*G11_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_1 !KLYS LI11 11
  K11_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G11_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P11_2 !KLYS LI11 21
  K11_2a2 : STRUC0, L=0.2500, DELTAE=0.2500*G11_2*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P11_2 !KLYS LI11 21
  K11_2a3 : STRUC0, L=2.4685, DELTAE=2.4685*G11_2*P25, ELOSS=2.4685*KLOSS2, &
                    PHI0=P11_2 !KLYS LI11 21
  K11_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G11_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_2 !KLYS LI11 21
  K11_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G11_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_2 !KLYS LI11 21
  K11_2d1 : STRUC0, L=2.1533, DELTAE=2.1533*G11_2*P25, ELOSS=2.1533*KLOSS2, &
                    PHI0=P11_2 !KLYS LI11 21
  K11_2d2 : STRUC0, L=0.8908, DELTAE=0.8908*G11_2*P25, ELOSS=0.8908*KLOSS2, &
                    PHI0=P11_2 !KLYS LI11 21
  K11_3b  : STRUC0, L=3.0441, DELTAE=0.0             , & !not used
                    PHI0=0.0   !KLYS LI11 31
  K11_3c  : STRUC0, L=3.0441, DELTAE=0.0             , & !not used
                    PHI0=0.0   !KLYS LI11 31
  K11_4a1 : STRUC0, L=0.3268, DELTAE=0.3268*G11_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P11_4 !KLYS LI11 41
  K11_4a2 : STRUC0, L=0.2500, DELTAE=0.2500*G11_4*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P11_4 !KLYS LI11 41
  K11_4a3 : STRUC0, L=1.5926, DELTAE=1.5926*G11_4*P25, ELOSS=1.5926*KLOSS2, &
                    PHI0=P11_4 !KLYS LI11 41
  K11_4b  : STRUC0, L=2.1694, DELTAE=2.1694*G11_4*P25, ELOSS=2.1694*KLOSS2, &
                    PHI0=P11_4 !KLYS LI11 41
  K11_4c  : STRUC0, L=3.0441, DELTAE=3.0441*G11_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_4 !KLYS LI11 41
  K11_4d  : STRUC0, L=2.1694, DELTAE=2.1694*G11_4*P25, ELOSS=2.1694*KLOSS2, &
                    PHI0=P11_4 !KLYS LI11 41
  K11_5a1 : STRUC0, L=0.6689, DELTAE=0.6689*G11_5*P25, ELOSS=0.6689*KLOSS2, &
                    PHI0=P11_5 !KLYS LI11 51
  K11_5a2 : STRUC0, L=2.3752, DELTAE=2.3752*G11_5*P25, ELOSS=2.3752*KLOSS2, &
                    PHI0=P11_5 !KLYS LI11 51
  K11_5b  : STRUC0, L=2.1694, DELTAE=2.1694*G11_5*P25, ELOSS=2.1694*KLOSS2, &
                    PHI0=P11_5 !KLYS LI11 51
  K11_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G11_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_5 !KLYS LI11 51
  K11_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G11_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_5 !KLYS LI11 51
  K11_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G11_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P11_6 !KLYS LI11 61
  K11_6a2 : STRUC0, L=0.2500, DELTAE=0.2500*G11_6*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P11_6 !KLYS LI11 61
  K11_6a3 : STRUC0, L=1.5914, DELTAE=1.5914*G11_6*P25, ELOSS=1.5914*KLOSS2, &
                    PHI0=P11_6 !KLYS LI11 61
  K11_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G11_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_6 !KLYS LI11 61
  K11_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G11_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_6 !KLYS LI11 61
  K11_6d  : STRUC0, L=2.1694, DELTAE=2.1694*G11_6*P25, ELOSS=2.1694*KLOSS2, &
                    PHI0=P11_6 !KLYS LI11 61
  K11_7a1 : STRUC0, L=0.3863, DELTAE=0.3863*G11_7*P25, ELOSS=0.3863*KLOSS2, &
                    PHI0=P11_7 !KLYS LI11 71
  K11_7a2 : STRUC0, L=2.6578, DELTAE=2.6578*G11_7*P25, ELOSS=2.6578*KLOSS2, &
                    PHI0=P11_7 !KLYS LI11 71
  K11_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G11_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_7 !KLYS LI11 71
  K11_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G11_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_7 !KLYS LI11 71
  K11_7d  : STRUC0, L=2.1694, DELTAE=2.1694*G11_7*P25, ELOSS=2.1694*KLOSS2, &
                    PHI0=P11_7 !KLYS LI11 71
  K11_8a  : STRUC0, L=3.0441, DELTAE=3.0441*G11_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_8 !KLYS LI11 81
  K11_8b  : STRUC0, L=3.0441, DELTAE=3.0441*G11_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_8 !KLYS LI11 81
  K11_8c  : STRUC0, L=3.0441, DELTAE=3.0441*G11_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_8 !KLYS LI11 81
  K11_8d  : STRUC0, L=3.0441, DELTAE=3.0441*G11_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P11_8 !KLYS LI11 81

  K12_1a  : STRUC4, L=3.0441, DELTAE=3.0441*G12_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_1 !KLYS LI12 11
  K12_1b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_1 !KLYS LI12 11
  K12_1c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_1 !KLYS LI12 11
  K12_1d  : STRUC4, L=3.0441, DELTAE=3.0441*G12_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_1 !KLYS LI12 11
  K12_2a  : STRUC4, L=2.1694, DELTAE=2.1694*G12_2*P25, ELOSS=2.1694*KLOSS2, &
                    PHI0=P12_2 !KLYS LI12 21
  K12_2b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_2 !KLYS LI12 21
  K12_2c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_2 !KLYS LI12 21
  K12_2d  : STRUC4, L=3.0441, DELTAE=3.0441*G12_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_2 !KLYS LI12 21
  K12_3a1 : STRUC4, L=0.3312, DELTAE=0.3312*G12_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P12_3 !KLYS LI12 31
  K12_3a2 : STRUC4, L=0.2500, DELTAE=0.2500*G12_3*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P12_3 !KLYS LI12 31
  K12_3a3 : STRUC4, L=2.4629, DELTAE=2.4629*G12_3*P25, ELOSS=2.4629*KLOSS2, &
                    PHI0=P12_3 !KLYS LI12 31
  K12_3b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_3 !KLYS LI12 31
  K12_3c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_3 !KLYS LI12 31
  K12_3d  : STRUC4, L=3.0441, DELTAE=3.0441*G12_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_3 !KLYS LI12 31
  K12_4a1 : STRUC4, L=0.3268, DELTAE=0.3268*G12_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P12_4 !KLYS LI12 41
  K12_4a2 : STRUC4, L=0.2500, DELTAE=0.2500*G12_4*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P12_4 !KLYS LI12 41
  K12_4a3 : STRUC4, L=2.4673, DELTAE=2.4673*G12_4*P25, ELOSS=2.4673*KLOSS2, &
                    PHI0=P12_4 !KLYS LI12 41
  K12_4b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_4 !KLYS LI12 41
  K12_4c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_4 !KLYS LI12 41
  K12_4d  : STRUC4, L=3.0441, DELTAE=3.0441*G12_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_4 !KLYS LI12 41
  K12_5a1 : STRUC4, L=0.3324, DELTAE=0.3324*G12_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P12_5 !KLYS LI12 51
  K12_5a2 : STRUC4, L=0.2500, DELTAE=0.2500*G12_5*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P12_5 !KLYS LI12 51
  K12_5a3 : STRUC4, L=2.4617, DELTAE=2.4617*G12_5*P25, ELOSS=2.4617*KLOSS2, &
                    PHI0=P12_5 !KLYS LI12 51
  K12_5b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_5 !KLYS LI12 51
  K12_5c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_5 !KLYS LI12 51
  K12_5d  : STRUC4, L=3.0441, DELTAE=3.0441*G12_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_5 !KLYS LI12 51
  K12_6a1 : STRUC4, L=0.3280, DELTAE=0.3280*G12_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P12_6 !KLYS LI12 61
  K12_6a2 : STRUC4, L=0.4330, DELTAE=0.4330*G12_6*P25, ELOSS=0.4330*KLOSS2, &
                    PHI0=P12_6 !KLYS LI12 61
  K12_6a3 : STRUC4, L=2.2831, DELTAE=2.2831*G12_6*P25, ELOSS=2.2831*KLOSS2, &
                    PHI0=P12_6 !KLYS LI12 61
  K12_6b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_6 !KLYS LI12 61
  K12_6c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_6 !KLYS LI12 61
  K12_6d  : STRUC4, L=3.0441, DELTAE=3.0441*G12_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_6 !KLYS LI12 61
  K12_7a1 : STRUC4, L=0.3336, DELTAE=0.3336*G12_7*P25, ELOSS=0.3336*KLOSS2, &
                    PHI0=P12_7 !KLYS LI12 71
  K12_7a2 : STRUC4, L=0.3575, DELTAE=0.3575*G12_7*P25, ELOSS=0.3575*KLOSS2, &
                    PHI0=P12_7 !KLYS LI12 71
  K12_7a3 : STRUC4, L=2.3530, DELTAE=2.3530*G12_7*P25, ELOSS=2.3530*KLOSS2, &
                    PHI0=P12_7 !KLYS LI12 71
  K12_7b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_7 !KLYS LI12 71
  K12_7c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_7 !KLYS LI12 71
  K12_7d  : STRUC4, L=3.0441, DELTAE=3.0441*G12_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_7 !KLYS LI12 71
  K12_8a1 : STRUC4, L=0.3292, DELTAE=0.3292*G12_8*P25, ELOSS=0.3292*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81
  K12_8a2 : STRUC4, L=0.4032, DELTAE=0.4032*G12_8*P25, ELOSS=0.4032*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81
  K12_8a3 : STRUC4, L=2.3117, DELTAE=2.3117*G12_8*P25, ELOSS=2.3117*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81
  K12_8b  : STRUC4, L=3.0441, DELTAE=3.0441*G12_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81
  K12_8c  : STRUC4, L=3.0441, DELTAE=3.0441*G12_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81
  K12_8d1 : STRUC4, L=2.3869, DELTAE=2.3869*G12_8*P25, ELOSS=2.3869*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81
  K12_8d2 : STRUC4, L=0.2500, DELTAE=0.2500*G12_8*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81
  K12_8d3 : STRUC4, L=0.4072, DELTAE=0.4072*G12_8*P25, ELOSS=0.4072*KLOSS2, &
                    PHI0=P12_8 !KLYS LI12 81

  K13_1a  : STRUC2, L=3.0441, DELTAE=3.0441*G13_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_1 !KLYS LI13 11
  K13_1b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_1 !KLYS LI13 11
  K13_1c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_1 !KLYS LI13 11
  K13_1d  : STRUC2, L=3.0441, DELTAE=3.0441*G13_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_1 !KLYS LI13 11
  K13_2a1 : STRUC2, L=0.3256, DELTAE=0.3256*G13_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P13_2 !KLYS LI13 21
  K13_2a2 : STRUC2, L=0.3846, DELTAE=0.3846*G13_2*P25, ELOSS=0.3846*KLOSS2, &
                    PHI0=P13_2 !KLYS LI13 21
  K13_2a3 : STRUC2, L=2.3339, DELTAE=2.3339*G13_2*P25, ELOSS=2.3339*KLOSS2, &
                    PHI0=P13_2 !KLYS LI13 21
  K13_2b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_2 !KLYS LI13 21
  K13_2c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_2 !KLYS LI13 21
  K13_2d  : STRUC2, L=3.0441, DELTAE=3.0441*G13_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_2 !KLYS LI13 21
  K13_3a1 : STRUC2, L=0.3312, DELTAE=0.3312*G13_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P13_3 !KLYS LI13 31
  K13_3a2 : STRUC2, L=0.3822, DELTAE=0.3822*G13_3*P25, ELOSS=0.3822*KLOSS2, &
                    PHI0=P13_3 !KLYS LI13 31
  K13_3a3 : STRUC2, L=2.3307, DELTAE=2.3307*G13_3*P25, ELOSS=2.3307*KLOSS2, &
                    PHI0=P13_3 !KLYS LI13 31
  K13_3b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_3 !KLYS LI13 31
  K13_3c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_3 !KLYS LI13 31
  K13_3d  : STRUC2, L=3.0441, DELTAE=3.0441*G13_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_3 !KLYS LI13 31
  K13_4a1 : STRUC2, L=0.3268, DELTAE=0.3268*G13_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P13_4 !KLYS LI13 41
  K13_4a2 : STRUC2, L=0.4501, DELTAE=0.4501*G13_4*P25, ELOSS=0.4501*KLOSS2, &
                    PHI0=P13_4 !KLYS LI13 41
  K13_4a3 : STRUC2, L=2.2672, DELTAE=2.2672*G13_4*P25, ELOSS=2.2672*KLOSS2, &
                    PHI0=P13_4 !KLYS LI13 41
  K13_4b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_4 !KLYS LI13 41
  K13_4c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_4 !KLYS LI13 41
  K13_4d  : STRUC2, L=3.0441, DELTAE=3.0441*G13_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_4 !KLYS LI13 41
  K13_5a1 : STRUC2, L=0.3324, DELTAE=0.3324*G13_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P13_5 !KLYS LI13 51
  K13_5a2 : STRUC2, L=0.2500, DELTAE=0.2500*G13_5*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P13_5 !KLYS LI13 51
  K13_5a3 : STRUC2, L=2.4617, DELTAE=2.4617*G13_5*P25, ELOSS=2.4617*KLOSS2, &
                    PHI0=P13_5 !KLYS LI13 51
  K13_5b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_5 !KLYS LI13 51
  K13_5c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_5 !KLYS LI13 51
  K13_5d  : STRUC2, L=3.0441, DELTAE=3.0441*G13_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_5 !KLYS LI13 51
  K13_6a1 : STRUC2, L=0.3280, DELTAE=0.3280*G13_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P13_6 !KLYS LI13 61
  K13_6a2 : STRUC2, L=0.2500, DELTAE=0.2500*G13_6*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P13_6 !KLYS LI13 61
  K13_6a3 : STRUC2, L=2.4661, DELTAE=2.4661*G13_6*P25, ELOSS=2.4661*KLOSS2, &
                    PHI0=P13_6 !KLYS LI13 61
  K13_6b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_6 !KLYS LI13 61
  K13_6c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_6 !KLYS LI13 61
  K13_6d  : STRUC2, L=3.0441, DELTAE=3.0441*G13_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_6 !KLYS LI13 61
  K13_7a1 : STRUC2, L=0.3336, DELTAE=0.3336*G13_7*P25, ELOSS=0.3336*KLOSS2, &
                    PHI0=P13_7 !KLYS LI13 71
  K13_7a2 : STRUC2, L=0.2500, DELTAE=0.2500*G13_7*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P13_7 !KLYS LI13 71
  K13_7a3 : STRUC2, L=2.4605, DELTAE=2.4605*G13_7*P25, ELOSS=2.4605*KLOSS2, &
                    PHI0=P13_7 !KLYS LI13 71
  K13_7b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_7 !KLYS LI13 71
  K13_7c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_7 !KLYS LI13 71
  K13_7d  : STRUC2, L=3.0441, DELTAE=3.0441*G13_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_7 !KLYS LI13 71
  K13_8a1 : STRUC2, L=0.3292, DELTAE=0.3292*G13_8*P25, ELOSS=0.3292*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81
  K13_8a2 : STRUC2, L=0.4064, DELTAE=0.4064*G13_8*P25, ELOSS=0.4064*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81
  K13_8a3 : STRUC2, L=2.3085, DELTAE=2.3085*G13_8*P25, ELOSS=2.3085*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81
  K13_8b  : STRUC2, L=3.0441, DELTAE=3.0441*G13_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81
  K13_8c  : STRUC2, L=3.0441, DELTAE=3.0441*G13_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81
  K13_8d1 : STRUC2, L=2.3869, DELTAE=2.3869*G13_8*P25, ELOSS=2.3869*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81
  K13_8d2 : STRUC2, L=0.2500, DELTAE=0.2500*G13_8*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81
  K13_8d3 : STRUC2, L=0.4072, DELTAE=0.4072*G13_8*P25, ELOSS=0.4072*KLOSS2, &
                    PHI0=P13_8 !KLYS LI13 81

  K14_1a  : STRUC0, L=3.0441, DELTAE=3.0441*G14_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_1 !KLYS LI14 11
  K14_1b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_1 !KLYS LI14 11
  K14_1c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_1 !KLYS LI14 11
  K14_1d  : STRUC0, L=3.0441, DELTAE=3.0441*G14_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_1 !KLYS LI14 11
  K14_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G14_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P14_2 !KLYS LI14 21
  K14_2a2 : STRUC0, L=0.2500, DELTAE=0.2500*G14_2*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P14_2 !KLYS LI14 21
  K14_2a3 : STRUC0, L=2.4685, DELTAE=2.4685*G14_2*P25, ELOSS=2.4685*KLOSS2, &
                    PHI0=P14_2 !KLYS LI14 21
  K14_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_2 !KLYS LI14 21
  K14_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_2 !KLYS LI14 21
  K14_2d  : STRUC0, L=3.0441, DELTAE=3.0441*G14_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_2 !KLYS LI14 21
  K14_3a1 : STRUC0, L=0.3312, DELTAE=0.3312*G14_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P14_3 !KLYS LI14 31
  K14_3a2 : STRUC0, L=0.4012, DELTAE=0.4012*G14_3*P25, ELOSS=0.4012*KLOSS2, &
                    PHI0=P14_3 !KLYS LI14 31
  K14_3a3 : STRUC0, L=2.3117, DELTAE=2.3117*G14_3*P25, ELOSS=2.3117*KLOSS2, &
                    PHI0=P14_3 !KLYS LI14 31
  K14_3b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_3 !KLYS LI14 31
  K14_3c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_3 !KLYS LI14 31
  K14_3d  : STRUC0, L=3.0441, DELTAE=3.0441*G14_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_3 !KLYS LI14 31
  K14_4a1 : STRUC0, L=0.3268, DELTAE=0.3268*G14_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P14_4 !KLYS LI14 41
  K14_4a2 : STRUC0, L=0.2500, DELTAE=0.2500*G14_4*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P14_4 !KLYS LI14 41
  K14_4a3 : STRUC0, L=2.4673, DELTAE=2.4673*G14_4*P25, ELOSS=2.4673*KLOSS2, &
                    PHI0=P14_4 !KLYS LI14 41
  K14_4b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_4 !KLYS LI14 41
  K14_4c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_4 !KLYS LI14 41
  K14_4d  : STRUC0, L=3.0441, DELTAE=3.0441*G14_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_4 !KLYS LI14 41
  K14_5a1 : STRUC0, L=0.3324, DELTAE=0.3324*G14_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P14_5 !KLYS LI14 51
  K14_5a2 : STRUC0, L=0.2500, DELTAE=0.2500*G14_5*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P14_5 !KLYS LI14 51
  K14_5a3 : STRUC0, L=2.4617, DELTAE=2.4617*G14_5*P25, ELOSS=2.4617*KLOSS2, &
                    PHI0=P14_5 !KLYS LI14 51
  K14_5b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_5 !KLYS LI14 51
  K14_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_5 !KLYS LI14 51
  K14_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G14_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_5 !KLYS LI14 51
  K14_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G14_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P14_6 !KLYS LI14 61
  K14_6a2 : STRUC0, L=0.4044, DELTAE=0.4044*G14_6*P25, ELOSS=0.4044*KLOSS2, &
                    PHI0=P14_6 !KLYS LI14 61
  K14_6a3 : STRUC0, L=2.3117, DELTAE=2.3117*G14_6*P25, ELOSS=2.3117*KLOSS2, &
                    PHI0=P14_6 !KLYS LI14 61
  K14_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_6 !KLYS LI14 61
  K14_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_6 !KLYS LI14 61
  K14_6d  : STRUC0, L=3.0441, DELTAE=3.0441*G14_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_6 !KLYS LI14 61
  K14_7a1 : STRUC0, L=0.3336, DELTAE=0.3336*G14_7*P25, ELOSS=0.3336*KLOSS2, &
                    PHI0=P14_7 !KLYS LI14 71
  K14_7a2 : STRUC0, L=0.3639, DELTAE=0.3639*G14_7*P25, ELOSS=0.3639*KLOSS2, &
                    PHI0=P14_7 !KLYS LI14 71
  K14_7a3 : STRUC0, L=2.3466, DELTAE=2.3466*G14_7*P25, ELOSS=2.3466*KLOSS2, &
                    PHI0=P14_7 !KLYS LI14 71
  K14_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_7 !KLYS LI14 71
  K14_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_7 !KLYS LI14 71
  K14_7d  : STRUC0, L=3.0441, DELTAE=3.0441*G14_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_7 !KLYS LI14 71
  K14_8a1 : STRUC0, L=0.3292, DELTAE=0.3292*G14_8*P25, ELOSS=0.3292*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81
  K14_8a2 : STRUC0, L=0.4000, DELTAE=0.4000*G14_8*P25, ELOSS=0.4000*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81
  K14_8a3 : STRUC0, L=2.3149, DELTAE=2.3149*G14_8*P25, ELOSS=2.3149*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81
  K14_8b  : STRUC0, L=3.0441, DELTAE=3.0441*G14_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81
  K14_8c  : STRUC0, L=3.0441, DELTAE=3.0441*G14_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81
  K14_8d1 : STRUC0, L=2.2760, DELTAE=2.2760*G14_8*P25, ELOSS=2.2760*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81
  K14_8d2 : STRUC0, L=0.3609, DELTAE=0.3609*G14_8*P25, ELOSS=0.3609*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81
  K14_8d3 : STRUC0, L=0.4072, DELTAE=0.4072*G14_8*P25, ELOSS=0.4072*KLOSS2, &
                    PHI0=P14_8 !KLYS LI14 81

  K15_1a  : STRUC4, L=3.0441, DELTAE=3.0441*G15_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_1 !KLYS LI15 11
  K15_1b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_1 !KLYS LI15 11
  K15_1c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_1 !KLYS LI15 11
  K15_1d  : STRUC4, L=3.0441, DELTAE=3.0441*G15_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_1 !KLYS LI15 11
  K15_2a1 : STRUC4, L=0.3256, DELTAE=0.3256*G15_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P15_2 !KLYS LI15 21
  K15_2a2 : STRUC4, L=0.2500, DELTAE=0.2500*G15_2*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P15_2 !KLYS LI15 21
  K15_2a3 : STRUC4, L=2.4685, DELTAE=2.4685*G15_2*P25, ELOSS=2.4685*KLOSS2, &
                    PHI0=P15_2 !KLYS LI15 21
  K15_2b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_2 !KLYS LI15 21
  K15_2c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_2 !KLYS LI15 21
  K15_2d  : STRUC4, L=3.0441, DELTAE=3.0441*G15_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_2 !KLYS LI15 21
  K15_3a1 : STRUC4, L=0.3312, DELTAE=0.3312*G15_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P15_3 !KLYS LI15 31
  K15_3a2 : STRUC4, L=0.4044, DELTAE=0.4044*G15_3*P25, ELOSS=0.4044*KLOSS2, &
                    PHI0=P15_3 !KLYS LI15 31
  K15_3a3 : STRUC4, L=2.3085, DELTAE=2.3085*G15_3*P25, ELOSS=2.3085*KLOSS2, &
                    PHI0=P15_3 !KLYS LI15 31
  K15_3b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_3 !KLYS LI15 31
  K15_3c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_3 !KLYS LI15 31
  K15_3d  : STRUC4, L=3.0441, DELTAE=3.0441*G15_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_3 !KLYS LI15 31
  K15_4a1 : STRUC4, L=0.3268, DELTAE=0.3268*G15_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P15_4 !KLYS LI15 41
  K15_4a2 : STRUC4, L=0.2500, DELTAE=0.2500*G15_4*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P15_4 !KLYS LI15 41
  K15_4a3 : STRUC4, L=2.4673, DELTAE=2.4673*G15_4*P25, ELOSS=2.4673*KLOSS2, &
                    PHI0=P15_4 !KLYS LI15 41
  K15_4b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_4 !KLYS LI15 41
  K15_4c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_4 !KLYS LI15 41
  K15_4d  : STRUC4, L=3.0441, DELTAE=3.0441*G15_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_4 !KLYS LI15 41
  K15_5a1 : STRUC4, L=0.3324, DELTAE=0.3324*G15_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P15_5 !KLYS LI15 51
  K15_5a2 : STRUC4, L=0.3937, DELTAE=0.3937*G15_5*P25, ELOSS=0.3937*KLOSS2, &
                    PHI0=P15_5 !KLYS LI15 51
  K15_5a3 : STRUC4, L=2.3180, DELTAE=2.3180*G15_5*P25, ELOSS=2.3180*KLOSS2, &
                    PHI0=P15_5 !KLYS LI15 51
  K15_5b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_5 !KLYS LI15 51
  K15_5c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_5 !KLYS LI15 51
  K15_5d  : STRUC4, L=3.0441, DELTAE=3.0441*G15_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_5 !KLYS LI15 51
  K15_6a1 : STRUC4, L=0.3280, DELTAE=0.3280*G15_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P15_6 !KLYS LI15 61
  K15_6a2 : STRUC4, L=0.2500, DELTAE=0.2500*G15_6*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P15_6 !KLYS LI15 61
  K15_6a3 : STRUC4, L=2.4661, DELTAE=2.4661*G15_6*P25, ELOSS=2.4661*KLOSS2, &
                    PHI0=P15_6 !KLYS LI15 61
  K15_6b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_6 !KLYS LI15 61
  K15_6c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_6 !KLYS LI15 61
  K15_6d  : STRUC4, L=3.0441, DELTAE=3.0441*G15_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_6 !KLYS LI15 61
  K15_7a1 : STRUC4, L=0.3336, DELTAE=0.3336*G15_7*P25, ELOSS=0.3336*KLOSS2, &
                    PHI0=P15_7 !KLYS LI15 71
  K15_7a2 : STRUC4, L=0.2500, DELTAE=0.2500*G15_7*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P15_7 !KLYS LI15 71
  K15_7a3 : STRUC4, L=2.4605, DELTAE=2.4605*G15_7*P25, ELOSS=2.4605*KLOSS2, &
                    PHI0=P15_7 !KLYS LI15 71
  K15_7b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_7 !KLYS LI15 71
  K15_7c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_7 !KLYS LI15 71
  K15_7d  : STRUC4, L=3.0441, DELTAE=3.0441*G15_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_7 !KLYS LI15 71
  K15_8a1 : STRUC4, L=0.3292, DELTAE=0.3292*G15_8*P25, ELOSS=0.3292*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81
  K15_8a2 : STRUC4, L=0.4413, DELTAE=0.4413*G15_8*P25, ELOSS=0.4413*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81
  K15_8a3 : STRUC4, L=2.2736, DELTAE=2.2736*G15_8*P25, ELOSS=2.2736*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81
  K15_8b  : STRUC4, L=3.0441, DELTAE=3.0441*G15_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81
  K15_8c  : STRUC4, L=3.0441, DELTAE=3.0441*G15_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81
  K15_8d1 : STRUC4, L=2.3869, DELTAE=2.3869*G15_8*P25, ELOSS=2.3869*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81
  K15_8d2 : STRUC4, L=0.2500, DELTAE=0.2500*G15_8*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81
  K15_8d3 : STRUC4, L=0.4072, DELTAE=0.4072*G15_8*P25, ELOSS=0.4072*KLOSS2, &
                    PHI0=P15_8 !KLYS LI15 81

  K16_1a  : STRUC2, L=3.0441, DELTAE=3.0441*G16_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_1 !KLYS LI16 11
  K16_1b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_1 !KLYS LI16 11
  K16_1c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_1 !KLYS LI16 11
  K16_1d  : STRUC2, L=3.0441, DELTAE=3.0441*G16_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_1 !KLYS LI16 11
  K16_2a1 : STRUC2, L=0.3256, DELTAE=0.3256*G16_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P16_2 !KLYS LI16 21
  K16_2a2 : STRUC2, L=0.3655, DELTAE=0.3655*G16_2*P25, ELOSS=0.3655*KLOSS2, &
                    PHI0=P16_2 !KLYS LI16 21
  K16_2a3 : STRUC2, L=2.3530, DELTAE=2.3530*G16_2*P25, ELOSS=2.3530*KLOSS2, &
                    PHI0=P16_2 !KLYS LI16 21
  K16_2b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_2 !KLYS LI16 21
  K16_2c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_2 !KLYS LI16 21
  K16_2d  : STRUC2, L=3.0441, DELTAE=3.0441*G16_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_2 !KLYS LI16 21
  K16_3a1 : STRUC2, L=0.3312, DELTAE=0.3312*G16_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P16_3 !KLYS LI16 31
  K16_3a2 : STRUC2, L=0.2500, DELTAE=0.2500*G16_3*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P16_3 !KLYS LI16 31
  K16_3a3 : STRUC2, L=2.4629, DELTAE=2.4629*G16_3*P25, ELOSS=2.4629*KLOSS2, &
                    PHI0=P16_3 !KLYS LI16 31
  K16_3b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_3 !KLYS LI16 31
  K16_3c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_3 !KLYS LI16 31
  K16_3d  : STRUC2, L=3.0441, DELTAE=3.0441*G16_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_3 !KLYS LI16 31
  K16_4a1 : STRUC2, L=0.3268, DELTAE=0.3268*G16_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P16_4 !KLYS LI16 41
  K16_4a2 : STRUC2, L=0.3675, DELTAE=0.3675*G16_4*P25, ELOSS=0.3675*KLOSS2, &
                    PHI0=P16_4 !KLYS LI16 41
  K16_4a3 : STRUC2, L=2.3498, DELTAE=2.3498*G16_4*P25, ELOSS=2.3498*KLOSS2, &
                    PHI0=P16_4 !KLYS LI16 41
  K16_4b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_4 !KLYS LI16 41
  K16_4c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_4 !KLYS LI16 41
  K16_4d  : STRUC2, L=3.0441, DELTAE=3.0441*G16_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_4 !KLYS LI16 41
  K16_5a1 : STRUC2, L=0.3324, DELTAE=0.3324*G16_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P16_5 !KLYS LI16 51
  K16_5a2 : STRUC2, L=0.3651, DELTAE=0.3651*G16_5*P25, ELOSS=0.3651*KLOSS2, &
                    PHI0=P16_5 !KLYS LI16 51
  K16_5a3 : STRUC2, L=2.3466, DELTAE=2.3466*G16_5*P25, ELOSS=2.3466*KLOSS2, &
                    PHI0=P16_5 !KLYS LI16 51
  K16_5b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_5 !KLYS LI16 51
  K16_5c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_5 !KLYS LI16 51
  K16_5d  : STRUC2, L=3.0441, DELTAE=3.0441*G16_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_5 !KLYS LI16 51
  K16_6a1 : STRUC2, L=0.3280, DELTAE=0.3280*G16_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P16_6 !KLYS LI16 61
  K16_6a2 : STRUC2, L=0.4139, DELTAE=0.4139*G16_6*P25, ELOSS=0.4139*KLOSS2, &
                    PHI0=P16_6 !KLYS LI16 61
  K16_6a3 : STRUC2, L=2.3022, DELTAE=2.3022*G16_6*P25, ELOSS=2.3022*KLOSS2, &
                    PHI0=P16_6 !KLYS LI16 61
  K16_6b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_6 !KLYS LI16 61
  K16_6c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_6 !KLYS LI16 61
  K16_6d  : STRUC2, L=3.0441, DELTAE=3.0441*G16_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_6 !KLYS LI16 61
  K16_7a1 : STRUC2, L=0.3336, DELTAE=0.3336*G16_7*P25, ELOSS=0.3336*KLOSS2, &
                    PHI0=P16_7 !KLYS LI16 71
  K16_7a2 : STRUC2, L=0.3893, DELTAE=0.3893*G16_7*P25, ELOSS=0.3893*KLOSS2, &
                    PHI0=P16_7 !KLYS LI16 71
  K16_7a3 : STRUC2, L=2.3212, DELTAE=2.3212*G16_7*P25, ELOSS=2.3212*KLOSS2, &
                    PHI0=P16_7 !KLYS LI16 71
  K16_7b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_7 !KLYS LI16 71
  K16_7c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_7 !KLYS LI16 71
  K16_7d  : STRUC2, L=3.0441, DELTAE=3.0441*G16_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_7 !KLYS LI16 71
  K16_8a1 : STRUC2, L=0.3292, DELTAE=0.3292*G16_8*P25, ELOSS=0.3292*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81
  K16_8a2 : STRUC2, L=0.2500, DELTAE=0.2500*G16_8*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81
  K16_8a3 : STRUC2, L=2.4649, DELTAE=2.4649*G16_8*P25, ELOSS=2.4649*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81
  K16_8b  : STRUC2, L=3.0441, DELTAE=3.0441*G16_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81
  K16_8c  : STRUC2, L=3.0441, DELTAE=3.0441*G16_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81
  K16_8d1 : STRUC2, L=2.3869, DELTAE=2.3869*G16_8*P25, ELOSS=2.3869*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81
  K16_8d2 : STRUC2, L=0.2500, DELTAE=0.2500*G16_8*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81
  K16_8d3 : STRUC2, L=0.4072, DELTAE=0.4072*G16_8*P25, ELOSS=0.4072*KLOSS2, &
                    PHI0=P16_8 !KLYS LI16 81

  K17_1a  : STRUC0, L=3.0441, DELTAE=3.0441*G17_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_1 !KLYS LI17 11
  K17_1b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_1 !KLYS LI17 11
  K17_1c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_1 !KLYS LI17 11
  K17_1d  : STRUC0, L=3.0441, DELTAE=3.0441*G17_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_1 !KLYS LI17 11
  K17_2a1 : STRUC0, L=0.3256, DELTAE=0.3256*G17_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P17_2 !KLYS LI17 21
  K17_2a2 : STRUC0, L=0.3814, DELTAE=0.3814*G17_2*P25, ELOSS=0.3814*KLOSS2, &
                    PHI0=P17_2 !KLYS LI17 21
  K17_2a3 : STRUC0, L=2.3371, DELTAE=2.3371*G17_2*P25, ELOSS=2.3371*KLOSS2, &
                    PHI0=P17_2 !KLYS LI17 21
  K17_2b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_2 !KLYS LI17 21
  K17_2c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_2 !KLYS LI17 21
  K17_2d  : STRUC0, L=3.0441, DELTAE=3.0441*G17_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_2 !KLYS LI17 21
  K17_3a1 : STRUC0, L=0.3312, DELTAE=0.3312*G17_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P17_3 !KLYS LI17 31
  K17_3a2 : STRUC0, L=0.2500, DELTAE=0.2500*G17_3*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P17_3 !KLYS LI17 31
  K17_3a3 : STRUC0, L=2.4629, DELTAE=2.4629*G17_3*P25, ELOSS=2.4629*KLOSS2, &
                    PHI0=P17_3 !KLYS LI17 31
  K17_3b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_3 !KLYS LI17 31
  K17_3c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_3 !KLYS LI17 31
  K17_3d  : STRUC0, L=3.0441, DELTAE=3.0441*G17_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_3 !KLYS LI17 31
  K17_4a1 : STRUC0, L=0.3268, DELTAE=0.3268*G17_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P17_4 !KLYS LI17 41
  K17_4a2 : STRUC0, L=0.2500, DELTAE=0.2500*G17_4*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P17_4 !KLYS LI17 41
  K17_4a3 : STRUC0, L=2.4673, DELTAE=2.4673*G17_4*P25, ELOSS=2.4673*KLOSS2, &
                    PHI0=P17_4 !KLYS LI17 41
  K17_4b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_4 !KLYS LI17 41
  K17_4c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_4 !KLYS LI17 41
  K17_4d  : STRUC0, L=3.0441, DELTAE=3.0441*G17_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_4 !KLYS LI17 41
  K17_5a1 : STRUC0, L=0.3324, DELTAE=0.3324*G17_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P17_5 !KLYS LI17 51
  K17_5a2 : STRUC0, L=0.3841, DELTAE=0.3841*G17_5*P25, ELOSS=0.3841*KLOSS2, &
                    PHI0=P17_5 !KLYS LI17 51
  K17_5a3 : STRUC0, L=2.3276, DELTAE=2.3276*G17_5*P25, ELOSS=2.3276*KLOSS2, &
                    PHI0=P17_5 !KLYS LI17 51
  K17_5b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_5 !KLYS LI17 51
  K17_5c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_5 !KLYS LI17 51
  K17_5d  : STRUC0, L=3.0441, DELTAE=3.0441*G17_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_5 !KLYS LI17 51
  K17_6a1 : STRUC0, L=0.3280, DELTAE=0.3280*G17_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P17_6 !KLYS LI17 61
  K17_6a2 : STRUC0, L=0.3949, DELTAE=0.3949*G17_6*P25, ELOSS=0.3949*KLOSS2, &
                    PHI0=P17_6 !KLYS LI17 61
  K17_6a3 : STRUC0, L=2.3212, DELTAE=2.3212*G17_6*P25, ELOSS=2.3212*KLOSS2, &
                    PHI0=P17_6 !KLYS LI17 61
  K17_6b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_6 !KLYS LI17 61
  K17_6c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_6 !KLYS LI17 61
  K17_6d  : STRUC0, L=3.0441, DELTAE=3.0441*G17_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_6 !KLYS LI17 61
  K17_7a1 : STRUC0, L=0.3336, DELTAE=0.3336*G17_7*P25, ELOSS=0.3336*KLOSS2, &
                    PHI0=P17_7 !KLYS LI17 71
  K17_7a2 : STRUC0, L=0.2500, DELTAE=0.2500*G17_7*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P17_7 !KLYS LI17 71
  K17_7a3 : STRUC0, L=2.4605, DELTAE=2.4605*G17_7*P25, ELOSS=2.4605*KLOSS2, &
                    PHI0=P17_7 !KLYS LI17 71
  K17_7b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_7 !KLYS LI17 71
  K17_7c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_7 !KLYS LI17 71
  K17_7d  : STRUC0, L=3.0441, DELTAE=3.0441*G17_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_7 !KLYS LI17 71
  K17_8a1 : STRUC0, L=0.3292, DELTAE=0.3292*G17_8*P25, ELOSS=0.3292*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81
  K17_8a2 : STRUC0, L=0.2500, DELTAE=0.2500*G17_8*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81
  K17_8a3 : STRUC0, L=2.4649, DELTAE=2.4649*G17_8*P25, ELOSS=2.4649*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81
  K17_8b  : STRUC0, L=3.0441, DELTAE=3.0441*G17_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81
  K17_8c  : STRUC0, L=3.0441, DELTAE=3.0441*G17_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81
  K17_8d1 : STRUC0, L=2.2856, DELTAE=2.2856*G17_8*P25, ELOSS=2.2856*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81
  K17_8d2 : STRUC0, L=0.3513, DELTAE=0.3513*G17_8*P25, ELOSS=0.3513*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81
  K17_8d3 : STRUC0, L=0.4072, DELTAE=0.4072*G17_8*P25, ELOSS=0.4072*KLOSS2, &
                    PHI0=P17_8 !KLYS LI17 81

  K18_1a  : STRUC4, L=3.0441, DELTAE=3.0441*G18_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_1 !KLYS LI18 11
  K18_1b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_1 !KLYS LI18 11
  K18_1c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_1 !KLYS LI18 11
  K18_1d  : STRUC4, L=3.0441, DELTAE=3.0441*G18_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_1 !KLYS LI18 11
  K18_2a1 : STRUC4, L=0.3256, DELTAE=0.3256*G18_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P18_2 !KLYS LI18 21
  K18_2a2 : STRUC4, L=0.3878, DELTAE=0.3878*G18_2*P25, ELOSS=0.3878*KLOSS2, &
                    PHI0=P18_2 !KLYS LI18 21
  K18_2a3 : STRUC4, L=2.3307, DELTAE=2.3307*G18_2*P25, ELOSS=2.3307*KLOSS2, &
                    PHI0=P18_2 !KLYS LI18 21
  K18_2b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_2 !KLYS LI18 21
  K18_2c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_2 !KLYS LI18 21
  K18_2d  : STRUC4, L=3.0441, DELTAE=3.0441*G18_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_2 !KLYS LI18 21
  K18_3a1 : STRUC4, L=0.3312, DELTAE=0.3312*G18_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P18_3 !KLYS LI18 31
  K18_3a2 : STRUC4, L=0.2500, DELTAE=0.2500*G18_3*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P18_3 !KLYS LI18 31
  K18_3a3 : STRUC4, L=2.4629, DELTAE=2.4629*G18_3*P25, ELOSS=2.4629*KLOSS2, &
                    PHI0=P18_3 !KLYS LI18 31
  K18_3b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_3 !KLYS LI18 31
  K18_3c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_3 !KLYS LI18 31
  K18_3d  : STRUC4, L=3.0441, DELTAE=3.0441*G18_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_3 !KLYS LI18 31
  K18_4a1 : STRUC4, L=0.3268, DELTAE=0.3268*G18_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P18_4 !KLYS LI18 41
  K18_4a2 : STRUC4, L=0.2500, DELTAE=0.2500*G18_4*P25, ELOSS=0.2500*KLOSS2, &
                    PHI0=P18_4 !KLYS LI18 41
  K18_4a3 : STRUC4, L=2.4673, DELTAE=2.4673*G18_4*P25, ELOSS=2.4673*KLOSS2, &
                    PHI0=P18_4 !KLYS LI18 41
  K18_4b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_4 !KLYS LI18 41
  K18_4c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_4 !KLYS LI18 41
  K18_4d  : STRUC4, L=3.0441, DELTAE=3.0441*G18_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_4 !KLYS LI18 41
  K18_5a1 : STRUC4, L=0.3324, DELTAE=0.3324*G18_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P18_5 !KLYS LI18 51
  K18_5a2 : STRUC4, L=0.4095, DELTAE=0.4095*G18_5*P25, ELOSS=0.4095*KLOSS2, &
                    PHI0=P18_5 !KLYS LI18 51
  K18_5a3 : STRUC4, L=2.3022, DELTAE=2.3022*G18_5*P25, ELOSS=2.3022*KLOSS2, &
                    PHI0=P18_5 !KLYS LI18 51
  K18_5b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_5 !KLYS LI18 51
  K18_5c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_5 !KLYS LI18 51
  K18_5d  : STRUC4, L=3.0441, DELTAE=3.0441*G18_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_5 !KLYS LI18 51
  K18_6a1 : STRUC4, L=0.3280, DELTAE=0.3280*G18_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P18_6 !KLYS LI18 61
  K18_6a2 : STRUC4, L=0.3885, DELTAE=0.3885*G18_6*P25, ELOSS=0.3885*KLOSS2, &
                    PHI0=P18_6 !KLYS LI18 61
  K18_6a3 : STRUC4, L=2.3276, DELTAE=2.3276*G18_6*P25, ELOSS=2.3276*KLOSS2, &
                    PHI0=P18_6 !KLYS LI18 61
  K18_6b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_6 !KLYS LI18 61
  K18_6c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_6 !KLYS LI18 61
  K18_6d  : STRUC4, L=3.0441, DELTAE=3.0441*G18_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_6 !KLYS LI18 61
  K18_7a1 : STRUC4, L=0.3336, DELTAE=0.3336*G18_7*P25, ELOSS=0.3336*KLOSS2, &
                    PHI0=P18_7 !KLYS LI18 71
  K18_7a2 : STRUC4, L=0.3798, DELTAE=0.3798*G18_7*P25, ELOSS=0.3798*KLOSS2, &
                    PHI0=P18_7 !KLYS LI18 71
  K18_7a3 : STRUC4, L=2.3307, DELTAE=2.3307*G18_7*P25, ELOSS=2.3307*KLOSS2, &
                    PHI0=P18_7 !KLYS LI18 71
  K18_7b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_7 !KLYS LI18 71
  K18_7c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_7 !KLYS LI18 71
  K18_7d  : STRUC4, L=3.0441, DELTAE=3.0441*G18_7*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_7 !KLYS LI18 71
  K18_8a1 : STRUC4, L=0.3292, DELTAE=0.3292*G18_8*P25, ELOSS=0.3292*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81
  K18_8a2 : STRUC4, L=0.4127, DELTAE=0.4127*G18_8*P25, ELOSS=0.4127*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81
  K18_8a3 : STRUC4, L=2.3022, DELTAE=2.3022*G18_8*P25, ELOSS=2.3022*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81
  K18_8b  : STRUC4, L=3.0441, DELTAE=3.0441*G18_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81
  K18_8c  : STRUC4, L=3.0441, DELTAE=3.0441*G18_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81
  K18_8d1 : STRUC4, L=2.2729, DELTAE=2.2729*G18_8*P25, ELOSS=2.2729*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81
  K18_8d2 : STRUC4, L=0.3640, DELTAE=0.3640*G18_8*P25, ELOSS=0.3640*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81
  K18_8d3 : STRUC4, L=0.4072, DELTAE=0.4072*G18_8*P25, ELOSS=0.4072*KLOSS2, &
                    PHI0=P18_8 !KLYS LI18 81

  K19_1a  : STRUC2, L=3.0441, DELTAE=3.0441*G19_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_1 !KLYS LI19 11
  K19_1b  : STRUC2, L=3.0441, DELTAE=3.0441*G19_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_1 !KLYS LI19 11
  K19_1c  : STRUC2, L=3.0441, DELTAE=3.0441*G19_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_1 !KLYS LI19 11
  K19_1d  : STRUC2, L=3.0441, DELTAE=3.0441*G19_1*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_1 !KLYS LI19 11
  K19_2a1 : STRUC2, L=0.3256, DELTAE=0.3256*G19_2*P25, ELOSS=0.3256*KLOSS2, &
                    PHI0=P19_2 !KLYS LI19 21
  K19_2a2 : STRUC2, L=0.3592, DELTAE=0.3592*G19_2*P25, ELOSS=0.3592*KLOSS2, &
                    PHI0=P19_2 !KLYS LI19 21
  K19_2a3 : STRUC2, L=2.3593, DELTAE=2.3593*G19_2*P25, ELOSS=2.3593*KLOSS2, &
                    PHI0=P19_2 !KLYS LI19 21
  K19_2b  : STRUC2, L=3.0441, DELTAE=3.0441*G19_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_2 !KLYS LI19 21
  K19_2c  : STRUC2, L=3.0441, DELTAE=3.0441*G19_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_2 !KLYS LI19 21
  K19_2d  : STRUC2, L=3.0441, DELTAE=3.0441*G19_2*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_2 !KLYS LI19 21
  K19_3a1 : STRUC2, L=0.3312, DELTAE=0.3312*G19_3*P25, ELOSS=0.3312*KLOSS2, &
                    PHI0=P19_3 !KLYS LI19 31
  K19_3a2 : STRUC2, L=0.3695, DELTAE=0.3695*G19_3*P25, ELOSS=0.3695*KLOSS2, &
                    PHI0=P19_3 !KLYS LI19 31
  K19_3a3 : STRUC2, L=2.3434, DELTAE=2.3434*G19_3*P25, ELOSS=2.3434*KLOSS2, &
                    PHI0=P19_3 !KLYS LI19 31
  K19_3b  : STRUC2, L=3.0441, DELTAE=3.0441*G19_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_3 !KLYS LI19 31
  K19_3c  : STRUC2, L=3.0441, DELTAE=3.0441*G19_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_3 !KLYS LI19 31
  K19_3d  : STRUC2, L=3.0441, DELTAE=3.0441*G19_3*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_3 !KLYS LI19 31
  K19_4a1 : STRUC2, L=0.3268, DELTAE=0.3268*G19_4*P25, ELOSS=0.3268*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_4a2 : STRUC2, L=0.3897, DELTAE=0.3897*G19_4*P25, ELOSS=0.3897*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_4a3 : STRUC2, L=2.3276, DELTAE=2.3276*G19_4*P25, ELOSS=2.3276*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_4b  : STRUC2, L=3.0441, DELTAE=3.0441*G19_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_4c  : STRUC2, L=3.0441, DELTAE=3.0441*G19_4*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_4d1 : STRUC2, L=1.5950, DELTAE=1.5950*G19_4*P25, ELOSS=1.5950*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_4d2 : STRUC2, L=0.3207, DELTAE=0.3207*G19_4*P25, ELOSS=0.3207*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_4d3 : STRUC2, L=0.2537, DELTAE=0.2537*G19_4*P25, ELOSS=0.2537*KLOSS2, &
                    PHI0=P19_4 !KLYS LI19 41
  K19_5a1 : STRUC2, L=0.3324, DELTAE=0.3324*G19_5*P25, ELOSS=0.3324*KLOSS2, &
                    PHI0=P19_5 !KLYS LI19 51
  K19_5a2 : STRUC2, L=0.4032, DELTAE=0.4032*G19_5*P25, ELOSS=0.4032*KLOSS2, &
                    PHI0=P19_5 !KLYS LI19 51
  K19_5a3 : STRUC2, L=2.3085, DELTAE=2.3085*G19_5*P25, ELOSS=2.3085*KLOSS2, &
                    PHI0=P19_5 !KLYS LI19 51
  K19_5b  : STRUC2, L=3.0441, DELTAE=3.0441*G19_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_5 !KLYS LI19 51
  K19_5c  : STRUC2, L=3.0441, DELTAE=3.0441*G19_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_5 !KLYS LI19 51
  K19_5d  : STRUC2, L=3.0441, DELTAE=3.0441*G19_5*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_5 !KLYS LI19 51
  K19_6a1 : STRUC2, L=0.3280, DELTAE=0.3280*G19_6*P25, ELOSS=0.3280*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_6a2 : STRUC2, L=0.3854, DELTAE=0.3854*G19_6*P25, ELOSS=0.3854*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_6a3 : STRUC2, L=2.3307, DELTAE=2.3307*G19_6*P25, ELOSS=2.3307*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_6b  : STRUC2, L=3.0441, DELTAE=3.0441*G19_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_6c  : STRUC2, L=3.0441, DELTAE=3.0441*G19_6*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_6d1 : STRUC2, L=0.8425, DELTAE=0.8425*G19_6*P25, ELOSS=0.8425*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_6d2 : STRUC2, L=1.4632, DELTAE=1.4632*G19_6*P25, ELOSS=1.4632*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_6d3 : STRUC2, L=0.7384, DELTAE=0.7384*G19_6*P25, ELOSS=0.7384*KLOSS2, &
                    PHI0=P19_6 !KLYS LI19 61
  K19_8a1 : STRUC2, L=0.3895, DELTAE=0.3895*G19_8*P25, ELOSS=0.3895*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81
  K19_8a2 : STRUC2, L=0.2985, DELTAE=0.2985*G19_8*P25, ELOSS=0.2985*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81
  K19_8a3 : STRUC2, L=2.3561, DELTAE=2.3561*G19_8*P25, ELOSS=2.3561*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81
  K19_8b  : STRUC2, L=3.0441, DELTAE=3.0441*G19_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81
  K19_8c  : STRUC2, L=3.0441, DELTAE=3.0441*G19_8*P25, ELOSS=3.0441*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81
  K19_8d1 : STRUC2, L=0.8378, DELTAE=0.8378*G19_8*P25, ELOSS=0.8378*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81
  K19_8d2 : STRUC2, L=1.4922, DELTAE=1.4922*G19_8*P25, ELOSS=1.4922*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81
  K19_8d3 : STRUC2, L=0.7141, DELTAE=0.7141*G19_8*P25, ELOSS=0.7141*KLOSS2, &
                    PHI0=P19_8 !KLYS LI19 81

! ==============================================================================
! BENDs
! ------------------------------------------------------------------------------

! ASSET chicane (LI02)
! (NOTE: use series approximation of sinc(x)=sin(x)/x to allow ABA=0)

  ZBA := 12.7*IN2M !longitudinal effective length (m) ... database LEFF
  GBA := 1.05*IN2M !full gap height (m)

  ABA     := 4.5*RADDEG !full bend angle (rad)
  ABA_2   := ABA*ABA
  ABA_4   := ABA_2*ABA_2
  ABA_6   := ABA_4*ABA_2
  SINCABA := 1-ABA_2/6+ABA_4/120-ABA_6/5040 !~sinc(ABA)=sin(ABA)/ABA
  LBA     := ZBA/SINCABA !full path length (m)

  ABAS    := ASIN(SIN(ABA)/2)
  ABAS_2  := ABAS*ABAS
  ABAS_4  := ABAS_2*ABAS_2
  ABAS_6  := ABAS_4*ABAS_2
  SINCASA := 1-ABAS_2/6+ABAS_4/120-ABAS_6/5040 !~sinc(ABAS)=sin(ABAS)/ABAS
  LBAS    := ZBA/(2*SINCASA) !"short half" path length (m)

  ABAL := ABA-ABAS !"long half" bend angle (rad)
  LBAL := LBA-LBAS !"long half" path length (m)

  BX2121 : SBEN, L=LBAS, ANGLE=+ABAS, HGAP=GBA/2, &
                 E1=0, FINT=0.5, FINTX=0 !BNDS LI02  212
  BX2122 : SBEN, L=LBAL, ANGLE=+ABAL, HGAP=GBA/2, &
                 E2=+ABA, FINT=0, FINTX=0.5 !BNDS LI02  212
  BX2141 : SBEN, L=LBAL, ANGLE=-ABAL, HGAP=GBA/2, &
                 E1=-ABA, FINT=0.5, FINTX=0 !BNDS LI02  214
  BX2142 : SBEN, L=LBAS, ANGLE=-ABAS, HGAP=GBA/2, &
                 E2=0, FINT=0, FINTX=0.5 !BNDS LI02  214
  BX2181 : SBEN, L=LBAS, ANGLE=-ABAS, HGAP=GBA/2, &
                 E1=0, FINT=0.5, FINTX=0 !BNDS LI02  218
  BX2182 : SBEN, L=LBAL, ANGLE=-ABAL, HGAP=GBA/2, &
                 E2=-ABA, FINT=0, FINTX=0.5 !BNDS LI02  218
  BX2201 : SBEN, L=LBAL, ANGLE=+ABAL, HGAP=GBA/2, &
                 E1=+ABA, FINT=0.5, FINTX=0 !BNDS LI02  220
  BX2202 : SBEN, L=LBAS, ANGLE=+ABAS, HGAP=GBA/2, &
                 E2=0, FINT=0, FINTX=0.5 !BNDS LI02  220

! outer bend-to-bend path length

  LDA  := 0.322588     !outer bend-to-bend "Z" distance (m)
  LDAo := LDA/COS(ABA) !outer bend-to-bend path length (m)

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

! LBCC chicane (LI10) with pole-face rotation in the 1st/last bends

  ABL := 5.571639*RADDEG *KSIGN !full bend angle (rad)
  GBL := 1.0*IN2M               !full gap (m)

! inner bend parameters

  ZBL := 1.8                !full "Z" length (m)
  RBL := (ZBL/2)/SIN(ABL/2) !bend radius (m)
  LBL := RBL*ABL            !full path length (m)

! outer (shared) bend parameters

  ZBLo := 1.8425              !full "Z" length (m)
  RBLo := ZBLo/SIN(ABL)       !bend radius (m)
  LBLo := RBLo*ABL            !full path length (m)
  DZBL := ZBLo-ZBL*COS(ABL/2) !difference between new and old Z-length

! chicane upgrade modifications

  DEB1134 := -0.161562555223*KSIGN !rotation of bend inner pole face (rad)
  EB1134  := ABL+DEB1134           !-/+0.06431910994 rad for e-/e+

! outer (shared) e-/e+ bends

  BX34201 : SBEN, L=LBLo/2, ANGLE=+ABL/2, E2=+ABL/2, HGAP=GBL/2, &
                  FINT=0.5, FINTX=0 !BNDS LI11 3420
  BX34202 : SBEN, L=LBLo/2, ANGLE=+ABL/2, E1=-ABL/2, E2=EB1134, &
                  HGAP=GBL/2, FINT=0, FINTX=0.5 !BNDS LI11 3420
  BX34801 : SBEN, L=LBLo/2, ANGLE=+ABL/2, E1=EB1134, E2=-ABL/2, &
                  HGAP=GBL/2, FINT=0.5, FINTX=0 !BNDS LI11 3480
  BX34802 : SBEN, L=LBLo/2, ANGLE=+ABL/2, E1=+ABL/2, HGAP=GBL/2, &
                  FINT=0, FINTX=0.5 !BNDS LI11 3480

! e- bends

  BX34401 : SBEN, L=LBL/2, ANGLE=-ABL/2, E1=-ABL/2, HGAP=GBL/2, &
                  FINT=0.5, FINTX=0 !BNDS LI11 3440 e-
  BX34402 : SBEN, L=LBL/2, ANGLE=-ABL/2, E2=-ABL/2, HGAP=GBL/2, &
                  FINT=0, FINTX=0.5 !BNDS LI11 3440 e-
  BX34601 : SBEN, L=LBL/2, ANGLE=-ABL/2, E1=-ABL/2, HGAP=GBL/2, &
                  FINT=0.5, FINTX=0 !BNDS LI11 3460 e-
  BX34602 : SBEN, L=LBL/2, ANGLE=-ABL/2, E2=-ABL/2, HGAP=GBL/2, &
                  FINT=0, FINTX=0.5 !BNDS LI11 3460 e-

! e+ bends

  BX24401 : SBEN, L=LBL/2, ANGLE=-ABL/2, E1=-ABL/2, HGAP=GBL/2, &
                  FINT=0.5, FINTX=0 !BNDS LI11 3440 e+
  BX24402 : SBEN, L=LBL/2, ANGLE=-ABL/2, E2=-ABL/2, HGAP=GBL/2, &
                  FINT=0, FINTX=0.5 !BNDS LI11 3440 e+
  BX24601 : SBEN, L=LBL/2, ANGLE=-ABL/2, E1=-ABL/2, HGAP=GBL/2, &
                  FINT=0.5, FINTX=0 !BNDS LI11 3460 e+
  BX24602 : SBEN, L=LBL/2, ANGLE=-ABL/2, E2=-ABL/2, HGAP=GBL/2, &
                  FINT=0, FINTX=0.5 !BNDS LI11 3460 e+

! bend-to-bend path lengths

  DLDLo := -DZBL/2-52.838e-6      !Z-correction to outer bend drift
  DLDL  := -DZBL/2+52.838e-6      !Z-correction to DL1o drift
  LDL   := 2.8+DLDL               !outer bend-to-bend "Z" distance (m)
  LDLo  := LDL/COS(ABL)           !outer bend-to-bend path length (m)
  LDLi  := 1.5                    !inner bend-to-bend "Z" distance (m)
  LQT   := 0.20828                !correction quad effective length (m)
  LBQT  := 0.609609+DLDL/COS(ABL) !bend-to-correction-quad path length (m)

  DL1o : DRIF, L=LBQT
  DQT  : DRIF, L=LQT/2
  DL2o : DRIF, L=LDLo-(LBQT+LQT)
  DLi  : DRIF, L=LDLi
  DL1i : DRIF, L=0.582154
  DL2i : DRIF, L=0.2635
  DL3i : DRIF, L=LDLi-(DL1i[L]+DL2i[L]) !0.654346

! straight-ahead path lengths

  DLBCC0a : DRIF, L=10.7202
  DLBCC0b : DRIF, L=2.637766460796
  DLBCC0c : DRIF, L=0.978257480784

! ==============================================================================
! QUADs
! ------------------------------------------------------------------------------

  LQE  := 0.1068
  RQE  := 1.085*IN2M/2
  LQSP := 0.52172
  RQSP := 3.25*IN2M/2
  LQC  := 0.083
  RQC  := 1.095*IN2M/2
  RQT  := 2.1*IN2M/2

  KQ02114 := KSIGN*(-2.341459300833)
  KQ02121 := KSIGN*( 4.539171375702)
  KQ02127 := KSIGN*(-3.609789758039)
  KQ02134 := KSIGN*( 0.694161355325)
  KQ02146 := KSIGN*(-4.076286120486)
  KQ02201 := KSIGN*( 6.062219313330)
  KQ02211 := KSIGN*(-4.043442289354)
  KQ02221 := KSIGN*( 4.128291097493)
  KQ02231 := KSIGN*(-3.732457028734)
  KQ02301 := KSIGN*( 3.465923210228)
  KQ02311 := KSIGN*(-3.485939423749)
  KQ02321 := KSIGN*( 3.532690895905)
  KQ02331 := KSIGN*(-3.716580051641)
  KQ02401 := KSIGN*( 3.906235599773)
  KQ02411 := KSIGN*(-4.011729185001)
  KQ02421 := KSIGN*( 3.917222835437)
  KQ02431 := KSIGN*(-3.751320400233)
  KQ02501 := KSIGN*( 3.679719989379)
  KQ02511 := KSIGN*(-3.760852012087)
  KQ02521 := KSIGN*( 3.786498945559)
  KQ02531 := KSIGN*(-3.739878439477)
  KQ02601 := KSIGN*( 3.751207374879)
  KQ02611 := KSIGN*(-3.770920495615)
  KQ02621 := KSIGN*( 3.784562040208)
  KQ02631 := KSIGN*(-3.759768966376)
  KQ02701 := KSIGN*( 3.813575009955)
  KQ02711 := KSIGN*(-4.181697857207)
  KQ02721 := KSIGN*( 3.912966902065)
  KQ02731 := KSIGN*(-3.669000068256)
  KQ02801 := KSIGN*( 3.556966163214)
  KQ02811 := KSIGN*(-3.135712620023)
  KQ02821 := KSIGN*( 3.100000001850)
  KQ02831 := KSIGN*(-4.299999998885)
  KQ02901 := KSIGN*( 3.528754866696)
  KQ02991 := KSIGN*(-4.115518568922)

  KQ03121 := KSIGN*( 1.766461905499)
  KQ03201 := KSIGN*(-1.932006074476)
  KQ03221 := KSIGN*( 1.867164501056)
  KQ03301 := KSIGN*(-1.834369194972)
  KQ03321 := KSIGN*( 1.870265157477)
  KQ03401 := KSIGN*(-1.896189416763)
  KQ03421 := KSIGN*( 1.885753354085)
  KQ03501 := KSIGN*(-1.866760129681)
  KQ03521 := KSIGN*( 1.868195787411)
  KQ03601 := KSIGN*(-1.896255863828)
  KQ03621 := KSIGN*( 1.895059934055)
  KQ03701 := KSIGN*(-1.836491031362)
  KQ03721 := KSIGN*( 1.783291126125)
  KQ03801 := KSIGN*(-1.835590863128)
  KQ03821 := KSIGN*( 1.694954065849)
  KQ03901 := KSIGN*(-1.578320296789)

  KQ04121 := KSIGN*( 1.651153809981)
  KQ04201 := KSIGN*(-0.344029231652)
  KQ04221 := KSIGN*( 1.653287787563)
  KQ04301 := KSIGN*(-1.776082843670)
  KQ04321 := KSIGN*( 1.867519679424)
  KQ04401 := KSIGN*(-1.911810592034)
  KQ04421 := KSIGN*( 1.889593796054)
  KQ04501 := KSIGN*(-1.855543514873)
  KQ04521 := KSIGN*( 1.846732633640)
  KQ04601 := KSIGN*(-1.825270378039)
  KQ04621 := KSIGN*( 1.895657722248)
  KQ04701 := KSIGN*(-2.093419925445)
  KQ04721 := KSIGN*( 1.710285655243)
  KQ04801 := KSIGN*(-1.752311804100)
  KQ04821 := KSIGN*( 1.464491953973)
  KQ04901 := KSIGN*(-1.116375930201)

  KQ05201 := KSIGN*( 1.262333428240)
  KQ05301 := KSIGN*(-1.239139277828)
  KQ05401 := KSIGN*( 1.238458228860)
  KQ05501 := KSIGN*(-1.204465455646)
  KQ05601 := KSIGN*( 1.198997637028)
  KQ05701 := KSIGN*(-1.147150171538)
  KQ05801 := KSIGN*( 1.153834796219)
  KQ05901 := KSIGN*(-1.094086159188)

  KQ06201 := KSIGN*( 1.112751112081)
  KQ06301 := KSIGN*(-1.197634602303)
  KQ06401 := KSIGN*( 1.190596143141)
  KQ06501 := KSIGN*(-1.202483968244)
  KQ06601 := KSIGN*( 1.196492117835)
  KQ06701 := KSIGN*(-1.190332499367)
  KQ06801 := KSIGN*( 1.174550092030)
  KQ06901 := KSIGN*(-1.096462024509)

  KQ07201 := KSIGN*( 1.100653842958)
  KQ07301 := KSIGN*(-1.176408968841)
  KQ07401 := KSIGN*( 1.185639178219)
  KQ07501 := KSIGN*(-1.196966408633)
  KQ07601 := KSIGN*( 1.205535657570)
  KQ07701 := KSIGN*(-1.191651447852)
  KQ07801 := KSIGN*( 1.182896891797)
  KQ07901 := KSIGN*(-1.100238116133)

  KQ08201 := KSIGN*( 1.110907479036)
  KQ08301 := KSIGN*(-1.176407026525)
  KQ08401 := KSIGN*( 1.183994869307)
  KQ08501 := KSIGN*(-1.187299856587)
  KQ08601 := KSIGN*( 1.192893102407)
  KQ08701 := KSIGN*(-1.200393697052)
  KQ08801 := KSIGN*( 1.202189936117)
  KQ08901 := KSIGN*(-1.138522708296)

  KQ09201 := KSIGN*( 1.126971148387)
  KQ09301 := KSIGN*(-1.180317192945)
  KQ09401 := KSIGN*( 1.167083917193)
  KQ09501 := KSIGN*(-1.199380279766)
  KQ09601 := KSIGN*( 1.205468156074)
  KQ09701 := KSIGN*(-1.242804961905)
  KQ09801 := KSIGN*( 1.160711589829)
  KQ09901 := KSIGN*(-1.051027921637)

  KQ10201 := KSIGN*( 0.954589653777)
  KQ10301 := KSIGN*(-0.991172735274)
  KQ10401 := KSIGN*( 1.032045503955)
  KQ10501 := KSIGN*(-1.046594613162)
  KQ10601 := KSIGN*( 1.353323416238)
  KQ10701 := KSIGN*(-1.251366716493)
  KQ10801 := KSIGN*( 1.399387638434)
  KQ10802 := KSIGN*( 0.0           )
  KQ10901 := KSIGN*(-1.112674493657)

  KQ11201 := KSIGN*( 1.075591720669)
  KQ11301 := KSIGN*(-0.794209973785)
  KQ11401 := KSIGN*( 0.898326933363)
  KQ11501 := KSIGN*(-0.955543039993)
  KQ11601 := KSIGN*( 0.972709498805)
  KQ11701 := KSIGN*(-0.947287046990)
  KQ11801 := KSIGN*( 0.917957182960)
  KQ11901 := KSIGN*(-0.855933069331)

  KQ12201 := KSIGN*( 0.886208993607)
  KQ12301 := KSIGN*(-1.041397688942)
  KQ12401 := KSIGN*( 0.984839765435)
  KQ12501 := KSIGN*(-1.073282827730)
  KQ12601 := KSIGN*( 0.962302353874)
  KQ12701 := KSIGN*(-0.917391876251)
  KQ12801 := KSIGN*( 0.885325073213)
  KQ12901 := KSIGN*(-0.808082475502)

  KQ13201 := KSIGN*( 0.827109347104)
  KQ13301 := KSIGN*(-0.884899562553)
  KQ13401 := KSIGN*( 0.910983032643)
  KQ13501 := KSIGN*(-0.940989088012)
  KQ13601 := KSIGN*( 0.955039236914)
  KQ13701 := KSIGN*(-0.951255062286)
  KQ13801 := KSIGN*( 0.935197158778)
  KQ13901 := KSIGN*(-0.870710066577)

  KQ14201 := KSIGN*( 0.863564001702)
  KQ14301 := KSIGN*(-0.909751417467)
  KQ14401 := KSIGN*( 0.877374832339)
  KQ14501 := KSIGN*(-0.875135435549)
  KQ14601 := KSIGN*( 0.876109753688)
  KQ14701 := KSIGN*(-0.885147814277)
  KQ14801 := KSIGN*( 0.910916922973)
  KQ14901 := KSIGN*(-0.862797513571)

  KQ15201 := KSIGN*( 0.862020789803)
  KQ15301 := KSIGN*(-0.896549231397)
  KQ15401 := KSIGN*( 0.845890384222)
  KQ15501 := KSIGN*(-0.836286876378)
  KQ15601 := KSIGN*( 0.839009258096)
  KQ15701 := KSIGN*(-0.859066839979)
  KQ15801 := KSIGN*( 0.898965260261)
  KQ15901 := KSIGN*(-0.856000148393)

  KQ16201 := KSIGN*( 0.854535960076)
  KQ16301 := KSIGN*(-0.881528984455)
  KQ16401 := KSIGN*( 0.820636129033)
  KQ16501 := KSIGN*(-0.805764349594)
  KQ16601 := KSIGN*( 0.807783291499)
  KQ16701 := KSIGN*(-0.831863544207)
  KQ16801 := KSIGN*( 0.883453503006)
  KQ16901 := KSIGN*(-0.849462694943)

  KQ17201 := KSIGN*( 0.857164928783)
  KQ17301 := KSIGN*(-0.886893716231)
  KQ17401 := KSIGN*( 0.830575206691)
  KQ17501 := KSIGN*(-0.815495548542)
  KQ17601 := KSIGN*( 0.815700000705)
  KQ17701 := KSIGN*(-0.840132845401)
  KQ17801 := KSIGN*( 0.887606233531)
  KQ17901 := KSIGN*(-0.854037272295)

  KQ18201 := KSIGN*( 0.805573731772)
  KQ18301 := KSIGN*(-0.820519739537)
  KQ18401 := KSIGN*( 0.808085124015)
  KQ18501 := KSIGN*(-0.858832977945)
  KQ18601 := KSIGN*( 0.877871634149)
  KQ18701 := KSIGN*(-0.606964631611)
  KQ18801 := KSIGN*( 0.664958513351)
  KQ18901 := KSIGN*(-0.775498326426)

  KQ19201 := KSIGN*( 0.843909250829)
  KQ19301 := KSIGN*(-0.828316424294)
  KQ19401 := KSIGN*( 0.840608212729)
  KQ19501 := KSIGN*(-0.778178661305)
  KQ19601 := KSIGN*( 0.77143041    )
  KQ19701 := KSIGN*(-0.7786437     )
  KQ19801 := KSIGN*( 0.79915052666 )
  KQ19901 := KSIGN*(-0.773319822931)

  Q02114 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02114
  Q02121 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02121
  Q02127 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02127
  Q02134 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02134
  Q02146 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02146
  Q02201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02201
  Q02211 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02211
  Q02221 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02221
  Q02231 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02231
  Q02301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02301
  Q02311 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02311
  Q02321 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02321
  Q02331 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02331
  Q02401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02401
  Q02411 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02411
  Q02421 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02421
  Q02431 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02431
  Q02501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02501
  Q02511 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02511
  Q02521 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02521
  Q02531 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02531
  Q02601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02601
  Q02611 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02611
  Q02621 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02621
  Q02631 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02631
  Q02701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02701
  Q02711 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02711
  Q02721 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02721
  Q02731 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02731
  Q02801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02801
  Q02811 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02811
  Q02821 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02821
  Q02831 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02831
  Q02901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02901
  Q02991 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ02991

  Q03121 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03121
  Q03201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03201
  Q03221 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03221
  Q03301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03301
  Q03321 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03321
  Q03401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03401
  Q03421 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03421
  Q03501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03501
  Q03521 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03521
  Q03601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03601
  Q03621 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03621
  Q03701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03701
  Q03721 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03721
  Q03801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03801
  Q03821 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03821
  Q03901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ03901

  Q04121 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04121
  Q04201 : QUAD, TYPE="QSP", L=LQSP/2, APER=RQSP, K1=KQ04201
  Q04221 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04221
  Q04301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04301
  Q04321 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04321
  Q04401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04401
  Q04421 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04421
  Q04501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04501
  Q04521 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04521
  Q04601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04601
  Q04621 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04621
  Q04701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04701
  Q04721 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04721
  Q04801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04801
  Q04821 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04821
  Q04901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ04901

  Q05201 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05201
  Q05301 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05301
  Q05401 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05401
  Q05501 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05501
  Q05601 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05601
  Q05701 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05701
  Q05801 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05801
  Q05901 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ05901

  Q06201 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06201
  Q06301 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06301
  Q06401 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06401
  Q06501 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06501
  Q06601 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06601
  Q06701 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06701
  Q06801 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06801
  Q06901 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ06901

  Q07201 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07201
  Q07301 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07301
  Q07401 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07401
  Q07501 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07501
  Q07601 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07601
  Q07701 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07701
  Q07801 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07801
  Q07901 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ07901

  Q08201 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08201
  Q08301 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08301
  Q08401 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08401
  Q08501 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08501
  Q08601 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08601
  Q08701 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08701
  Q08801 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08801
  Q08901 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ08901

  Q09201 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09201
  Q09301 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09301
  Q09401 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09401
  Q09501 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09501
  Q09601 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09601
  Q09701 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09701
  Q09801 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09801
  Q09901 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ09901

  Q10201 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10201
  Q10301 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10301
  Q10401 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10401
  Q10501 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10501
  Q10601 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10601
  Q10701 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10701
  Q10801 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10801
  Q10802 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ10802
  Q10901 : QUAD, TYPE="QC",  L=LQC/2,  APER=RQC,  K1=KQ10901

  Q11201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11201
  Q11301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11301
  Q11401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11401
  Q11501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11501
  Q11601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11601
  Q11701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11701
  Q11801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11801
  Q11901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ11901

  Q12201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12201
  Q12301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12301
  Q12401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12401
  Q12501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12501
  Q12601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12601
  Q12701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12701
  Q12801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12801
  Q12901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ12901

  Q13201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13201
  Q13301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13301
  Q13401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13401
  Q13501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13501
  Q13601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13601
  Q13701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13701
  Q13801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13801
  Q13901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ13901

  Q14201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14201
  Q14301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14301
  Q14401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14401
  Q14501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14501
  Q14601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14601
  Q14701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14701
  Q14801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14801
  Q14901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ14901

  Q15201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15201
  Q15301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15301
  Q15401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15401
  Q15501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15501
  Q15601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15601
  Q15701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15701
  Q15801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15801
  Q15901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ15901

  Q16201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16201
  Q16301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16301
  Q16401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16401
  Q16501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16501
  Q16601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16601
  Q16701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16701
  Q16801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16801
  Q16901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ16901

  Q17201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17201
  Q17301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17301
  Q17401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17401
  Q17501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17501
  Q17601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17601
  Q17701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17701
  Q17801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17801
  Q17901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ17901

  Q18201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18201
  Q18301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18301
  Q18401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18401
  Q18501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18501
  Q18601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18601
  Q18701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18701
  Q18801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18801
  Q18901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ18901

  Q19201 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19201
  Q19301 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19301
  Q19401 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19401
  Q19501 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19501
  Q19601 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19601
  Q19701 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19701
  Q19801 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19801
  Q19901 : QUAD, TYPE="QE",  L=LQE/2,  APER=RQE,  K1=KQ19901

! LBCC quad correctors for e- and e+

  KQT := -0.016378567434

  QT3430 : QUAD, TYPE="QT", L=LQT/2, APER=RQT, K1=KQT !QUAD LI11 3430 e-
  QT3470 : QUAD, TYPE="QT", L=LQT/2, APER=RQT, K1=KQT !QUAD LI11 3470 e-

  QT2430 : QUAD, TYPE="QT", L=LQT/2, APER=RQT, K1=KQT !QUAD LI11 2430 e+
  QT2470 : QUAD, TYPE="QT", L=LQT/2, APER=RQT, K1=KQT !QUAD LI11 2470 e+

! ==============================================================================
! DRIFTs
! ------------------------------------------------------------------------------

  LKQ1 := 0.0377
  LQK1 := 0.0304
  LKQ2 := 0.0342
  LQK2 := 0.027
  LKQ3 := 0.0461
  LQK3 := 0.0389

  D02112   : DRIF, L=0.2
  D02113   : DRIF, L=1.15422
  D02114   : DRIF, L=0.2101
  D02117   : DRIF, L=0.3175
  D02118   : DRIF, L=0.5654
  D02119   : DRIF, L=0.43842
  D02120   : DRIF, L=0.2228
  D02121   : DRIF, L=0.2355
  D02124   : DRIF, L=0.8575
  D02125   : DRIF, L=0.20662
  D02126   : DRIF, L=0.4546
  D02127   : DRIF, L=0.2387
  D02130   : DRIF, L=1.20822
  D02133   : DRIF, L=0.3073
  D02134   : DRIF, L=0.4387
  D02137   : DRIF, L=0.2667
  D02138   : DRIF, L=0.3112
  D02139   : DRIF, L=0.273
  D02140   : DRIF, L=0.4194
  WAKETEST : DRIF, L=0.825
  D02143   : DRIF, L=0.42535
  D02144   : DRIF, L=0.3365
  D02145   : DRIF, L=0.226
  D02146   : DRIF, L=0.3323
  D02148   : DRIF, L=0.38057
  D02201   : DRIF, L=0.171
  D02202   : DRIF, L=2.2439
  D02208   : DRIF, L=0.184
  D02209   : DRIF, L=0.335
  D02211   : DRIF, L=0.114876
  D02212   : DRIF, L=LDAo
  D02214   : DRIF, L=0.218776
  D02216   : DRIF, L=0.530276
  D02218   : DRIF, L=LDAo
  D02220   : DRIF, L=0.137876
  D02221   : DRIF, L=LQK1
  D02230   : DRIF, L=LKQ1
  D02231   : DRIF, L=LQK1
  D02238   : DRIF, L=0.0871
  D02239   : DRIF, L=0.122
  D02301   : DRIF, L=LQK2
  D02310   : DRIF, L=LKQ1
  D02311   : DRIF, L=LQK1
  D02320   : DRIF, L=LKQ1
  D02321   : DRIF, L=LQK1
  D02330   : DRIF, L=LKQ1
  D02331   : DRIF, L=LQK1
  D02338   : DRIF, L=0.0901
  D02339   : DRIF, L=0.119
  D02401   : DRIF, L=LQK2
  D02410   : DRIF, L=LKQ1
  D02411   : DRIF, L=LQK1
  D02420   : DRIF, L=LKQ1
  D02421   : DRIF, L=LQK1
  D02430   : DRIF, L=LKQ1
  D02431   : DRIF, L=LQK1
  D02500   : DRIF, L=LKQ2
  D02501   : DRIF, L=LQK2
  D02510   : DRIF, L=LKQ1
  D02511   : DRIF, L=LQK1
  D02520   : DRIF, L=LKQ1
  D02521   : DRIF, L=LQK1
  D02530   : DRIF, L=LKQ1
  D02531   : DRIF, L=LQK1
  D02600   : DRIF, L=LKQ2
  D02601   : DRIF, L=LQK2
  D02610   : DRIF, L=LKQ1
  D02611   : DRIF, L=LQK1
  D02620   : DRIF, L=LKQ1
  D02621   : DRIF, L=LQK1
  D02630   : DRIF, L=LKQ1
  D02631   : DRIF, L=LQK1
  D02700   : DRIF, L=LKQ2
  D02701   : DRIF, L=LQK2
  D02710   : DRIF, L=LKQ1
  D02711   : DRIF, L=LQK1
  D02720   : DRIF, L=LKQ1
  D02721   : DRIF, L=LQK1
  D02730   : DRIF, L=LKQ1
  D02731   : DRIF, L=LQK1
  D02800   : DRIF, L=LKQ2
  D02801   : DRIF, L=LQK2
  D02810   : DRIF, L=LKQ1
  D02811   : DRIF, L=LQK1
  D02820   : DRIF, L=LKQ1
  D02821   : DRIF, L=LQK1
  D02830   : DRIF, L=LKQ1
  D02831   : DRIF, L=LQK1
  D02900   : DRIF, L=0.3533
  D02901   : DRIF, L=1.6527
  D02990   : DRIF, L=0.5966
  D02991   : DRIF, L=0.1966

  D03120   : DRIF, L=LKQ1
  D03121   : DRIF, L=LQK1
  D03200   : DRIF, L=LKQ2
  D03201   : DRIF, L=LQK2
  D03220   : DRIF, L=LKQ1
  D03221   : DRIF, L=LQK1
  D03300   : DRIF, L=LKQ2
  D03301   : DRIF, L=LQK2
  D03320   : DRIF, L=LKQ1
  D03321   : DRIF, L=LQK1
  D03400   : DRIF, L=LKQ2
  D03401   : DRIF, L=LQK2
  D03420   : DRIF, L=LKQ1
  D03421   : DRIF, L=LQK1
  D03500   : DRIF, L=LKQ2
  D03501   : DRIF, L=LQK2
  D03520   : DRIF, L=LKQ1
  D03521   : DRIF, L=LQK1
  D03600   : DRIF, L=LKQ2
  D03601   : DRIF, L=LQK2
  D03620   : DRIF, L=LKQ1
  D03621   : DRIF, L=LQK1
  D03700   : DRIF, L=LKQ2
  D03701   : DRIF, L=LQK2
  D03720   : DRIF, L=LKQ1
  D03721   : DRIF, L=LQK1
  D03800   : DRIF, L=LKQ2
  D03801   : DRIF, L=LQK2
  D03820   : DRIF, L=LKQ1
  D03821   : DRIF, L=LQK1
  D03900   : DRIF, L=1.7216
  D03901a  : DRIF, L=0.6824
  D03901b  : DRIF, L=0.2667
  D03901c  : DRIF, L=0.2353

  D04120   : DRIF, L=LKQ1
  D04121a  : DRIF, L=1.1722
  D04121b  : DRIF, L=2.5829
  D04200a  : DRIF, L=0.42545
  D04200b  : DRIF, L=0.99695
  D04200c  : DRIF, L=0.76784
  D04201a  : DRIF, L=0.29547
  D04201b  : DRIF, L=4.42357
  D04220a  : DRIF, L=0.65405
  D04220b  : DRIF, L=0.1397
  D04220c  : DRIF, L=0.25775
  D04221   : DRIF, L=LQK1
  D04300   : DRIF, L=LKQ2
  D04301   : DRIF, L=LQK2
  D04320   : DRIF, L=LKQ1
  D04321   : DRIF, L=LQK1
  D04400   : DRIF, L=LKQ2
  D04401   : DRIF, L=LQK2
  D04420   : DRIF, L=LKQ1
  D04421   : DRIF, L=LQK1
  D04500   : DRIF, L=LKQ2
  D04501   : DRIF, L=LQK2
  D04520   : DRIF, L=LKQ1
  D04521   : DRIF, L=LQK1
  D04600   : DRIF, L=LKQ2
  D04601   : DRIF, L=LQK2
  D04620   : DRIF, L=LKQ1
  D04621   : DRIF, L=LQK1
  D04700   : DRIF, L=LKQ2
  D04701   : DRIF, L=LQK2
  D04720   : DRIF, L=LKQ1
  D04721   : DRIF, L=LQK1
  D04800   : DRIF, L=LKQ2
  D04801   : DRIF, L=LQK2
  D04820   : DRIF, L=LKQ1
  D04821   : DRIF, L=LQK1
  D04900a  : DRIF, L=0.535
  D04900b  : DRIF, L=0.699
  D04900c  : DRIF, L=0.7676
  D04901a  : DRIF, L=0.565
  D04901b  : DRIF, L=0.3394

  D05200   : DRIF, L=LKQ3
  D05201   : DRIF, L=LQK3
  D05300   : DRIF, L=LKQ3
  D05301   : DRIF, L=LQK3
  D05400   : DRIF, L=LKQ3
  D05401   : DRIF, L=LQK3
  D05500   : DRIF, L=LKQ3
  D05501   : DRIF, L=LQK3
  D05600   : DRIF, L=LKQ3
  D05601   : DRIF, L=LQK3
  D05700   : DRIF, L=LKQ3
  D05701   : DRIF, L=LQK3
  D05800   : DRIF, L=LKQ3
  D05801   : DRIF, L=LQK3
  D05900   : DRIF, L=0.3652
  D05901a  : DRIF, L=0.9695
  D05901b  : DRIF, L=0.486
  D05901c  : DRIF, L=1.1091

  D06200   : DRIF, L=LKQ3
  D06201   : DRIF, L=LQK3
  D06300   : DRIF, L=LKQ3
  D06301   : DRIF, L=LQK3
  D06400   : DRIF, L=LKQ3
  D06401   : DRIF, L=LQK3
  D06500   : DRIF, L=LKQ3
  D06501   : DRIF, L=LQK3
  D06600   : DRIF, L=LKQ3
  D06601   : DRIF, L=LQK3
  D06700   : DRIF, L=LKQ3
  D06701   : DRIF, L=LQK3
  D06800   : DRIF, L=LKQ3
  D06801   : DRIF, L=LQK3
  D06900   : DRIF, L=0.3652
  D06901a  : DRIF, L=0.9695
  D06901b  : DRIF, L=0.486
  D06901c  : DRIF, L=1.1091

  D07200   : DRIF, L=LKQ3
  D07201   : DRIF, L=LQK3
  D07300   : DRIF, L=LKQ3
  D07301   : DRIF, L=LQK3
  D07400   : DRIF, L=LKQ3
  D07401   : DRIF, L=LQK3
  D07500   : DRIF, L=LKQ3
  D07501   : DRIF, L=LQK3
  D07600   : DRIF, L=LKQ3
  D07601   : DRIF, L=LQK3
  D07700   : DRIF, L=LKQ3
  D07701   : DRIF, L=LQK3
  D07800   : DRIF, L=LKQ3
  D07801   : DRIF, L=LQK3
  D07900   : DRIF, L=0.3652
  D07901   : DRIF, L=2.5646

  D08200   : DRIF, L=LKQ3
  D08201   : DRIF, L=LQK3
  D08300   : DRIF, L=LKQ3
  D08301   : DRIF, L=LQK3
  D08400   : DRIF, L=LKQ3
  D08401   : DRIF, L=LQK3
  D08500   : DRIF, L=LKQ3
  D08501   : DRIF, L=LQK3
  D08600   : DRIF, L=LKQ3
  D08601   : DRIF, L=LQK3
  D08700   : DRIF, L=LKQ3
  D08701   : DRIF, L=LQK3
  D08800   : DRIF, L=LKQ3
  D08801   : DRIF, L=LQK3
  D08900   : DRIF, L=0.3652
  D08901   : DRIF, L=2.5646

  D09200   : DRIF, L=LKQ3
  D09201   : DRIF, L=LQK3
  D09300   : DRIF, L=LKQ3
  D09301   : DRIF, L=LQK3
  D09400   : DRIF, L=LKQ3
  D09401   : DRIF, L=LQK3
  D09500   : DRIF, L=LKQ3
  D09501   : DRIF, L=LQK3
  D09600   : DRIF, L=LKQ3
  D09601   : DRIF, L=LQK3
  D09700   : DRIF, L=LKQ3
  D09701   : DRIF, L=LQK3
  D09800   : DRIF, L=LKQ3
  D09801   : DRIF, L=LQK3
  D09900   : DRIF, L=0.3652
  D09901   : DRIF, L=2.5646

  D10130   : DRIF, L=0.254
  D10131   : DRIF, L=0.6
  D10135   : DRIF, L=5.2803
  D10201   : DRIF, L=0.0389
  D10300   : DRIF, L=0.0461
  D10301   : DRIF, L=0.0389
  D10400   : DRIF, L=0.0461
  D10401a  : DRIF, L=0.25
  D10401b  : DRIF, L=0.50543
  D10401c  : DRIF, L=1.4097
  D10401d  : DRIF, L=7.55967
  D10404   : DRIF, L=2.2466
  D10500   : DRIF, L=0.29
  D10501   : DRIF, L=0.0389
  D10600   : DRIF, L=0.0461
  D10601   : DRIF, L=0.0389
  D10700   : DRIF, L=0.0461
  D10701   : DRIF, L=0.0389
  D10800   : DRIF, L=0.0461
  D10801a  : DRIF, L=0.5988
  D10801b  : DRIF, L=0.385
  D10801c  : DRIF, L=0.549533539204
  D10802   : DRIF, L=0.23
  D10900   : DRIF, L=1.087842519204
  D10901a  : DRIF, L=0.4894
  D10901b  : DRIF, L=0.4056

  D11200   : DRIF, L=LKQ2
  D11201   : DRIF, L=LQK2
  D11300   : DRIF, L=0.5168
  D11301a  : DRIF, L=0.47175
  D11301b  : DRIF, L=2.11675
  D11400a  : DRIF, L=2.6763
  D11400b  : DRIF, L=0.402
  D11401   : DRIF, L=LQK2
  D114ab   : DRIF, L=0.8747
  D114bc   : DRIF, L=0.8747
  D11500a  : DRIF, L=0.2511
  D11500b  : DRIF, L=0.4238
  D11500c  : DRIF, L=0.234
  D11501   : DRIF, L=LQK2
  D115bc   : DRIF, L=0.8747
  D11600   : DRIF, L=LKQ2
  D11601   : DRIF, L=LQK2
  D11613   : DRIF, L=0.36121
  D11614   : DRIF, L=0.51349
  D11700a  : DRIF, L=0.2511
  D11700b  : DRIF, L=0.4238
  D11700c  : DRIF, L=0.234
  D11701   : DRIF, L=LQK2
  D11800a  : DRIF, L=0.34
  D11800b  : DRIF, L=0.2921
  D11800c  : DRIF, L=0.2768
  D11801   : DRIF, L=LQK2
  D11900   : DRIF, L=0.3533
  D11901a  : DRIF, L=0.84513
  D11901b  : DRIF, L=0.27622
  D11901c  : DRIF, L=1.43135

  D12200   : DRIF, L=LKQ2
  D12201   : DRIF, L=LQK2
  D122a1   : DRIF, L=0.32195
  D122a2   : DRIF, L=0.2794
  D122a3   : DRIF, L=0.27335
  D12300   : DRIF, L=LKQ2
  D12301   : DRIF, L=LQK2
  D12400   : DRIF, L=LKQ2
  D12401   : DRIF, L=LQK2
  D12500   : DRIF, L=LKQ2
  D12501   : DRIF, L=LQK2
  D12600   : DRIF, L=LKQ2
  D12601   : DRIF, L=LQK2
  D12700   : DRIF, L=LKQ2
  D12701   : DRIF, L=LQK2
  D12800   : DRIF, L=LKQ2
  D12801   : DRIF, L=LQK2
  D12900   : DRIF, L=0.3533
  D12901   : DRIF, L=2.5527

  D13200   : DRIF, L=LKQ2
  D13201   : DRIF, L=LQK2
  D13300   : DRIF, L=LKQ2
  D13301   : DRIF, L=LQK2
  D13400   : DRIF, L=LKQ2
  D13401   : DRIF, L=LQK2
  D13500   : DRIF, L=LKQ2
  D13501   : DRIF, L=LQK2
  D13600   : DRIF, L=LKQ2
  D13601   : DRIF, L=LQK2
  D13700   : DRIF, L=LKQ2
  D13701   : DRIF, L=LQK2
  D13800   : DRIF, L=LKQ2
  D13801   : DRIF, L=LQK2
  D13900   : DRIF, L=0.3533
  D13901   : DRIF, L=2.5527

  D14200   : DRIF, L=LKQ2
  D14201   : DRIF, L=LQK2
  D14300   : DRIF, L=LKQ2
  D14301   : DRIF, L=LQK2
  D14400   : DRIF, L=LKQ2
  D14401   : DRIF, L=LQK2
  D14500   : DRIF, L=LKQ2
  D14501   : DRIF, L=LQK2
  D14600   : DRIF, L=LKQ2
  D14601   : DRIF, L=LQK2
  D14700   : DRIF, L=LKQ2
  D14701   : DRIF, L=LQK2
  D14800   : DRIF, L=LKQ2
  D14801   : DRIF, L=LQK2
  D14900   : DRIF, L=0.3533
  D14901   : DRIF, L=2.5527

  D15200   : DRIF, L=LKQ2
  D15201   : DRIF, L=LQK2
  D15300   : DRIF, L=LKQ2
  D15301   : DRIF, L=LQK2
  D15400   : DRIF, L=LKQ2
  D15401   : DRIF, L=LQK2
  D15500   : DRIF, L=LKQ2
  D15501   : DRIF, L=LQK2
  D15600   : DRIF, L=LKQ2
  D15601   : DRIF, L=LQK2
  D15700   : DRIF, L=LKQ2
  D15701   : DRIF, L=LQK2
  D15800   : DRIF, L=LKQ2
  D15801   : DRIF, L=LQK2
  D15900   : DRIF, L=0.3533
  D15901   : DRIF, L=2.5527

  D16200   : DRIF, L=LKQ2
  D16201   : DRIF, L=LQK2
  D16300   : DRIF, L=LKQ2
  D16301   : DRIF, L=LQK2
  D16400   : DRIF, L=LKQ2
  D16401   : DRIF, L=LQK2
  D16500   : DRIF, L=LKQ2
  D16501   : DRIF, L=LQK2
  D16600   : DRIF, L=LKQ2
  D16601   : DRIF, L=LQK2
  D16700   : DRIF, L=LKQ2
  D16701   : DRIF, L=LQK2
  D16800   : DRIF, L=LKQ2
  D16801   : DRIF, L=LQK2
  D16900   : DRIF, L=0.3533
  D16901   : DRIF, L=2.5527

  D17200   : DRIF, L=LKQ2
  D17201   : DRIF, L=LQK2
  D17300   : DRIF, L=LKQ2
  D17301   : DRIF, L=LQK2
  D17400   : DRIF, L=LKQ2
  D17401   : DRIF, L=LQK2
  D17500   : DRIF, L=LKQ2
  D17501   : DRIF, L=LQK2
  D17600   : DRIF, L=LKQ2
  D17601   : DRIF, L=LQK2
  D17700   : DRIF, L=LKQ2
  D17701   : DRIF, L=LQK2
  D17800   : DRIF, L=LKQ2
  D17801   : DRIF, L=LQK2
  D17900   : DRIF, L=0.3533
  D17901a  : DRIF, L=0.9181
  D17901b  : DRIF, L=1.6346

  D18200   : DRIF, L=LKQ2
  D18201   : DRIF, L=LQK2
  D18300   : DRIF, L=LKQ2
  D18301   : DRIF, L=LQK2
  D18400   : DRIF, L=LKQ2
  D18401   : DRIF, L=LQK2
  D18500   : DRIF, L=LKQ2
  D18501   : DRIF, L=LQK2
  D18600   : DRIF, L=LKQ2
  D18601   : DRIF, L=LQK2
  D18700   : DRIF, L=LKQ2
  D18701   : DRIF, L=LQK2
  D18800   : DRIF, L=LKQ2
  D18801   : DRIF, L=LQK2
  D18900   : DRIF, L=0.3533
  D18901a  : DRIF, L=0.222952
  D18901b  : DRIF, L=0.443738
  D18901c  : DRIF, L=0.31891
  D18901d  : DRIF, L=1.5671

  D19200   : DRIF, L=LKQ2
  D19201   : DRIF, L=LQK2
  D19300   : DRIF, L=LKQ2
  D19301   : DRIF, L=LQK2
  D19400   : DRIF, L=LKQ2
  D19401   : DRIF, L=LQK2
  D19500a  : DRIF, L=0.4378
  D19500b  : DRIF, L=0.4711
  D19501   : DRIF, L=LQK2
  D19600   : DRIF, L=LKQ2
  D19601   : DRIF, L=LQK2
  D19700   : DRIF, L=LKQ2
  D19800   : DRIF, L=12.2376
  D19801   : DRIF, L=LQK2
  D19900   : DRIF, L=0.3209
  D19901a  : DRIF, L=0.4420534      !0.517384
  D19901b  : DRIF, L=0.0753306      !0
  D19901c  : DRIF, L=0.308490683414

! ==============================================================================
! XCORs
! ------------------------------------------------------------------------------

  XC02117 : HKIC
  XC02120 : HKIC
  XC02126 : HKIC
  XC02138 : HKIC
  XC02145 : HKIC
  XC02212 : HKIC
  XC02214 : HKIC
  XC02218 : HKIC
  XC02220 : HKIC
  XC02230 : HKIC
  XC02300 : HKIC
  XC02310 : HKIC
  XC02320 : HKIC
  XC02330 : HKIC
  XC02400 : HKIC
  XC02410 : HKIC
  XC02420 : HKIC
  XC02430 : HKIC
  XC02500 : HKIC
  XC02510 : HKIC
  XC02520 : HKIC
  XC02530 : HKIC
  XC02600 : HKIC
  XC02610 : HKIC
  XC02620 : HKIC
  XC02630 : HKIC
  XC02700 : HKIC
  XC02710 : HKIC
  XC02720 : HKIC
  XC02730 : HKIC
  XC02800 : HKIC
  XC02810 : HKIC
  XC02820 : HKIC
  XC02830 : HKIC
  XC02900 : HKIC
  XC02999 : HKIC
  XC03120 : HKIC
  XC03200 : HKIC
  XC03220 : HKIC
  XC03300 : HKIC
  XC03320 : HKIC
  XC03400 : HKIC
  XC03420 : HKIC
  XC03500 : HKIC
  XC03520 : HKIC
  XC03600 : HKIC
  XC03620 : HKIC
  XC03700 : HKIC
  XC03720 : HKIC
  XC03800 : HKIC
  XC03820 : HKIC
  XC03900 : HKIC
  XC04120 : HKIC
  XC04200 : HKIC
  XC04220 : HKIC
  XC04300 : HKIC
  XC04320 : HKIC
  XC04400 : HKIC
  XC04420 : HKIC
  XC04500 : HKIC
  XC04520 : HKIC
  XC04600 : HKIC
  XC04620 : HKIC
  XC04700 : HKIC
  XC04720 : HKIC
  XC04800 : HKIC
  XC04820 : HKIC
  XC04999 : HKIC
  XC05202 : HKIC
  XC05302 : HKIC
  XC05402 : HKIC
  XC05502 : HKIC
  XC05602 : HKIC
  XC05702 : HKIC
  XC05802 : HKIC
  XC05900 : HKIC
  XC06202 : HKIC
  XC06302 : HKIC
  XC06402 : HKIC
  XC06502 : HKIC
  XC06602 : HKIC
  XC06702 : HKIC
  XC06802 : HKIC
  XC06900 : HKIC
  XC07202 : HKIC
  XC07302 : HKIC
  XC07402 : HKIC
  XC07502 : HKIC
  XC07602 : HKIC
  XC07702 : HKIC
  XC07802 : HKIC
  XC07900 : HKIC
  XC08202 : HKIC
  XC08302 : HKIC
  XC08402 : HKIC
  XC08502 : HKIC
  XC08602 : HKIC
  XC08702 : HKIC
  XC08802 : HKIC
  XC08900 : HKIC
  XC09202 : HKIC
  XC09302 : HKIC
  XC09402 : HKIC
  XC09502 : HKIC
  XC09602 : HKIC
  XC09702 : HKIC
  XC09802 : HKIC
  XC09900 : HKIC
  XC10202 : HKIC
  XC10302 : HKIC
  XC10402 : HKIC
  XC10404 : HKIC
  XC10502 : HKIC
  XC10602 : HKIC
  XC10702 : HKIC
  XC10802 : HKIC
  XC10900 : HKIC
  XC10950 : HKIC
  XC11202 : HKIC
  XC11300 : HKIC
  XC11402 : HKIC
  XC11502 : HKIC
  XC11602 : HKIC
  XC11702 : HKIC
  XC11802 : HKIC
  XC11900 : HKIC
  XC12202 : HKIC
  XC12302 : HKIC
  XC12402 : HKIC
  XC12502 : HKIC
  XC12602 : HKIC
  XC12702 : HKIC
  XC12802 : HKIC
  XC12900 : HKIC
  XC13202 : HKIC
  XC13302 : HKIC
  XC13402 : HKIC
  XC13502 : HKIC
  XC13602 : HKIC
  XC13702 : HKIC
  XC13802 : HKIC
  XC13900 : HKIC
  XC14202 : HKIC
  XC14302 : HKIC
  XC14402 : HKIC
  XC14502 : HKIC
  XC14602 : HKIC
  XC14702 : HKIC
  XC14802 : HKIC
  XC14900 : HKIC
  XC15202 : HKIC
  XC15302 : HKIC
  XC15402 : HKIC
  XC15502 : HKIC
  XC15602 : HKIC
  XC15702 : HKIC
  XC15802 : HKIC
  XC15900 : HKIC
  XC16202 : HKIC
  XC16302 : HKIC
  XC16402 : HKIC
  XC16502 : HKIC
  XC16602 : HKIC
  XC16702 : HKIC
  XC16802 : HKIC
  XC16900 : HKIC
  XC17202 : HKIC
  XC17302 : HKIC
  XC17402 : HKIC
  XC17502 : HKIC
  XC17602 : HKIC
  XC17702 : HKIC
  XC17802 : HKIC
  XC17900 : HKIC
  XC17950 : HKIC
  XC18202 : HKIC
  XC18302 : HKIC
  XC18402 : HKIC
  XC18502 : HKIC
  XC18602 : HKIC
  XC18702 : HKIC
  XC18802 : HKIC
  XC18900 : HKIC
  XC19202 : HKIC
  XC19302 : HKIC
  XC19402 : HKIC
  XC19502 : HKIC
  XC19602 : HKIC
  XC19700 : HKIC
  XC19802 : HKIC
  XC19900 : HKIC

! ==============================================================================
! YCORs
! ------------------------------------------------------------------------------

  YC02118 : VKIC
  YC02124 : VKIC
  YC02130 : VKIC
  YC02139 : VKIC
  YC02202 : VKIC
  YC02212 : VKIC
  YC02222 : VKIC
  YC02232 : VKIC
  YC02302 : VKIC
  YC02312 : VKIC
  YC02322 : VKIC
  YC02332 : VKIC
  YC02402 : VKIC
  YC02412 : VKIC
  YC02422 : VKIC
  YC02432 : VKIC
  YC02502 : VKIC
  YC02512 : VKIC
  YC02522 : VKIC
  YC02532 : VKIC
  YC02602 : VKIC
  YC02612 : VKIC
  YC02622 : VKIC
  YC02632 : VKIC
  YC02702 : VKIC
  YC02712 : VKIC
  YC02722 : VKIC
  YC02732 : VKIC
  YC02802 : VKIC
  YC02812 : VKIC
  YC02822 : VKIC
  YC02832 : VKIC
  YC02900 : VKIC
  YC02999 : VKIC
  YC03122 : VKIC
  YC03202 : VKIC
  YC03222 : VKIC
  YC03302 : VKIC
  YC03322 : VKIC
  YC03402 : VKIC
  YC03422 : VKIC
  YC03502 : VKIC
  YC03522 : VKIC
  YC03602 : VKIC
  YC03622 : VKIC
  YC03702 : VKIC
  YC03722 : VKIC
  YC03802 : VKIC
  YC03822 : VKIC
  YC03900 : VKIC
  YC04122 : VKIC
  YC04202 : VKIC
  YC04222 : VKIC
  YC04302 : VKIC
  YC04322 : VKIC
  YC04402 : VKIC
  YC04422 : VKIC
  YC04502 : VKIC
  YC04522 : VKIC
  YC04602 : VKIC
  YC04622 : VKIC
  YC04702 : VKIC
  YC04722 : VKIC
  YC04802 : VKIC
  YC04822 : VKIC
  YC04999 : VKIC
  YC05203 : VKIC
  YC05303 : VKIC
  YC05403 : VKIC
  YC05503 : VKIC
  YC05603 : VKIC
  YC05703 : VKIC
  YC05803 : VKIC
  YC05900 : VKIC
  YC06203 : VKIC
  YC06303 : VKIC
  YC06403 : VKIC
  YC06503 : VKIC
  YC06603 : VKIC
  YC06703 : VKIC
  YC06803 : VKIC
  YC06900 : VKIC
  YC07203 : VKIC
  YC07303 : VKIC
  YC07403 : VKIC
  YC07503 : VKIC
  YC07603 : VKIC
  YC07703 : VKIC
  YC07803 : VKIC
  YC07900 : VKIC
  YC08203 : VKIC
  YC08303 : VKIC
  YC08403 : VKIC
  YC08503 : VKIC
  YC08603 : VKIC
  YC08703 : VKIC
  YC08803 : VKIC
  YC08900 : VKIC
  YC09203 : VKIC
  YC09303 : VKIC
  YC09403 : VKIC
  YC09503 : VKIC
  YC09603 : VKIC
  YC09703 : VKIC
  YC09803 : VKIC
  YC09900 : VKIC
  YC10203 : VKIC
  YC10303 : VKIC
  YC10403 : VKIC
  YC10503 : VKIC
  YC10603 : VKIC
  YC10703 : VKIC
  YC10803 : VKIC
  YC10900 : VKIC
  YC10950 : VKIC
  YC11203 : VKIC
  YC11300 : VKIC
  YC11403 : VKIC
  YC11503 : VKIC
  YC11603 : VKIC
  YC11703 : VKIC
  YC11803 : VKIC
  YC11900 : VKIC
  YC12203 : VKIC
  YC12303 : VKIC
  YC12403 : VKIC
  YC12503 : VKIC
  YC12603 : VKIC
  YC12703 : VKIC
  YC12803 : VKIC
  YC12900 : VKIC
  YC13203 : VKIC
  YC13303 : VKIC
  YC13403 : VKIC
  YC13503 : VKIC
  YC13603 : VKIC
  YC13703 : VKIC
  YC13803 : VKIC
  YC13900 : VKIC
  YC14203 : VKIC
  YC14303 : VKIC
  YC14403 : VKIC
  YC14503 : VKIC
  YC14603 : VKIC
  YC14703 : VKIC
  YC14803 : VKIC
  YC14900 : VKIC
  YC15203 : VKIC
  YC15303 : VKIC
  YC15403 : VKIC
  YC15503 : VKIC
  YC15603 : VKIC
  YC15703 : VKIC
  YC15803 : VKIC
  YC15900 : VKIC
  YC16203 : VKIC
  YC16303 : VKIC
  YC16403 : VKIC
  YC16503 : VKIC
  YC16603 : VKIC
  YC16703 : VKIC
  YC16803 : VKIC
  YC16900 : VKIC
  YC17203 : VKIC
  YC17303 : VKIC
  YC17403 : VKIC
  YC17503 : VKIC
  YC17603 : VKIC
  YC17703 : VKIC
  YC17803 : VKIC
  YC17900 : VKIC
  YC17950 : VKIC
  YC18203 : VKIC
  YC18303 : VKIC
  YC18403 : VKIC
  YC18503 : VKIC
  YC18603 : VKIC
  YC18703 : VKIC
  YC18803 : VKIC
  YC18900 : VKIC
  YC19203 : VKIC
  YC19303 : VKIC
  YC19403 : VKIC
  YC__145 : VKIC !YCOR EP01 282 (DC vertical SCAV extraction)
  YC__146 : VKIC !XCOR EP01 282 (DC vertical SCAV extraction)
  YC19503 : VKIC
  YC19603 : VKIC
  YC19700 : VKIC
  YC19803 : VKIC
  YC19900 : VKIC

! ==============================================================================
! BPMs
! ------------------------------------------------------------------------------

  BPM02114 : MONI
  BPM02121 : MONI
  BPM02127 : MONI
  BPM02134 : MONI
  BPM02140 : MONI
  BPM02146 : MONI
  BPM02201 : MONI
  BPM02211 : MONI
  BPM02221 : MONI
  BPM02231 : MONI
  BPM02301 : MONI
  BPM02311 : MONI
  BPM02321 : MONI
  BPM02331 : MONI
  BPM02401 : MONI
  BPM02411 : MONI
  BPM02421 : MONI
  BPM02431 : MONI
  BPM02501 : MONI
  BPM02511 : MONI
  BPM02521 : MONI
  BPM02531 : MONI
  BPM02601 : MONI
  BPM02611 : MONI
  BPM02621 : MONI
  BPM02631 : MONI
  BPM02701 : MONI
  BPM02711 : MONI
  BPM02721 : MONI
  BPM02731 : MONI
  BPM02801 : MONI
  BPM02811 : MONI
  BPM02821 : MONI
  BPM02831 : MONI
  BPM02901 : MONI
  BPM02991 : MONI
  BPM03121 : MONI
  BPM03201 : MONI
  BPM03221 : MONI
  BPM03301 : MONI
  BPM03321 : MONI
  BPM03401 : MONI
  BPM03421 : MONI
  BPM03501 : MONI
  BPM03521 : MONI
  BPM03601 : MONI
  BPM03621 : MONI
  BPM03701 : MONI
  BPM03721 : MONI
  BPM03801 : MONI
  BPM03821 : MONI
  BPM03901 : MONI
  BPM04121 : MONI
  BPM04201 : MONI
  BPM04221 : MONI
  BPM04301 : MONI
  BPM04321 : MONI
  BPM04401 : MONI
  BPM04421 : MONI
  BPM04501 : MONI
  BPM04521 : MONI
  BPM04601 : MONI
  BPM04621 : MONI
  BPM04701 : MONI
  BPM04721 : MONI
  BPM04801 : MONI
  BPM04821 : MONI
  BPM04901 : MONI
  BPM05201 : MONI
  BPM05301 : MONI
  BPM05401 : MONI
  BPM05501 : MONI
  BPM05601 : MONI
  BPM05701 : MONI
  BPM05801 : MONI
  BPM05901 : MONI
  BPM06201 : MONI
  BPM06301 : MONI
  BPM06401 : MONI
  BPM06501 : MONI
  BPM06601 : MONI
  BPM06701 : MONI
  BPM06801 : MONI
  BPM06901 : MONI
  BPM07201 : MONI
  BPM07301 : MONI
  BPM07401 : MONI
  BPM07501 : MONI
  BPM07601 : MONI
  BPM07701 : MONI
  BPM07801 : MONI
  BPM07901 : MONI
  BPM08201 : MONI
  BPM08301 : MONI
  BPM08401 : MONI
  BPM08501 : MONI
  BPM08601 : MONI
  BPM08701 : MONI
  BPM08801 : MONI
  BPM08901 : MONI
  BPM09201 : MONI
  BPM09301 : MONI
  BPM09401 : MONI
  BPM09501 : MONI
  BPM09601 : MONI
  BPM09701 : MONI
  BPM09801 : MONI
  BPM09901 : MONI
  BPM10131 : MONI
  BPM10201 : MONI
  BPM10301 : MONI
  BPM10401 : MONI
  BPM10501 : MONI
  BPM10601 : MONI
  BPM10701 : MONI
  BPM10801 : MONI
  BPM10901 : MONI
  BPM11201 : MONI
  BPM11301 : MONI
  BPM11401 : MONI
  BPM11501 : MONI
  BPM11601 : MONI
  BPM11701 : MONI
  BPM11801 : MONI
  BPM11901 : MONI
  BPM12201 : MONI
  BPM12301 : MONI
  BPM12401 : MONI
  BPM12501 : MONI
  BPM12601 : MONI
  BPM12701 : MONI
  BPM12801 : MONI
  BPM12901 : MONI
  BPM13201 : MONI
  BPM13301 : MONI
  BPM13401 : MONI
  BPM13501 : MONI
  BPM13601 : MONI
  BPM13701 : MONI
  BPM13801 : MONI
  BPM13901 : MONI
  BPM14201 : MONI
  BPM14301 : MONI
  BPM14401 : MONI
  BPM14501 : MONI
  BPM14601 : MONI
  BPM14701 : MONI
  BPM14801 : MONI
  BPM14901 : MONI
  BPM15201 : MONI
  BPM15301 : MONI
  BPM15401 : MONI
  BPM15501 : MONI
  BPM15601 : MONI
  BPM15701 : MONI
  BPM15801 : MONI
  BPM15901 : MONI
  BPM16201 : MONI
  BPM16301 : MONI
  BPM16401 : MONI
  BPM16501 : MONI
  BPM16601 : MONI
  BPM16701 : MONI
  BPM16801 : MONI
  BPM16901 : MONI
  BPM17201 : MONI
  BPM17301 : MONI
  BPM17401 : MONI
  BPM17501 : MONI
  BPM17601 : MONI
  BPM17701 : MONI
  BPM17801 : MONI
  BPM17901 : MONI
  BPM18201 : MONI
  BPM18301 : MONI
  BPM18401 : MONI
  BPM18501 : MONI
  BPM18601 : MONI
  BPM18701 : MONI
  BPM18801 : MONI
  BPM18901 : MONI
  BPM19201 : MONI
  BPM19301 : MONI
  BPM19401 : MONI
  BPM19501 : MONI
  BPM19601 : MONI
  BPM19701 : MONI
  BPM19801 : MONI
  BPM19901 : MONI

! LBCC BPMs for e- and e+

  BPM3448 : MONI !BPMS LI10 3448 !e-
  BPM2448 : MONI !BPMS LI10 2448 !e+

! ==============================================================================
! diagnostics, collimators, MARKERs, etc.
! ------------------------------------------------------------------------------

! wire scanners

  WS02119 : WIRE
  WS02125 : WIRE
  WS02133 : WIRE
  WS02148 : WIRE
  WS02209 : WIRE
  WS02239 : WIRE
  WS02339 : WIRE
  WS04911 : WIRE
  WS11344 : WIRE
  WS11444 : WIRE
  WS11614 : WIRE
  WS11644 : WIRE
  WS18944 : WIRE

! profile monitors

  PR02137 : PROF
  PR02144 : PROF
  PR02216 : PROF
  PR04900 : PROF
  PR10135 : PROF

  PR3449 : PROF !PROF LI10 3449 (e-)
  PR2449 : PROF !PROF LI10 2449 (e+)

! toroids

  IM04915 : IMON !TORO LI04 915
  IMLBCC1 : IMON !MPS toroid
  IMLBCC2 : IMON !MPS toroid
  IM1988  : IMON !TORO LI20 1988

! collimators

  PC04_2  : ECOL !collimator (4-2b)
  PC10_4  : ECOL !collimator (10-4)
  PC10_8  : ECOL !0.607" diameter x 13.27" long Cu scraper (10-8)
  PC10_9  : ECOL !0.607" diameter x 13.27" long Cu scraper (10-9)
  CX18096 : RCOL !collimator (18-9)
  CY18096 : RCOL !collimator (18-9)

! bunch length monitors

  BL02_n : BLMO !bunch length monitor at 2-9
  BL18_9 : BLMO !bunch length monitor / OTR at 18-9

! other points of interest

  LI02beg  : MARK
  TREATY2  : MARK !damped e-/e+ reinjection match point (2-1)
  LMATCH   : MARK !center of (removed) spin rotator solenoid (2-1)
  ASSETbeg : MARK
  ASSETend : MARK
  CERENKOV : MARK
  LI02end  : MARK
  LI03beg  : MARK
  LI03end  : MARK
  LI04beg  : MARK
  PM1_4    : MARK !extraction kicker PM1+ for e+ to LER
  DBMARK10 : MARK
  ROT_CORR : MARK !rotated corrector
  LI04end  : MARK
  LI05beg  : MARK
  KIKY05_9 : MARK !Y kicker (5-9)
  KIKX05_9 : MARK !X kicker (5-9)
  LI05end  : MARK
  LI06beg  : MARK
  KIKY06_9 : MARK !Y kicker (6-9)
  KIKX06_9 : MARK !X licker (6-9)
  LI06end  : MARK
  LI07beg  : MARK
  LI07end  : MARK
  LI08beg  : MARK
  LI08end  : MARK
  LI09beg  : MARK
  LI09end  : MARK
  LI10beg  : MARK
  DBMARK12 : MARK
  PM1_10_1 : MARK !extraction kicker PM1+ A for e- to HER
  PM1_10_2 : MARK !extraction kicker PM1+ B for e- to HER
  DBMARK61 : MARK
  LBCCbeg  : MARK
  LBCCend  : MARK
  DBMARK62 : MARK
  LI10end  : MARK
  LI11beg  : MARK
  LI11end  : MARK
  LI12beg  : MARK
  LI12end  : MARK
  LI13beg  : MARK
  LI13end  : MARK
  LI14beg  : MARK
  LI14end  : MARK
  LI15beg  : MARK
  LI15end  : MARK
  LI16beg  : MARK
  LI16end  : MARK
  LI17beg  : MARK
  LI17end  : MARK
  LI18beg  : MARK
  BLEN189  : MARK !bunch length monitor / OTR at 18-9
  LI18end  : MARK
  LI19beg  : MARK
  SCAVKICK : MARK !extraction kicker for scavenger e- to e+ target
  DBMARK13 : MARK
  FMDW     : MARK
  FBEG     : MARK
  LI19end  : MARK

! ==============================================================================
! BEAMLINEs
! ------------------------------------------------------------------------------

  ASSET : LINE=(ASSETbeg,&
    BX2121,XC02212,BX2122,D02212,&
    BX2141,XC02214,BX2142,D02214,PR02216,D02216,&
    BX2181,XC02218,BX2182,D02218,&
    BX2201,XC02220,BX2202,&
    ASSETend)

  LBCC0 : LINE=(LBCCbeg,&
    DLBCC0a,PC10_9,DLBCC0b,LI10end,LI11beg,DLBCC0c,&
    LBCCend)

  LBCCE : LINE=(LBCCbeg,&
    BX34201,BX34202,DL1o,QT3430,QT3430,DL2o,&
    BX34401,BX34402,DL1i,BPM3448,DL2i,PR3449,DL3i,&
    BX34601,BX34602,DL2o,QT3470,QT3470,DL1o,&
    BX34801,BX34802,&
    LBCCend)

  LBCCP : LINE=(LBCCbeg,&
    BX34201,BX34202,DL1o,QT2430,QT2430,DL2o,&
    BX24401,BX24402,DL1i,BPM2448,DL2i,PR2449,DL3i,&
    BX24601,BX24602,DL2o,QT2470,QT2470,DL1o,&
    BX34801,BX34802,&
    LBCCend)

 !LBCC : LINE=(LBCC0) !LBCC chicane OFF
  LBCC : LINE=(LBCCE) !LBCC e- chicane ON
 !LBCC : LINE=(LBCCP) !LBCC e+ chicane ON

  K02_2c : LINE=(K02_2c1,YC02222,K02_2c2,XC02230,K02_2c3)
  K02_2d : LINE=(K02_2d1,YC02232,K02_2d2,XC02300,K02_2d3)
  K02_3a : LINE=(K02_3a1,YC02302,K02_3a2,XC02310,K02_3a3)
  K02_3b : LINE=(K02_3b1,YC02312,K02_3b2,XC02320,K02_3b3)
  K02_3c : LINE=(K02_3c1,YC02322,K02_3c2,XC02330,K02_3c3)
  K02_3d : LINE=(K02_3d1,YC02332,K02_3d2,XC02400,K02_3d3)
  K02_4a : LINE=(K02_4a1,YC02402,K02_4a2,XC02410,K02_4a3)
  K02_4b : LINE=(K02_4b1,YC02412,K02_4b2,XC02420,K02_4b3)
  K02_4c : LINE=(K02_4c1,YC02422,K02_4c2,XC02430,K02_4c3)
  K02_4d : LINE=(K02_4d1,YC02432,K02_4d2,XC02500,K02_4d3)
  K02_5a : LINE=(K02_5a1,YC02502,K02_5a2,XC02510,K02_5a3)
  K02_5b : LINE=(K02_5b1,YC02512,K02_5b2,XC02520,K02_5b3)
  K02_5c : LINE=(K02_5c1,YC02522,K02_5c2,XC02530,K02_5c3)
  K02_5d : LINE=(K02_5d1,YC02532,K02_5d2,XC02600,K02_5d3)
  K02_6a : LINE=(K02_6a1,YC02602,K02_6a2,XC02610,K02_6a3)
  K02_6b : LINE=(K02_6b1,YC02612,K02_6b2,XC02620,K02_6b3)
  K02_6c : LINE=(K02_6c1,YC02622,K02_6c2,XC02630,K02_6c3)
  K02_6d : LINE=(K02_6d1,YC02632,K02_6d2,XC02700,K02_6d3)
  K02_7a : LINE=(K02_7a1,YC02702,K02_7a2,XC02710,K02_7a3)
  K02_7b : LINE=(K02_7b1,YC02712,K02_7b2,XC02720,K02_7b3)
  K02_7c : LINE=(K02_7c1,YC02722,K02_7c2,XC02730,K02_7c3)
  K02_7d : LINE=(K02_7d1,YC02732,K02_7d2,XC02800,K02_7d3)
  K02_8a : LINE=(K02_8a1,YC02802,K02_8a2,XC02810,K02_8a3)
  K02_8b : LINE=(K02_8b1,YC02812,K02_8b2,XC02820,K02_8b3)
  K02_8c : LINE=(K02_8c1,YC02822,K02_8c2,XC02830,K02_8c3)
  K02_8d : LINE=(K02_8d1,YC02832,K02_8d2,XC02900,K02_8d3,YC02900,K02_8d4)

  K03_1a : LINE=(K03_1a1,XC02999,K03_1a2,YC02999,K03_1a3)
  K03_1b : LINE=(K03_1b1,XC03120,K03_1b2)
  K03_1c : LINE=(K03_1c1,YC03122,K03_1c2)
  K03_1d : LINE=(K03_1d1,XC03200,K03_1d2)
  K03_2a : LINE=(K03_2a1,YC03202,K03_2a2)
  K03_2b : LINE=(K03_2b1,XC03220,K03_2b2)
  K03_2c : LINE=(K03_2c1,YC03222,K03_2c2)
  K03_2d : LINE=(K03_2d1,XC03300,K03_2d2)
  K03_3a : LINE=(K03_3a1,YC03302,K03_3a2)
  K03_3b : LINE=(K03_3b1,XC03320,K03_3b2)
  K03_3c : LINE=(K03_3c1,YC03322,K03_3c2)
  K03_3d : LINE=(K03_3d1,XC03400,K03_3d2)
  K03_4a : LINE=(K03_4a1,YC03402,K03_4a2)
  K03_4b : LINE=(K03_4b1,XC03420,K03_4b2)
  K03_4c : LINE=(K03_4c1,YC03422,K03_4c2)
  K03_4d : LINE=(K03_4d1,XC03500,K03_4d2)
  K03_5a : LINE=(K03_5a1,YC03502,K03_5a2)
  K03_5b : LINE=(K03_5b1,XC03520,K03_5b2)
  K03_5c : LINE=(K03_5c1,YC03522,K03_5c2)
  K03_5d : LINE=(K03_5d1,XC03600,K03_5d2)
  K03_6a : LINE=(K03_6a1,YC03602,K03_6a2)
  K03_6b : LINE=(K03_6b1,XC03620,K03_6b2)
  K03_6c : LINE=(K03_6c1,YC03622,K03_6c2)
  K03_6d : LINE=(K03_6d1,XC03700,K03_6d2)
  K03_7a : LINE=(K03_7a1,YC03702,K03_7a2)
  K03_7b : LINE=(K03_7b1,XC03720,K03_7b2)
  K03_7c : LINE=(K03_7c1,YC03722,K03_7c2)
  K03_7d : LINE=(K03_7d1,XC03800,K03_7d2)
  K03_8a : LINE=(K03_8a1,YC03802,K03_8a2)
  K03_8b : LINE=(K03_8b1,XC03820,K03_8b2)
  K03_8c : LINE=(K03_8c1,YC03822,K03_8c2)

  K04_1b : LINE=(K04_1b1,XC04120,K04_1b2,YC04122,K04_1b3)
  K04_2c : LINE=(K04_2c1,XC04220,K04_2c2)
  K04_2d : LINE=(K04_2d1,XC04300,K04_2d2)
  K04_3a : LINE=(K04_3a1,YC04302,K04_3a2)
  K04_3b : LINE=(K04_3b1,XC04320,K04_3b2)
  K04_3c : LINE=(K04_3c1,YC04322,K04_3c2)
  K04_3d : LINE=(K04_3d1,XC04400,K04_3d2)
  K04_4a : LINE=(K04_4a1,YC04402,K04_4a2)
  K04_4b : LINE=(K04_4b1,XC04420,K04_4b2)
  K04_4c : LINE=(K04_4c1,YC04422,K04_4c2)
  K04_4d : LINE=(K04_4d1,XC04500,K04_4d2)
  K04_5a : LINE=(K04_5a1,YC04502,K04_5a2)
  K04_5b : LINE=(K04_5b1,XC04520,K04_5b2)
  K04_5c : LINE=(K04_5c1,YC04522,K04_5c2)
  K04_5d : LINE=(K04_5d1,XC04600,K04_5d2)
  K04_6a : LINE=(K04_6a1,YC04602,K04_6a2)
  K04_6b : LINE=(K04_6b1,XC04620,K04_6b2)
  K04_6c : LINE=(K04_6c1,YC04622,K04_6c2)
  K04_6d : LINE=(K04_6d1,XC04700,K04_6d2)
  K04_7a : LINE=(K04_7a1,YC04702,K04_7a2)
  K04_7b : LINE=(K04_7b1,XC04720,K04_7b2)
  K04_7c : LINE=(K04_7c1,YC04722,K04_7c2)
  K04_7d : LINE=(K04_7d1,XC04800,K04_7d2)
  K04_8a : LINE=(K04_8a1,YC04802,K04_8a2)
  K04_8b : LINE=(K04_8b1,XC04820,K04_8b2)
  K04_8c : LINE=(K04_8c1,YC04822,K04_8c2)


  K05_1a : LINE=(K05_1a1,XC04999,K05_1a2,YC04999,K05_1a3)
  K05_2a : LINE=(K05_2a1,XC05202,K05_2a2,YC05203,K05_2a3)
  K05_3a : LINE=(K05_3a1,XC05302,K05_3a2,YC05303,K05_3a3)
  K05_4a : LINE=(K05_4a1,XC05402,K05_4a2,YC05403,K05_4a3)
  K05_5a : LINE=(K05_5a1,XC05502,YC05503,K05_5a2)
  K05_6a : LINE=(K05_6a1,XC05602,YC05603,K05_6a2)
  K05_7a : LINE=(K05_7a1,XC05702,YC05703,K05_7a2)
  K05_8a : LINE=(K05_8a1,XC05802,YC05803,K05_8a2)
  K05_8d : LINE=(K05_8d1,XC05900,YC05900,K05_8d2)

  K06_2a : LINE=(K06_2a1,XC06202,K06_2a2,YC06203,K06_2a3)
  K06_3a : LINE=(K06_3a1,XC06302,K06_3a2,YC06303,K06_3a3)
  K06_4a : LINE=(K06_4a1,XC06402,K06_4a2,YC06403,K06_4a3)
  K06_5a : LINE=(K06_5a1,XC06502,K06_5a2,YC06503,K06_5a3)
  K06_6a : LINE=(K06_6a1,XC06602,K06_6a2,YC06603,K06_6a3)
  K06_7a : LINE=(K06_7a1,XC06702,K06_7a2,YC06703,K06_7a3)
  K06_8a : LINE=(K06_8a1,XC06802,K06_8a2,YC06803,K06_8a3)
  K06_8d : LINE=(K06_8d1,XC06900,K06_8d2,YC06900,K06_8d3)

  K07_2a : LINE=(K07_2a1,XC07202,K07_2a2,YC07203,K07_2a3)
  K07_3a : LINE=(K07_3a1,XC07302,K07_3a2,YC07303,K07_3a3)
  K07_4a : LINE=(K07_4a1,XC07402,K07_4a2,YC07403,K07_4a3)
  K07_5a : LINE=(K07_5a1,XC07502,K07_5a2,YC07503,K07_5a3)
  K07_6a : LINE=(K07_6a1,XC07602,K07_6a2,YC07603,K07_6a3)
  K07_7a : LINE=(K07_7a1,XC07702,K07_7a2,YC07703,K07_7a3)
  K07_8a : LINE=(K07_8a1,XC07802,K07_8a2,YC07803,K07_8a3)
  K07_8d : LINE=(K07_8d1,XC07900,K07_8d2,YC07900,K07_8d3)

  K08_2a : LINE=(K08_2a1,XC08202,K08_2a2,YC08203,K08_2a3)
  K08_3a : LINE=(K08_3a1,XC08302,K08_3a2,YC08303,K08_3a3)
  K08_4a : LINE=(K08_4a1,XC08402,K08_4a2,YC08403,K08_4a3)
  K08_5a : LINE=(K08_5a1,XC08502,K08_5a2,YC08503,K08_5a3)
  K08_6a : LINE=(K08_6a1,XC08602,K08_6a2,YC08603,K08_6a3)
  K08_7a : LINE=(K08_7a1,XC08702,K08_7a2,YC08703,K08_7a3)
  K08_8a : LINE=(K08_8a1,XC08802,K08_8a2,YC08803,K08_8a3)
  K08_8d : LINE=(K08_8d1,XC08900,K08_8d2,YC08900,K08_8d3)

  K09_2a : LINE=(K09_2a1,XC09202,K09_2a2,YC09203,K09_2a3)
  K09_3a : LINE=(K09_3a1,XC09302,K09_3a2,YC09303,K09_3a3)
  K09_4a : LINE=(K09_4a1,XC09402,K09_4a2,YC09403,K09_4a3)
  K09_5a : LINE=(K09_5a1,XC09502,K09_5a2,YC09503,K09_5a3)
  K09_6a : LINE=(K09_6a1,XC09602,K09_6a2,YC09603,K09_6a3)
  K09_7a : LINE=(K09_7a1,XC09702,K09_7a2,YC09703,K09_7a3)
  K09_8a : LINE=(K09_8a1,XC09802,K09_8a2,YC09803,K09_8a3)
  K09_8d : LINE=(K09_8d1,XC09900,K09_8d2,YC09900,K09_8d3)

  K10_2a : LINE=(K10_2a1,XC10202,K10_2a2,YC10203,K10_2a3)
  K10_3a : LINE=(K10_3a1,XC10302,K10_3a2,YC10303,K10_3a3)
  K10_3d : LINE=(K10_3d1,XC10402,K10_3d2,YC10403,K10_3d3)
  K10_5a : LINE=(K10_5a1,XC10502,K10_5a2,YC10503,K10_5a3)
  K10_6a : LINE=(K10_6a1,XC10602,K10_6a2,YC10603,K10_6a3)
  K10_7a : LINE=(K10_7a1,XC10702,K10_7a2,YC10703,K10_7a3)
  K10_7d : LINE=(K10_7d1,XC10802,K10_7d2,YC10803,K10_7d3)

  K11_1b : LINE=(K11_1b1,XC10900,K11_1b2,YC10900,K11_1b3)
  K11_2a : LINE=(K11_2a1,XC11202,K11_2a2,YC11203,K11_2a3)
  K11_2d : LINE=(K11_2d1,YC11300,K11_2d2)
  K11_4a : LINE=(K11_4a1,XC11402,K11_4a2,YC11403,K11_4a3)
  K11_5a : LINE=(K11_5a1,YC11503,K11_5a2)
  K11_6a : LINE=(K11_6a1,XC11602,K11_6a2,YC11603,K11_6a3)
  K11_7a : LINE=(K11_7a1,XC11702,K11_7a2)

  K12_3a : LINE=(K12_3a1,XC12302,K12_3a2,YC12303,K12_3a3)
  K12_4a : LINE=(K12_4a1,XC12402,K12_4a2,YC12403,K12_4a3)
  K12_5a : LINE=(K12_5a1,XC12502,K12_5a2,YC12503,K12_5a3)
  K12_6a : LINE=(K12_6a1,XC12602,K12_6a2,YC12603,K12_6a3)
  K12_7a : LINE=(K12_7a1,XC12702,K12_7a2,YC12703,K12_7a3)
  K12_8a : LINE=(K12_8a1,XC12802,K12_8a2,YC12803,K12_8a3)
  K12_8d : LINE=(K12_8d1,XC12900,K12_8d2,YC12900,K12_8d3)

  K13_2a : LINE=(K13_2a1,XC13202,K13_2a2,YC13203,K13_2a3)
  K13_3a : LINE=(K13_3a1,XC13302,K13_3a2,YC13303,K13_3a3)
  K13_4a : LINE=(K13_4a1,XC13402,K13_4a2,YC13403,K13_4a3)
  K13_5a : LINE=(K13_5a1,XC13502,K13_5a2,YC13503,K13_5a3)
  K13_6a : LINE=(K13_6a1,XC13602,K13_6a2,YC13603,K13_6a3)
  K13_7a : LINE=(K13_7a1,XC13702,K13_7a2,YC13703,K13_7a3)
  K13_8a : LINE=(K13_8a1,XC13802,K13_8a2,YC13803,K13_8a3)
  K13_8d : LINE=(K13_8d1,XC13900,K13_8d2,YC13900,K13_8d3)

  K14_2a : LINE=(K14_2a1,XC14202,K14_2a2,YC14203,K14_2a3)
  K14_3a : LINE=(K14_3a1,XC14302,K14_3a2,YC14303,K14_3a3)
  K14_4a : LINE=(K14_4a1,XC14402,K14_4a2,YC14403,K14_4a3)
  K14_5a : LINE=(K14_5a1,XC14502,K14_5a2,YC14503,K14_5a3)
  K14_6a : LINE=(K14_6a1,XC14602,K14_6a2,YC14603,K14_6a3)
  K14_7a : LINE=(K14_7a1,XC14702,K14_7a2,YC14703,K14_7a3)
  K14_8a : LINE=(K14_8a1,XC14802,K14_8a2,YC14803,K14_8a3)
  K14_8d : LINE=(K14_8d1,XC14900,K14_8d2,YC14900,K14_8d3)

  K15_2a : LINE=(K15_2a1,XC15202,K15_2a2,YC15203,K15_2a3)
  K15_3a : LINE=(K15_3a1,XC15302,K15_3a2,YC15303,K15_3a3)
  K15_4a : LINE=(K15_4a1,XC15402,K15_4a2,YC15403,K15_4a3)
  K15_5a : LINE=(K15_5a1,XC15502,K15_5a2,YC15503,K15_5a3)
  K15_6a : LINE=(K15_6a1,XC15602,K15_6a2,YC15603,K15_6a3)
  K15_7a : LINE=(K15_7a1,XC15702,K15_7a2,YC15703,K15_7a3)
  K15_8a : LINE=(K15_8a1,XC15802,K15_8a2,YC15803,K15_8a3)
  K15_8d : LINE=(K15_8d1,XC15900,K15_8d2,YC15900,K15_8d3)

  K16_2a : LINE=(K16_2a1,XC16202,K16_2a2,YC16203,K16_2a3)
  K16_3a : LINE=(K16_3a1,XC16302,K16_3a2,YC16303,K16_3a3)
  K16_4a : LINE=(K16_4a1,XC16402,K16_4a2,YC16403,K16_4a3)
  K16_5a : LINE=(K16_5a1,XC16502,K16_5a2,YC16503,K16_5a3)
  K16_6a : LINE=(K16_6a1,XC16602,K16_6a2,YC16603,K16_6a3)
  K16_7a : LINE=(K16_7a1,XC16702,K16_7a2,YC16703,K16_7a3)
  K16_8a : LINE=(K16_8a1,XC16802,K16_8a2,YC16803,K16_8a3)
  K16_8d : LINE=(K16_8d1,XC16900,K16_8d2,YC16900,K16_8d3)

  K17_2a : LINE=(K17_2a1,XC17202,K17_2a2,YC17203,K17_2a3)
  K17_3a : LINE=(K17_3a1,XC17302,K17_3a2,YC17303,K17_3a3)
  K17_4a : LINE=(K17_4a1,XC17402,K17_4a2,YC17403,K17_4a3)
  K17_5a : LINE=(K17_5a1,XC17502,K17_5a2,YC17503,K17_5a3)
  K17_6a : LINE=(K17_6a1,XC17602,K17_6a2,YC17603,K17_6a3)
  K17_7a : LINE=(K17_7a1,XC17702,K17_7a2,YC17703,K17_7a3)
  K17_8a : LINE=(K17_8a1,XC17802,K17_8a2,YC17803,K17_8a3)
  K17_8d : LINE=(K17_8d1,XC17900,K17_8d2,YC17900,K17_8d3)

  K18_2a : LINE=(K18_2a1,XC18202,K18_2a2,YC18203,K18_2a3)
  K18_3a : LINE=(K18_3a1,XC18302,K18_3a2,YC18303,K18_3a3)
  K18_4a : LINE=(K18_4a1,XC18402,K18_4a2,YC18403,K18_4a3)
  K18_5a : LINE=(K18_5a1,XC18502,K18_5a2,YC18503,K18_5a3)
  K18_6a : LINE=(K18_6a1,XC18602,K18_6a2,YC18603,K18_6a3)
  K18_7a : LINE=(K18_7a1,XC18702,K18_7a2,YC18703,K18_7a3)
  K18_8a : LINE=(K18_8a1,XC18802,K18_8a2,YC18803,K18_8a3)
  K18_8d : LINE=(K18_8d1,XC18900,K18_8d2,YC18900,K18_8d3)

  K19_2a : LINE=(K19_2a1,XC19202,K19_2a2,YC19203,K19_2a3)
  K19_3a : LINE=(K19_3a1,XC19302,K19_3a2,YC19303,K19_3a3)
  K19_4a : LINE=(K19_4a1,XC19402,K19_4a2,YC19403,K19_4a3)
  K19_4d : LINE=(K19_4d1,YC__145,K19_4d2,YC__146,K19_4d3)
  K19_5a : LINE=(K19_5a1,XC19502,K19_5a2,YC19503,K19_5a3)
  K19_6a : LINE=(K19_6a1,XC19602,K19_6a2,YC19603,K19_6a3)
  K19_6d : LINE=(K19_6d1,YC19700,K19_6d2,XC19700,K19_6d3)
  K19_8a : LINE=(K19_8a1,XC19802,K19_8a2,YC19803,K19_8a3)
  K19_8d : LINE=(K19_8d1,YC19900,K19_8d2,XC19900,K19_8d3)

  LI02 : LINE=(LI02beg,D02112,TREATY2,D02113,&
    Q02114,BPM02114,Q02114,D02114,XC02117,D02117,YC02118,D02118,WS02119,&
     D02119,XC02120,D02120,&
    Q02121,BPM02121,Q02121,D02121,YC02124,D02124,WS02125,D02125,XC02126,&
     D02126,&
    Q02127,BPM02127,Q02127,D02127,YC02130,D02130,WS02133,D02133,&
    Q02134,BPM02134,Q02134,D02134,PR02137,D02137,XC02138,D02138,YC02139,&
     D02139,BPM02140,D02140,WAKETEST,LMATCH,WAKETEST,D02143,PR02144,&
     D02144,XC02145,D02145,&
    Q02146,BPM02146,Q02146,D02146,WS02148,D02148,&
    Q02201,BPM02201,Q02201,D02201,YC02202,D02202,YC02212,D02208,WS02209,&
     D02209,&
    Q02211,BPM02211,Q02211,D02211,ASSET,D02220,&
    Q02221,BPM02221,Q02221,D02221,&
    K02_2c,D02230,Q02231,BPM02231,Q02231,D02231,&
    K02_2d,D02238,WS02239,D02239,Q02301,BPM02301,Q02301,D02301,&
    K02_3a,D02310,Q02311,BPM02311,Q02311,D02311,&
    K02_3b,D02320,Q02321,BPM02321,Q02321,D02321,&
    K02_3c,D02330,Q02331,BPM02331,Q02331,D02331,&
    K02_3d,D02338,WS02339,D02339,Q02401,BPM02401,Q02401,D02401,&
    K02_4a,D02410,Q02411,BPM02411,Q02411,D02411,&
    K02_4b,D02420,Q02421,BPM02421,Q02421,D02421,&
    K02_4c,D02430,Q02431,BPM02431,Q02431,D02431,&
    K02_4d,D02500,Q02501,BPM02501,Q02501,D02501,&
    K02_5a,D02510,Q02511,BPM02511,Q02511,D02511,&
    K02_5b,D02520,Q02521,BPM02521,Q02521,D02521,&
    K02_5c,D02530,Q02531,BPM02531,Q02531,D02531,&
    K02_5d,D02600,Q02601,BPM02601,Q02601,D02601,&
    K02_6a,D02610,Q02611,BPM02611,Q02611,D02611,&
    K02_6b,D02620,Q02621,BPM02621,Q02621,D02621,&
    K02_6c,D02630,Q02631,BPM02631,Q02631,D02631,&
    K02_6d,D02700,Q02701,BPM02701,Q02701,D02701,&
    K02_7a,D02710,Q02711,BPM02711,Q02711,D02711,&
    K02_7b,D02720,Q02721,BPM02721,Q02721,D02721,&
    K02_7c,D02730,Q02731,BPM02731,Q02731,D02731,&
    K02_7d,D02800,Q02801,BPM02801,Q02801,D02801,&
    K02_8a,D02810,Q02811,BPM02811,Q02811,D02811,&
    K02_8b,D02820,Q02821,BPM02821,Q02821,D02821,&
    K02_8c,D02830,Q02831,BPM02831,Q02831,D02831,&
    K02_8d,D02900,Q02901,BPM02901,Q02901,D02901,CERENKOV,D02990,&
    Q02991,BPM02991,Q02991,D02991,&
    LI02end)

  LI03 : LINE=(LI03beg,&
    K03_1a,K03_1b,D03120,Q03121,BPM03121,Q03121,D03121,&
    K03_1c,K03_1d,D03200,Q03201,BPM03201,Q03201,D03201,&
    K03_2a,K03_2b,D03220,Q03221,BPM03221,Q03221,D03221,&
    K03_2c,K03_2d,D03300,Q03301,BPM03301,Q03301,D03301,&
    K03_3a,K03_3b,D03320,Q03321,BPM03321,Q03321,D03321,&
    K03_3c,K03_3d,D03400,Q03401,BPM03401,Q03401,D03401,&
    K03_4a,K03_4b,D03420,Q03421,BPM03421,Q03421,D03421,&
    K03_4c,K03_4d,D03500,Q03501,BPM03501,Q03501,D03501,&
    K03_5a,K03_5b,D03520,Q03521,BPM03521,Q03521,D03521,&
    K03_5c,K03_5d,D03600,Q03601,BPM03601,Q03601,D03601,&
    K03_6a,K03_6b,D03620,Q03621,BPM03621,Q03621,D03621,&
    K03_6c,K03_6d,D03700,Q03701,BPM03701,Q03701,D03701,&
    K03_7a,K03_7b,D03720,Q03721,BPM03721,Q03721,D03721,&
    K03_7c,K03_7d,D03800,Q03801,BPM03801,Q03801,D03801,&
    K03_8a,K03_8b,D03820,Q03821,BPM03821,Q03821,D03821,&
    K03_8c,K03_8d,D03900,Q03901,BPM03901,Q03901,D03901a,XC03900,&
     D03901b,YC03900,D03901c,&
    LI03end)

  LI04 : LINE=(LI04beg,&
    K04_1a,K04_1b,D04120,&
    Q04121,BPM04121,Q04121,D04121a,PM1_4,D04121b,XC04200,D04200a,&
     YC04202,D04200b,BPM04201,D04200c,&
    Q04201,Q04201,D04201a,DBMARK10,D04201b,ROT_CORR,D04220a,YC04222,&
     D04220b,PC04_2,D04220c,&
    Q04221,BPM04221,Q04221,D04221,&
    K04_2c,K04_2d,D04300,Q04301,BPM04301,Q04301,D04301,&
    K04_3a,K04_3b,D04320,Q04321,BPM04321,Q04321,D04321,&
    K04_3c,K04_3d,D04400,Q04401,BPM04401,Q04401,D04401,&
    K04_4a,K04_4b,D04420,Q04421,BPM04421,Q04421,D04421,&
    K04_4c,K04_4d,D04500,Q04501,BPM04501,Q04501,D04501,&
    K04_5a,K04_5b,D04520,Q04521,BPM04521,Q04521,D04521,&
    K04_5c,K04_5d,D04600,Q04601,BPM04601,Q04601,D04601,&
    K04_6a,K04_6b,D04620,Q04621,BPM04621,Q04621,D04621,&
    K04_6c,K04_6d,D04700,Q04701,BPM04701,Q04701,D04701,&
    K04_7a,K04_7b,D04720,Q04721,BPM04721,Q04721,D04721,&
    K04_7c,K04_7d,D04800,Q04801,BPM04801,Q04801,D04801,&
    K04_8a,K04_8b,D04820,Q04821,BPM04821,Q04821,D04821,&
    K04_8c,K04_8d,D04900a,WS04911,D04900b,PR04900,D04900c,&
     Q04901,BPM04901,Q04901,D04901a,IM04915,D04901b,&
    LI04end)

  LI05 : LINE=(LI05beg,&
    K05_1a,K05_1b,K05_1c,K05_1d,D05200,Q05201,BPM05201,Q05201,D05201,&
    K05_2a,K05_2b,K05_2c,K05_2d,D05300,Q05301,BPM05301,Q05301,D05301,&
    K05_3a,K05_3b,K05_3c,K05_3d,D05400,Q05401,BPM05401,Q05401,D05401,&
    K05_4a,K05_4b,K05_4c,K05_4d,D05500,Q05501,BPM05501,Q05501,D05501,&
    K05_5a,K05_5b,K05_5c,K05_5d,D05600,Q05601,BPM05601,Q05601,D05601,&
    K05_6a,K05_6b,K05_6c,K05_6d,D05700,Q05701,BPM05701,Q05701,D05701,&
    K05_7a,K05_7b,K05_7c,K05_7d,D05800,Q05801,BPM05801,Q05801,D05801,&
    K05_8a,K05_8b,K05_8c,K05_8d,D05900,Q05901,BPM05901,Q05901,D05901a,&
     KIKY05_9,D05901b,KIKX05_9,D05901c,&
    LI05end)

  LI06 : LINE=(LI06beg,&
    K06_1a,K06_1b,K06_1c,K06_1d,D06200,Q06201,BPM06201,Q06201,D06201,&
    K06_2a,K06_2b,K06_2c,K06_2d,D06300,Q06301,BPM06301,Q06301,D06301,&
    K06_3a,K06_3b,K06_3c,K06_3d,D06400,Q06401,BPM06401,Q06401,D06401,&
    K06_4a,K06_4b,K06_4c,K06_4d,D06500,Q06501,BPM06501,Q06501,D06501,&
    K06_5a,K06_5b,K06_5c,K06_5d,D06600,Q06601,BPM06601,Q06601,D06601,&
    K06_6a,K06_6b,K06_6c,K06_6d,D06700,Q06701,BPM06701,Q06701,D06701,&
    K06_7a,K06_7b,K06_7c,K06_7d,D06800,Q06801,BPM06801,Q06801,D06801,&
    K06_8a,K06_8b,K06_8c,K06_8d,D06900,Q06901,BPM06901,Q06901,D06901a,&
     KIKY06_9,D06901b,KIKX06_9,D06901c,&
    LI06end)

  LI07 : LINE=(LI07beg,&
    K07_1a,K07_1b,K07_1c,K07_1d,D07200,Q07201,BPM07201,Q07201,D07201,&
    K07_2a,K07_2b,K07_2c,K07_2d,D07300,Q07301,BPM07301,Q07301,D07301,&
    K07_3a,K07_3b,K07_3c,K07_3d,D07400,Q07401,BPM07401,Q07401,D07401,&
    K07_4a,K07_4b,K07_4c,K07_4d,D07500,Q07501,BPM07501,Q07501,D07501,&
    K07_5a,K07_5b,K07_5c,K07_5d,D07600,Q07601,BPM07601,Q07601,D07601,&
    K07_6a,K07_6b,K07_6c,K07_6d,D07700,Q07701,BPM07701,Q07701,D07701,&
    K07_7a,K07_7b,K07_7c,K07_7d,D07800,Q07801,BPM07801,Q07801,D07801,&
    K07_8a,K07_8b,K07_8c,K07_8d,D07900,Q07901,BPM07901,Q07901,D07901,&
    LI07end)

  LI08 : LINE=(LI08beg,&
    K08_1a,K08_1b,K08_1c,K08_1d,D08200,Q08201,BPM08201,Q08201,D08201,&
    K08_2a,K08_2b,K08_2c,K08_2d,D08300,Q08301,BPM08301,Q08301,D08301,&
    K08_3a,K08_3b,K08_3c,K08_3d,D08400,Q08401,BPM08401,Q08401,D08401,&
    K08_4a,K08_4b,K08_4c,K08_4d,D08500,Q08501,BPM08501,Q08501,D08501,&
    K08_5a,K08_5b,K08_5c,K08_5d,D08600,Q08601,BPM08601,Q08601,D08601,&
    K08_6a,K08_6b,K08_6c,K08_6d,D08700,Q08701,BPM08701,Q08701,D08701,&
    K08_7a,K08_7b,K08_7c,K08_7d,D08800,Q08801,BPM08801,Q08801,D08801,&
    K08_8a,K08_8b,K08_8c,K08_8d,D08900,Q08901,BPM08901,Q08901,D08901,&
    LI08end)

  LI09 : LINE=(LI09beg,&
    K09_1a,K09_1b,K09_1c,K09_1d,D09200,Q09201,BPM09201,Q09201,D09201,&
    K09_2a,K09_2b,K09_2c,K09_2d,D09300,Q09301,BPM09301,Q09301,D09301,&
    K09_3a,K09_3b,K09_3c,K09_3d,D09400,Q09401,BPM09401,Q09401,D09401,&
    K09_4a,K09_4b,K09_4c,K09_4d,D09500,Q09501,BPM09501,Q09501,D09501,&
    K09_5a,K09_5b,K09_5c,K09_5d,D09600,Q09601,BPM09601,Q09601,D09601,&
    K09_6a,K09_6b,K09_6c,K09_6d,D09700,Q09701,BPM09701,Q09701,D09701,&
    K09_7a,K09_7b,K09_7c,K09_7d,D09800,Q09801,BPM09801,Q09801,D09801,&
    K09_8a,K09_8b,K09_8c,K09_8d,D09900,Q09901,BPM09901,Q09901,D09901,&
    LI09end)

  LI10 : LINE=(LI10beg,&
    K10_1a,K10_1b,D10130,BPM10131,D10131,PR10135,D10135,Q10201,&
     BPM10201,Q10201,D10201,&
    K10_2a,K10_2b,K10_2c,K10_2d,D10300,Q10301,BPM10301,Q10301,D10301,&
    K10_3a,K10_3b,K10_3c,K10_3d,D10400,&
    Q10401,BPM10401,Q10401,D10401a,DBMARK12,D10401b,PM1_10_1,D10401c,&
     PM1_10_2,D10401d,XC10404,D10404,PC10_4,D10500,&
    Q10501,BPM10501,Q10501,D10501,&
    K10_5a,K10_5b,K10_5c,K10_5d,D10600,Q10601,BPM10601,Q10601,D10601,&
    K10_6a,K10_6b,K10_6c,K10_6d,D10700,Q10701,BPM10701,Q10701,D10701,&
    K10_7a,K10_7b,K10_7c,K10_7d,D10800,Q10801,BPM10801,Q10801,D10801a,&
     IMLBCC1,D10801b,PC10_8,D10801c,&
    Q10802,Q10802,D10802,&
    DBMARK61,LBCC,DBMARK62,D10900,&
    Q10901,BPM10901,Q10901,D10901a,IMLBCC2,D10901b)

  LI11 : LINE=(&
    K11_1b,K11_1c,K11_1d,D11200,Q11201,BPM11201,Q11201,D11201,&
    K11_2a,K11_2b,K11_2c,K11_2d,D11300,Q11301,BPM11301,Q11301,D11301a,&
     XC11300,D11301b,&
    K11_3b,K11_3c,D11400a,WS11344,D11400b,Q11401,BPM11401,Q11401,D11401,&
    K11_4a,D114ab,K11_4b,D114bc,K11_4c,K11_4d,D11500a,XC11502,D11500b,&
     WS11444,D11500c,Q11501,BPM11501,Q11501,D11501,&
    K11_5a,K11_5b,D115bc,K11_5c,K11_5d,D11600,Q11601,BPM11601,Q11601,&
     D11601,&
    K11_6a,D11613,WS11614,D11614,K11_6b,K11_6c,K11_6d,D11700a,YC11703,&
     D11700b,WS11644,D11700c,Q11701,BPM11701,Q11701,D11701,&
    K11_7a,K11_7b,K11_7c,K11_7d,D11800a,XC11802,D11800b,YC11803,D11800c,&
     Q11801,BPM11801,Q11801,D11801,&
    K11_8a,K11_8b,K11_8c,K11_8d,D11900,Q11901,BPM11901,Q11901,D11901a,&
     XC11900,D11901b,YC11900,D11901c,&
    LI11end)

  LI12 : LINE=(LI12beg,&
    K12_1a,K12_1b,K12_1c,K12_1d,D12200,Q12201,BPM12201,Q12201,D12201,&
    K12_2a,D122a1,XC12202,D122a2,YC12203,D122a3,&
    K12_2b,K12_2c,K12_2d,D12300,Q12301,BPM12301,Q12301,D12301,&
    K12_3a,K12_3b,K12_3c,K12_3d,D12400,Q12401,BPM12401,Q12401,D12401,&
    K12_4a,K12_4b,K12_4c,K12_4d,D12500,Q12501,BPM12501,Q12501,D12501,&
    K12_5a,K12_5b,K12_5c,K12_5d,D12600,Q12601,BPM12601,Q12601,D12601,&
    K12_6a,K12_6b,K12_6c,K12_6d,D12700,Q12701,BPM12701,Q12701,D12701,&
    K12_7a,K12_7b,K12_7c,K12_7d,D12800,Q12801,BPM12801,Q12801,D12801,&
    K12_8a,K12_8b,K12_8c,K12_8d,D12900,Q12901,BPM12901,Q12901,D12901,&
    LI12end)

  LI13 : LINE=(LI13beg,&
    K13_1a,K13_1b,K13_1c,K13_1d,D13200,Q13201,BPM13201,Q13201,D13201,&
    K13_2a,K13_2b,K13_2c,K13_2d,D13300,Q13301,BPM13301,Q13301,D13301,&
    K13_3a,K13_3b,K13_3c,K13_3d,D13400,Q13401,BPM13401,Q13401,D13401,&
    K13_4a,K13_4b,K13_4c,K13_4d,D13500,Q13501,BPM13501,Q13501,D13501,&
    K13_5a,K13_5b,K13_5c,K13_5d,D13600,Q13601,BPM13601,Q13601,D13601,&
    K13_6a,K13_6b,K13_6c,K13_6d,D13700,Q13701,BPM13701,Q13701,D13701,&
    K13_7a,K13_7b,K13_7c,K13_7d,D13800,Q13801,BPM13801,Q13801,D13801,&
    K13_8a,K13_8b,K13_8c,K13_8d,D13900,Q13901,BPM13901,Q13901,D13901,&
    LI13end)

  LI14 : LINE=(LI14beg,&
    K14_1a,K14_1b,K14_1c,K14_1d,D14200,Q14201,BPM14201,Q14201,D14201,&
    K14_2a,K14_2b,K14_2c,K14_2d,D14300,Q14301,BPM14301,Q14301,D14301,&
    K14_3a,K14_3b,K14_3c,K14_3d,D14400,Q14401,BPM14401,Q14401,D14401,&
    K14_4a,K14_4b,K14_4c,K14_4d,D14500,Q14501,BPM14501,Q14501,D14501,&
    K14_5a,K14_5b,K14_5c,K14_5d,D14600,Q14601,BPM14601,Q14601,D14601,&
    K14_6a,K14_6b,K14_6c,K14_6d,D14700,Q14701,BPM14701,Q14701,D14701,&
    K14_7a,K14_7b,K14_7c,K14_7d,D14800,Q14801,BPM14801,Q14801,D14801,&
    K14_8a,K14_8b,K14_8c,K14_8d,D14900,Q14901,BPM14901,Q14901,D14901,&
    LI14end)

  LI15 : LINE=(LI15beg,&
    K15_1a,K15_1b,K15_1c,K15_1d,D15200,Q15201,BPM15201,Q15201,D15201,&
    K15_2a,K15_2b,K15_2c,K15_2d,D15300,Q15301,BPM15301,Q15301,D15301,&
    K15_3a,K15_3b,K15_3c,K15_3d,D15400,Q15401,BPM15401,Q15401,D15401,&
    K15_4a,K15_4b,K15_4c,K15_4d,D15500,Q15501,BPM15501,Q15501,D15501,&
    K15_5a,K15_5b,K15_5c,K15_5d,D15600,Q15601,BPM15601,Q15601,D15601,&
    K15_6a,K15_6b,K15_6c,K15_6d,D15700,Q15701,BPM15701,Q15701,D15701,&
    K15_7a,K15_7b,K15_7c,K15_7d,D15800,Q15801,BPM15801,Q15801,D15801,&
    K15_8a,K15_8b,K15_8c,K15_8d,D15900,Q15901,BPM15901,Q15901,D15901,&
    LI15end)

  LI16 : LINE=(LI16beg,&
    K16_1a,K16_1b,K16_1c,K16_1d,D16200,Q16201,BPM16201,Q16201,D16201,&
    K16_2a,K16_2b,K16_2c,K16_2d,D16300,Q16301,BPM16301,Q16301,D16301,&
    K16_3a,K16_3b,K16_3c,K16_3d,D16400,Q16401,BPM16401,Q16401,D16401,&
    K16_4a,K16_4b,K16_4c,K16_4d,D16500,Q16501,BPM16501,Q16501,D16501,&
    K16_5a,K16_5b,K16_5c,K16_5d,D16600,Q16601,BPM16601,Q16601,D16601,&
    K16_6a,K16_6b,K16_6c,K16_6d,D16700,Q16701,BPM16701,Q16701,D16701,&
    K16_7a,K16_7b,K16_7c,K16_7d,D16800,Q16801,BPM16801,Q16801,D16801,&
    K16_8a,K16_8b,K16_8c,K16_8d,D16900,Q16901,BPM16901,Q16901,D16901,&
    LI16end)

  LI17 : LINE=(LI17beg,&
    K17_1a,K17_1b,K17_1c,K17_1d,D17200,Q17201,BPM17201,Q17201,D17201,&
    K17_2a,K17_2b,K17_2c,K17_2d,D17300,Q17301,BPM17301,Q17301,D17301,&
    K17_3a,K17_3b,K17_3c,K17_3d,D17400,Q17401,BPM17401,Q17401,D17401,&
    K17_4a,K17_4b,K17_4c,K17_4d,D17500,Q17501,BPM17501,Q17501,D17501,&
    K17_5a,K17_5b,K17_5c,K17_5d,D17600,Q17601,BPM17601,Q17601,D17601,&
    K17_6a,K17_6b,K17_6c,K17_6d,D17700,Q17701,BPM17701,Q17701,D17701,&
    K17_7a,K17_7b,K17_7c,K17_7d,D17800,Q17801,BPM17801,Q17801,D17801,&
    K17_8a,K17_8b,K17_8c,K17_8d,D17900,Q17901,BPM17901,Q17901,D17901a,&
     XC17950,YC17950,D17901b,&
    LI17end)

  LI18 : LINE=(LI18beg,&
    K18_1a,K18_1b,K18_1c,K18_1d,D18200,Q18201,BPM18201,Q18201,D18201,&
    K18_2a,K18_2b,K18_2c,K18_2d,D18300,Q18301,BPM18301,Q18301,D18301,&
    K18_3a,K18_3b,K18_3c,K18_3d,D18400,Q18401,BPM18401,Q18401,D18401,&
    K18_4a,K18_4b,K18_4c,K18_4d,D18500,Q18501,BPM18501,Q18501,D18501,&
    K18_5a,K18_5b,K18_5c,K18_5d,D18600,Q18601,BPM18601,Q18601,D18601,&
    K18_6a,K18_6b,K18_6c,K18_6d,D18700,Q18701,BPM18701,Q18701,D18701,&
    K18_7a,K18_7b,K18_7c,K18_7d,D18800,Q18801,BPM18801,Q18801,D18801,&
    K18_8a,K18_8b,K18_8c,K18_8d,D18900,Q18901,BPM18901,Q18901,D18901a,&
     BL18_9,D18901b,WS18944,D18901c,CX18096,CY18096,D18901d,&
    LI18end)

  LI19 : LINE=(LI19beg,&
    K19_1a,K19_1b,K19_1c,K19_1d,D19200,Q19201,BPM19201,Q19201,D19201,&
    K19_2a,K19_2b,K19_2c,K19_2d,D19300,Q19301,BPM19301,Q19301,D19301,&
    K19_3a,K19_3b,K19_3c,K19_3d,D19400,Q19401,BPM19401,Q19401,D19401,&
    K19_4a,K19_4b,K19_4c,K19_4d,D19500a,SCAVKICK,D19500b,Q19501,BPM19501,&
     Q19501,D19501,&
    K19_5a,K19_5b,K19_5c,K19_5d,D19600,Q19601,BPM19601,Q19601,D19601,&
    K19_6a,K19_6b,K19_6c,K19_6d,D19700,Q19701,BPM19701,Q19701,DBMARK13,&
    D19800,Q19801,BPM19801,Q19801,D19801,&
    K19_8a,K19_8b,K19_8c,K19_8d,D19900,Q19901,BPM19901,Q19901,D19901a,&
     FMDW,D19901b,IM1988,D19901c,&
    LI19end)

  LINAC : LINE=(&
    LI02,LI03,LI04,LI05,LI06,LI07,LI08,LI09,LI10,&
    LI11,LI12,LI13,LI14,LI15,LI16,LI17,LI18,LI19,FBEG)

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

  RETURN
