C ---------------------------------------------------------------------
C RBP Card:
C Parameter: R_b
C Description: Beampipe radius
C Subroutine: REG1
REG1 RBP: -------------------------------------------------------------
0.75

C ---------------------------------------------------------------------
C THETABP Card:
C Parameter: theta_b
C Description: Beampipe angle with z axis
C Subroutine: REG1
REG1 THETABP: ---------------------------------------------------------
0.11307D0

C ---------------------------------------------------------------------
C RTG Card:
C Parameter: R_j
C Description: Mercury jet radius
C Subroutine: REG1
REG1 RTG: -------------------------------------------------------------
0.404

C ---------------------------------------------------------------------
C THETATG Card:
C Parameter: theta_j
C Description: Mercury jet angle with z axis
C Subroutine: REG1
REG1 THETATG: ---------------------------------------------------------
0.1376D0

C ---------------------------------------------------------------------
C M_j Card:
C Parameter: M_j
C Description: Mercury Jet material index
C Subroutine: REG1
REG1 M_j: ---------------------------------------------------------------
10

C ---------------------------------------------------------------------
C Z1 Card:
C Parameter: Z_i
C Description: Beam pipe initial coordinates
C Subroutine: REG1
REG1 Z1: --------------------------------------------------------------
0.0d0

C ---------------------------------------------------------------------
C R1 Card:
C Parameter: R_i
C Description: Beam pipe initial coordinates
C Subroutine: REG1
REG1 R1: --------------------------------------------------------------
30.0d0

C ---------------------------------------------------------------------
C Z2 Card:
C Parameter: Z_f
C Description: Beam pipe final coordinates
C Subroutine: REG1
REG1 Z2: --------------------------------------------------------------
1500.0d0

C ---------------------------------------------------------------------
C R2 Card:
C Parameter: R_f
C Description: Beam pipe final coordinates
C Subroutine: REG1
REG1 R2: --------------------------------------------------------------
30.0d0

C ---------------------------------------------------------------------
C MBP2 Card:
C Parameter: BP#2
C Description: Beam pipe material
C Subroutine: REG1
REG1 MBP2: -------------------------------------------------------------
-15

C ---------------------------------------------------------------------
C MBP3 Card:
C Parameter: BP#3
C Description: Beam pipe material
C Subroutine: REG1
REG1 MBP3: -------------------------------------------------------------
-16

C ---------------------------------------------------------------------
C B2 Card:
C Parameter: B_end
C Description: Final constant field
C Subroutine: FIELD
FIELD B2: --------------------------------------------------------------
1.5

C ---------------------------------------------------------------------
C Z2 Card:
C Parameter: Z_end
C Description: z position where Bend starts
C Subroutine: FIELD
FIELD Z2: -------------------------------------------------------------
3200.0

C ---------------------------------------------------------------------
C B1 Card:
C Parameter: B_max
C Description: Peak field at Z=-37.5 cm
C Subroutine: FIELD
FIELD B1: -------------------------------------------------------------
20.0

C ---------------------------------------------------------------------
C IWRTYP Card:
C Parameter: Writing Switch
C Description: Output writing momenta or cosines
C Subroutine: WRTSUR
WRTSUR IWRTYP: --------------------------------------------------------
1