module multibunch_interface
  interface
    
  subroutine beam_moments(beam, bunch_moments)
  use bmad
  use beam_mod
  use multibunch_mod

  implicit none
  type (beam_struct) beam
  type(moment_struct), allocatable :: bunch_moments(:)
  end subroutine

 end interface   

 interface
  subroutine write_phase_space(i,beam)
  use bmad
  use beam_mod
  use multibunch_mod

  implicit none
  type (beam_struct) beam
  integer i,j,k, lun
  end subroutine write_phase_space
 end interface

 interface
  subroutine feedback(beam, bunch_moments)
  use bmad
  use beam_mod
  use multibunch_mod

  implicit none
  type (beam_struct) beam
  type(moment_struct), allocatable :: bunch_moments(:)
  end subroutine
 end interface

end module multibunch_interface