module bmadz_struct

  use bmad_struct

  type emittance_struct
     real(rp) x_emit
     real(rp) sige_e
     real(rp) e_loss
     real(rp) synch_int(5)  !synchrotron integrals
  end type

!
  type global_struct
    type (emittance_struct)  wig, nowig, ewig
    type (normal_modes_struct) mode_electron, mode_positron
    real(rp) chromx, chromy, delta_e_chrom, c_mat_chrom(2,2)
    real(rp) emit_coe(0:2)  !emittance coefficients for dynamic beta
  end type

integer, private, save :: dummy = 0 ! So ranlib will not complain about no symbols

end module