module bpm_mod use precision_def type grid_struct real(rp) xs,ys,V,Q,ts logical point(4) end type type bpm_geometry_struct real(rp) min_angle(4), max_angle(4) real(rp) min_angle_shallow(8), max_angle_shallow(8) real(rp) min_angle_deep(8), max_angle_deep(8) end type end module