subroutine read_steerings (u)

  use cesrv_struct
  use cesrv_interface

  implicit none

  type (universe_struct) :: u

!

  call vxgetn ('CSR HORZ CUR', 1, 98, u%hsteer_kick%v(1:98)%cu_saved)
  call vxgetn ('CSR HBND CUR', 1,  6, u%hsteer_kick%v(101:106)%cu_saved)
  call vxgetn ('CSR VERT CUR', 1, 98, u%vsteer_kick%v(1:98)%cu_saved)
  call vxgetn ('UND VERT CUR', 1, n_und_vert_maxx, u%vsteer_kick%v(101:100+n_und_vert_maxx)%cu_saved)
  call vxgetn ('UND CNTG CUR', 1, 1, u%hsteer_kick%v(111:111)%cu_saved)
  call vxgetn ('UND CNTGTRIM', 1, 1, u%hsteer_kick%v(112:112)%cu_saved)

  call saved_and_lim_calc (u%hsteer_kick%v)
  call saved_and_lim_calc (u%vsteer_kick%v)

end subroutine