! ------------------------------------------------------------------------------
! configurations
! ------------------------------------------------------------------------------

  HICHARGE : SUBROUTINE !full compression at 3.2 nC (2e10 e-/bunch)
  ! full compression
    SET, NELEC, 2.0E10             !e-/bunch
    SET, CAMPL, 40.8               !MV
    SET, PSTAG, -11.2              !deg  (LiTrack value)
    SET, G06_7, GSLED              !turn on 6-7
    SET, PFB91, -87.9/360          !9-1  (LiTrack value)
    SET, PFB17, -89.49/360         !LI17 (LiTrack value)
    SET, KLOSS1, 5.51068074059E13  !V/C/m (matched to LiTrack energy profile)
    SET, KLOSS2, 9.791471950166E13 !V/C/m (matched to LiTrack energy profile)
  ! linac match
    SET, KQ18601, 0.904213948307
    SET, KQ18701, -0.620563090137
    SET, KQ18801, 0.697009694892
    SET, KQ18901, -0.77935728586
  ENDSUBROUTINE

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

  NOLOADHI : SUBROUTINE !turn off beam loading (2e10 e-/bunch)
    SET, KLOSS1, 0
    SET, KLOSS2, 0
    SET, PFB91, -105.5154633796/360  !9-1/9-2
    SET, PFB17, -93.515136394064/360 !LI17/LI18
    SET, KQ18601, 0.904184907397
    SET, KQ18701, -0.620557765384
    SET, KQ18801, 0.696977640918
    SET, KQ18901, -0.779352631687
  ENDSUBROUTINE

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

  LOCHARGE : SUBROUTINE !relaxed compression at 1.6 nC (1e10 e-/bunch)
  ! relaxed compression
    SET, NELEC, 1.0E10             !e-/bunch
    SET, CAMPL, 38.5               !MV
    SET, G06_7, GZERO              !turn off 6-7
    SET, PSTAG, -10.74             !deg
    SET, PFB91, -79.2/360          !9-1/9-2  (LiTrack value)
    SET, PFB17, -91.46/360         !LI17/LI18 (LiTrack value)
    SET, KLOSS1, 5.724245188048E13 !V/C/m (matched to LiTrack energy profile)
    SET, KLOSS2, 9.994106452391E13 !V/C/m (matched to LiTrack energy profile)
  ! linac match
    SET, KQ18601,  0.902285773629
    SET, KQ18701, -0.619687232328   
    SET, KQ18801,  0.694730365768   
    SET, KQ18901, -0.779026266872   
  ENDSUBROUTINE

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

  NOLOADLO : SUBROUTINE !turn off beam loading (1e10 e-/bunch)
    SET, KLOSS1, 0
    SET, KLOSS2, 0
    SET, PFB91, -88.314299378337/360 !9-1/9-2
    SET, PFB17, -93.515136394059/360 !LI17/LI18
    SET, KQ18601, 0.902161262139
    SET, KQ18701, -0.619624214297
    SET, KQ18801, 0.694586272713
    SET, KQ18901, -0.779010223811
  ENDSUBROUTINE

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

  POSI20 : SUBROUTINE !match e+ to reversed-polarity LI20
    SET, KQ18201,  0.83273620903 
    SET, KQ18301, -0.861585933696
    SET, KQ18401,  0.793400001935
    SET, KQ18501, -0.864175997584
    SET, KQ18601,  0.961881858353
    SET, KQ18701, -0.535284561648
    SET, KQ18801,  0.686748524686
    SET, KQ18901, -0.790677992795
    SET, KQ19201,  0.831156126716
    SET, KQ19301, -0.835086693959
    SET, KQ19401,  0.889099980518
    SET, KQ19501, -0.783115743363
    SET, KQ19601,  0.77143041    
    SET, KQ19701, -0.7786437     
    SET, KQ19801,  0.790392661665
    SET, KQ19901, -0.759722486812
  ENDSUBROUTINE

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

  RETURN