! these are the grid files for dipole and curvilinear quad
call,file=../quad_curvilinear/dipole.bmad  !dipole field grid
call, file = quad_combined_curvilinear_short.bmad
call, file = quad_combined_curvilinear_long.bmad
quad_short[grid_field(3)%field_scale]=100.
quad_short[grid_field(4)%field_scale]=100.
quad_short[grid_field(5)%field_scale]=100.
quad_short[grid_field(6)%field_scale]=100.
quad_long[grid_field(3)%field_scale]=100.
quad_long[grid_field(4)%field_scale]=100.
quad_long[grid_field(5)%field_scale]=100.
quad_long[grid_field(6)%field_scale]=100.

quad_short[quad_voltage]:= 100.*32./27.2
quad_long[quad_voltage]:= 100.*32./27.2

QUAD1_LONG:  QUAD_LONG
QUAD1_SHORT:  QUAD_SHORT  

QUAD2_LONG:  QUAD_LONG  
QUAD2_SHORT:  QUAD_SHORT  

QUAD3_LONG:  QUAD_LONG  
QUAD3_SHORT:  QUAD_SHORT  

QUAD4_LONG:  QUAD_LONG  
QUAD4_SHORT:  QUAD_SHORT