get_values_from_X Subroutine

public subroutine get_values_from_X(z0, zi, Xvars, x, y, w, P, alpha, beta)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	z0(:)
real(kind=pr),	intent(in)			::	zi(:)
real(kind=pr),	intent(in)			::	Xvars(size(z0)*2+3)
real(kind=pr),	intent(out)			::	x(size(z0))
real(kind=pr),	intent(out)			::	y(size(z0))
real(kind=pr),	intent(out)			::	w(size(z0))
real(kind=pr),	intent(out)			::	P
real(kind=pr),	intent(out)			::	alpha
real(kind=pr),	intent(out)			::	beta

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	private		::	Kx((Size(Xvars)-3)/2)
real(kind=pr),	private		::	Ky((Size(Xvars)-3)/2)
integer,	private		::	nc
real(kind=pr),	private		::	z(size(z0))