! *** OPTICS=AD_ACCEL-05OCT20 ***

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

  FZ100_10NOV17 : SUBROUTINE !F. Zhou (100 pC)
   !Twiss at gun
    SET, BX0, 4.500212754115E2
    SET, AX0, 1.737147744274E2
    SET, BY0, 4.494532065919E2
    SET, AY0, 1.734952004794E2
   !Twiss at QCM01 entrance
    SET, BXi,  9.3480
    SET, AXi, -1.6946
    SET, BYi,  9.3429
    SET, AYi, -1.6925
   !Twiss at S= 15.0 m (ASTRA)
    SET, BXa, 13.325594260778
    SET, AXa, -2.125811087479
    SET, BYa, 13.315541267649
    SET, AYa, -2.123153833723
   !max beta u/s of WS0H04
    SET, Bmax, 50
   !beta at WS0H04 waist
    SET, B0H04w, 5.0
   !beam parameters
    SET, QBNCH,  100.0E-12  !C
    SET, EMITXn, 0.2953E-06 !m
    SET, EMITYn, 0.2954E-06 !m
    SET, sig_z,  0.9987E-03 !m
    SET, sig_dp, 0.0379E-02 !1
  ! quadrupole strengths
    SET, KQCM01,  0.378216482077 
    SET, KQ0H01, -6.391217650404  
    SET, KQ0H02,  5.905989161645  
    SET, KQ0H03,  2.403934435238  
    SET, KQ0H04, -6.042774733767  
  ENDSUBROUTINE

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

  FZ100_15OCT15 : SUBROUTINE !F. Zhou (100 pC)
   !Twiss at gun
    SET, BX0, 3.949042136246E2
    SET, AX0, 1.525610502992E2
    SET, BY0, 3.94640860598E2
    SET, AY0, 1.524592881855E2
   !Twiss at QCM01 entrance
    SET, BXi, 10.3555
    SET, AXi, -1.7154
    SET, BYi, 10.3540
    SET, AYi, -1.7145
   !Twiss at S= 15.0 m (ASTRA)
    SET, BXa, 14.340151152121
    SET, AXa, -2.111789110488
    SET, BYa, 14.336513707843
    SET, AYa, -2.110636132949
   !max beta u/s of WS0H04
    SET, Bmax, 50
   !beta at WS0H04 waist
    SET, B0H04w, 5.0
   !beam parameters
    SET, QBNCH,  100.0E-12 !C
    SET, EMITXn, 0.268E-06 !m
    SET, EMITYn, 0.268E-06 !m
    SET, sig_z,  1.007E-03 !m
    SET, sig_dp, 0.041E-02 !1
  ! quadrupole strengths
    SET, KQCM01,  0.339515791522 
    SET, KQ0H01, -6.377763583312  
    SET, KQ0H02,  5.892820317985  
    SET, KQ0H03,  2.276232890249  
    SET, KQ0H04, -5.864605109643  
  ENDSUBROUTINE

! ------------------------------------------------------------------------------
! NOTE: The following sets of initial conditions have NOT been matched
! ------------------------------------------------------------------------------

  QM100A : SUBROUTINE !J. Qiang/C. Mitchell (100 pC "A") ... LH undulator OFF
   !Twiss at gun
    SET, BX0, 1.098547329536E2
    SET, AX0, 42.367590521893
    SET, BY0, 1.098547329536E2
    SET, AY0, 42.367590521893
   !Twiss at QCM01 entrance
    SET, BXi, 16.233532654362
    SET, AXi, -1.063346480924
    SET, BYi, 16.233532654362
    SET, AYi, -1.063346480924
   !Twiss at S= 15.0 m (ASTRA) ... specified
    SET, BXa, 18.59
    SET, AXa, -1.2
    SET, BYa, 18.59
    SET, AYa, -1.2
   !max beta u/s of WS0H04
    SET, Bmax, 40
   !beta at WS0H04 waist
    SET, B0H04w, 5.0
   !beam parameters
    SET, QBNCH, 100.0E-12 !pC
    SET, EMITn, 0.38E-06
  ! quadrupole strengths
    SET, KQCM01,  0.176584953463 
    SET, KQ0H01, -5.776863411319 
    SET, KQ0H02,  5.317524132433 
    SET, KQ0H03,  2.649644095649 
    SET, KQ0H04, -5.854475320802 
    SET, KQ0H05, -7.451690534249
    SET, KQ0H06,  1.835549316624
    SET, KQ0H07,  7.794439920783
    SET, KQ0H08, -8.272915023345
    SET, KQHD01, -8.492794680471
    SET, KQHD02,  6.294736472791
    SET, KQHD03, -8.534882595843
    SET, KQHD04,  6.926017101709
    SET, UMHTR[RM(3,3)], 1
    SET, UMHTR[RM(3,4)], Lhun/2
    SET, UMHTR[RM(4,3)], 0
    SET, UMHTR[RM(4,4)], 1
  ENDSUBROUTINE

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

  QM100B : SUBROUTINE !J. Qiang/C. Mitchell (100 pC "B") ... LH undulator OFF
   !Twiss at gun
    SET, BX0, 1.669968595199E2
    SET, AX0, 64.785818088252
    SET, BY0, 1.669968595199E2
    SET, AY0, 64.785818088252
   !Twiss at QCM01 entrance
    SET, BXi, 16.069891381956
    SET, AXi, -1.572488022521
    SET, BYi, 16.069891381956
    SET, AYi, -1.572488022521
   !Twiss at S= 15.0 m (ASTRA) ... specified
    SET, BXa, 19.57851
    SET, AXa, -1.79748
    SET, BYa, 19.57851
    SET, AYa, -1.79748
   !max beta u/s of WS0H04
    SET, Bmax, 50
   !beta at WS0H04 waist
    SET, B0H04w, 5.0
   !beam parameters
    SET, QBNCH, 100.0E-12 !pC
    SET, EMITn, 0.361575E-06
  ! quadrupole strengths
    SET, KQCM01,  0.206232760429 
    SET, KQ0H01, -5.997611898457 
    SET, KQ0H02,  5.573298937059 
    SET, KQ0H03,  2.382083680664 
    SET, KQ0H04, -6.081033789926 
    SET, KQ0H05, -7.451690534249
    SET, KQ0H06,  1.835549316624
    SET, KQ0H07,  7.794439920783
    SET, KQ0H08, -8.272915023345
    SET, KQHD01, -8.492794680471
    SET, KQHD02,  6.294736472791
    SET, KQHD03, -8.534882595842
    SET, KQHD04,  6.926017101709
    SET, UMHTR[RM(3,3)], 1
    SET, UMHTR[RM(3,4)], Lhun/2
    SET, UMHTR[RM(4,3)], 0
    SET, UMHTR[RM(4,4)], 1
  ENDSUBROUTINE

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

  FZ300 : SUBROUTINE !F. Zhou (300 pC)
   !Twiss at gun
    SET, BX0, 5.223458096991E2
    SET, AX0, 2.014520432434E2
    SET, BY0, 5.223458096991E2
    SET, AY0, 2.014520432434E2
   !Twiss at QCM01 entrance
    SET, BXi, 8.19048654706
    SET, AXi, -1.654795591819
    SET, BYi, 8.19048654706
    SET, AYi, -1.654795591819
   !Twiss at S= 15.0 m (ASTRA) ... specified
    SET, BXa, 12.131
    SET, AXa, -2.13
    SET, BYa, 12.131
    SET, AYa, -2.13
   !max beta u/s of WS0H04
    SET, Bmax, 50
   !beta at WS0H04 waist
    SET, B0H04w, 5.0
   !beam parameters
    SET, QBNCH, 300.0E-12 !pC
    SET, EMITn, 0.657E-06
   !sig_z := 1.42 mm
  ! quad strengths
    SET, KQCM01,  0.30196560244 
    SET, KQ0H01, -6.476108161621 
    SET, KQ0H02,  6.000090829932 
    SET, KQ0H03,  2.248451957318 
    SET, KQ0H04, -5.89505977896  
  ENDSUBROUTINE

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

  JQ20 : SUBROUTINE !J. Qiang (20 pC) ... LH undulator OFF
  ! Twiss at gun
    SET, BX0, 1.025193543685E2
    SET, AX0, 39.039738621467
    SET, BY0, 1.025193543685E2
    SET, AY0, 39.039738621467
  ! Twiss at QCM01 entrance ... specified
    SET, BXi, 17.31
    SET, AXi, -0.6
    SET, BYi, 17.31
    SET, AYi, -0.6
  ! Twiss at S= 15.0 m (ASTRA)
    SET, BXa, 18.644536885738
    SET, AXa, -0.681799796643
    SET, BYa, 18.644536885738
    SET, AYa, -0.681799796643
  ! max beta u/s of WS0H04
    SET, Bmax, 33
  ! beta at WS0H04 waist
    SET, B0H04w, 5.0
  ! beam parameters
    SET, QBNCH, 20.0E-12 !pC
    SET, EMITn, 0.123E-06
  ! quad strengths
    SET, KQCM01,  0.147186176612 
    SET, KQ0H01, -5.498934638732
    SET, KQ0H02,  5.016799953886 
    SET, KQ0H03,  2.864496274276 
    SET, KQ0H04, -5.682103665934 
    SET, KQ0H05, -7.451690534249
    SET, KQ0H06,  1.835549316624
    SET, KQ0H07,  7.794439920783
    SET, KQ0H08, -8.272915023345
    SET, KQHD01, -8.492794680471
    SET, KQHD02,  6.294736472791
    SET, KQHD03, -8.534882595842
    SET, KQHD04,  6.926017101709
    SET, UMHTR[RM(3,3)], 1
    SET, UMHTR[RM(3,4)], Lhun/2
    SET, UMHTR[RM(4,3)], 0
    SET, UMHTR[RM(4,4)], 1
  ENDSUBROUTINE

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

  CP20 : SUBROUTINE !C. Papadopoulos (20 pC) ["20pC_2013_12_04"]
   !Twiss at gun
    SET, BX0, 8.42682465426E2
    SET, AX0, 3.201029599052E2
    SET, BY0, 8.42682465426E2
    SET, AY0, 3.201029599052E2
   !Twiss at QCM01 entrance
    SET, BXi, 18.329280737288
    SET, AXi, 1.97090450146
    SET, BYi, 18.329280737288
    SET, AYi, 1.97090450146
   !Twiss at S= 15.0 m (ASTRA) ... specified
    SET, BXa, 14.5141571444 !"avg. beta"
    SET, AXa, 1.69345629448 !"avg. alpha"
    SET, BYa, 14.5141571444 !"avg. beta"
    SET, AYa, 1.69345629448 !"avg. alpha"
   !max beta u/s of WS0H04
    SET, Bmax, 19
   !beta at WS0H04 waist
    SET, B0H04w, 5.0
   !beam parameters
    SET, QBNCH, 20.0E-12 !pC
    SET, EMITn, 0.1E-06
  ! quad strengths
    SET, KQCM01,  0.359590984942 
    SET, KQ0H01, -4.966246404083 
    SET, KQ0H02,  5.437269020456 
    SET, KQ0H03,  5.48815358142  
    SET, KQ0H04, -5.117958800983 
  ENDSUBROUTINE

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

! select a beam

 !FZ100_10NOV17 !F. Zhou (100 pC)
 !FZ100_15OCT15 !F. Zhou (100 pC)
 !QM100A        !J. Qiang/C. Mitchell (100 pC "A") ... LH undulator OFF
 !QM100B        !J. Qiang/C. Mitchell (100 pC "B") ... LH undulator OFF
 !FZ300         !F. Zhou (300 pC)
 !JQ20          !J. Qiang (20 pC) ... LH undulator OFF
 !CP20          !C. Papadopoulos (20 pC) ["20pC_2013_12_04"]

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

  RETURN