module cbpm_interface
interface
 subroutine fit_peak(fft, fft_peak, n, fit_tune)
 use bmad
 implicit none

 real(rp), allocatable :: fft(:)
 real(rp) fit_tune
 integer fft_peak
 integer n
 end subroutine
end interface
end module