Brho20 := Cb*E20

! ------------------------------------------------------------------------------
! Final Focus configurations (based on ipConfig matching; QFF6 fixed)
! ------------------------------------------------------------------------------

  FFIP200a : SUBROUTINE !waists at IP200 (50x500), image at AEROGEL
    SET, BXip, 0.5
    SET, AXip, 0
    SET, BYip, 5.0
    SET, AYip, 0
    SET, KQFF1,  0.415198567761 ! 130.03/LQFF1/Brho20 !
    SET, KQFF2, -0.320857001196 !-100.37/LQFF2/Brho20 !
    SET, KQFF4,  0.344621601013 ! 167.05/LQFF4/Brho20 !
    SET, KQFF5, -0.439892067173 !-605.08/LQFF5/Brho20 !
    SET, KQFF6,  0.886074803946 ! 429.57/LQFF6/Brho20 !
    SET, KQS0,  -1.070719
    SET, KQS1,   0.386709908743
    SET, KQS2,  -0.15250227597
   !R56= -7 mm (from G. White)
    SET, KS1E, 15.0782
    SET, KS2E, -11.5893
    SET, KS3E, -13.793
  ENDSUBROUTINE

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

  FFIP200b : SUBROUTINE !waists at IP200 (10x100), image at AEROGEL
    SET, BXip, 0.1
    SET, AXip, 0
    SET, BYip, 1.0
    SET, AYip, 0
    SET, KQFF1,  0.128940793782 !  41.04/LQFF1/Brho20 !
    SET, KQFF2, -0.315454513557 ! -98.75/LQFF2/Brho20 !
    SET, KQFF4,  0.336505956716 ! 163.15/LQFF4/Brho20 !
    SET, KQFF5, -0.42563409211  !-585.55/LQFF5/Brho20 !
    SET, KQFF6,  0.909733993371 ! 441.04/LQFF6/Brho20 !
    SET, KQS0,  -1.070719
    SET, KQS1,   0.386709908743
    SET, KQS2,  -0.15250227597
   !R56= -7 mm (from G. White)
    SET, KS1E, 15.0782
    SET, KS2E, -11.5893
    SET, KS3E, -13.793 
  ENDSUBROUTINE

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

  FFWSIP3a : SUBROUTINE !waists at WSIP3 (50x500), QS0 on
    SET, BXip, 0.5
    SET, AXip, 0
    SET, BYip, 5.0
    SET, AYip, 0
    SET, BSPmax, 190
    SET, KQFF1,  0.084023168507 ! 123.40/LQFF1/Brho20 !
    SET, KQFF2, -0.341848333325 !-108.21/LQFF2/Brho20 !
    SET, KQFF4,  0.266325719304 ! 114.84/LQFF4/Brho20 !
    SET, KQFF5, -0.373273540073 !-516.48/LQFF5/Brho20 !
    SET, KQFF6,  0.654969696434 ! 317.53/LQFF6/Brho20 !
    SET, KQS0,  -1.070719  
    SET, KQS1,   0.190351498046
    SET, KQS2,  -0.142024349304
   !R56= -7 mm (from G. White)
    SET, KS1E, 15.0782
    SET, KS2E, -11.5893
    SET, KS3E, -13.793
  ENDSUBROUTINE

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

  FFWSIP3b : SUBROUTINE !waists at WSIP3 (50x500), QS0 off
    SET, BXip, 0.5
    SET, AXip, 0
    SET, BYip, 5.0
    SET, AYip, 0
    SET, BSPmax, 450
    SET, KQFF1,  0.084023168507 ! 123.40/LQFF1/Brho20 !
    SET, KQFF2, -0.341848333325 !-108.21/LQFF2/Brho20 !
    SET, KQFF4,  0.266325719304 ! 114.84/LQFF4/Brho20 !
    SET, KQFF5, -0.373273540073 !-516.48/LQFF5/Brho20 !
    SET, KQFF6,  0.654969696434 ! 317.53/LQFF6/Brho20 !
    SET, KQS0,   0  
    SET, KQS1,   0.363137916235
    SET, KQS2,  -0.021351219574
   !R56= -7 mm (from G. White)
    SET, KS1E, 15.0782
    SET, KS2E, -11.5893
    SET, KS3E, -13.793
  ENDSUBROUTINE

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

  FFQBDES : SUBROUTINE !FF quadrupole LGPS BDES values
    VALUE, Brho20*KQ1ER*LQ1
    VALUE, Brho20*KQFF1*LQFF1
    VALUE, Brho20*KQFF2*LQFF2
    VALUE, Brho20*KQFF4*LQFF4
    VALUE, Brho20*KQFF5*LQFF5
    VALUE, Brho20*KQFF6*LQFF6
    VALUE, Brho20*KQS0 *LQS0
    VALUE, Brho20*KQS1 *LQS
    VALUE, Brho20*KQS2 *LQS
  ENDSUBROUTINE

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

 !FFIP200a ; MIP   : LIST=(WAISTS) ; AEROGEL : LIST=(IPIMAGE) !50x500
 !FFIP200b ; MIP   : LIST=(WAISTS) ; AEROGEL : LIST=(IPIMAGE) !10x100
 !FFWSIP3a ; WSIP3 : LIST=(WAISTS) ! QS0 on                   !50x500
 !FFWSIP3b ; WSIP3 : LIST=(WAISTS) ! QS0 off                  !50x500

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

  RETURN