module da_mod use precision_def type osc_param_struct real(rp) Tmat(6,6), tilde_m56, delta_s, wavelength real(rp) osc_emit_max, osc_dp_max real(rp) t5mat(6,6) real(rp) int_theta_x2, int_theta_y2 real(rp) second_order_x, second_order_y logical linear, t2mat,theta2, det end type osc_param_struct end module