subroutine take_phase (data_or_ref, u, graph, err_flag, auto_meas, comment)

  use cesrv_struct
  use cesrv_interface
  use phase_mod

  implicit none

  type (cesr_phase_params_struct),save :: p
  type (universe_struct), target :: u
  type (graph_struct) graph
  

  integer data_or_ref
  logical err_flag, ok, auto_meas
  logical :: skew_quad_on(0:120)

  character(*), optional :: comment

! real

  skew_quad_on = (u%skew_quad_k1%v(:)%cu_design /= 0)
  call take_phase_measurement (p, skew_quad_on, u, 'PHASE', ok, auto_meas, comment)
  if (.not. ok) then
    err_flag = .true.
    return
  endif
  call read_phase (data_or_ref, 0, u, graph, err_flag, .false.)

end subroutine