subroutine get_tilt(tilt)

use cesrv_struct
use cesr_basic_mod
use cesr_read_data_mod

implicit none

real(rp) tilt(0:120)
integer i, ios
integer iu
integer ix
character(130) tilt_file
character(130) line_in, correction_file
character(20) :: r_name = 'get_tilt'

namelist / bpm_tilts / tilt

!

  tilt(:) = 0.

if (.not. logic%tilt_correction) return

call fullfilename (logic%tilt_correction_file, correction_file)
!call set_bpm_button_correction_file (gain_file = correction_file)

iu=lunget()
open (iu, file = correction_file, status = 'old', iostat = ios)
if (ios /= 0) then
  call out_io (s_fatal$, r_name, 'CANNOT OPEN BPM TILT FILE: ' // correction_file)
  call err_exit
endif

read (iu, nml = bpm_tilts)
close (iu)

end subroutine