to_phase_velocity Function

public function to_phase_velocity(Center_x, Circle_x, FFT_SIZE, radius, sampling_Hz, debug, max_c, max_itr, wave_type, num_smoothing) result(c)

$OMP parallel do default(shared) private(itr,ctr,residual,k_i,tr0)

$OMP end parallel do

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(in)			::	Center_x(:)
real(kind=real64),	intent(in)			::	Circle_x(:,:)
integer(kind=int32),	intent(in)			::	FFT_SIZE
real(kind=real64),	intent(in)			::	radius
integer(kind=int32),	intent(in)			::	sampling_Hz
logical,	intent(in),	optional		::	debug
real(kind=real64),	intent(in)			::	max_c
integer(kind=int32),	intent(in)			::	max_itr
character(len=*),	intent(in),	optional		::	wave_type
integer(kind=int32),	intent(in)			::	num_smoothing

Return Value real(kind=real64), allocatable, (:)