module bmadz_other_code_interface
      interface
        subroutine fft_plane(n,co, Q,phase)
        use bmad
        use nr
        use nrutil, only: dpc
        implicit none
        type(coord_struct) co(:)
        integer n
        real(rp) Q(3), phase(3)
        end subroutine fft_plane
       end interface

       interface
        subroutine implement_ecloud(ring,sigx,sigy,sigz,density,bunch, ecloud_type, beamfield_file, bbi_length, d_bbi) 
        use bmad
        use bookkeeper_mod
        implicit none
        type (lat_struct) ring
        integer bunch
        real(rp) sigx,sigy,sigz
        real(rp) density
        real(rp) bbi_length,d_bbi
        character*(*) beamfield_file
        character*(*) ecloud_type
        end subroutine
       end interface

 end module