subroutine synrad_init (u)

  use synrad_mod
  use synrad_window_mod, only: find_windows
  use cesrv_struct
  use cesrv_interface

  implicit none

  type (universe_struct), target :: u

  character(100) wall_file

  logical, save :: init_needed = .true.
  logical err_flag

  !

  if (.not. init_needed) return

  logic%synrad_params%n_slice = 20
  wall_file = '$CESR_ONLINE/machine_data/survey/vac_pipe/synrad.wall'
  print *, 'Using Wall File: ', trim(wall_file)
  call synrad_read_vac_wall_geometry (wall_file, 1.0_rp, u%ring%branch(0), u%walls, err_flag, 0.0001_rp)
  if (err_flag) return
  call find_windows (u%walls%positive_x_wall, u%window)

  u_common => u

  init_needed = .false.

end subroutine synrad_init