get_values_from_X Subroutine

public subroutine get_values_from_X(z, Xvars, x, y, w, P, T, beta)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	z(:)
real(kind=pr),	intent(in)			::	Xvars(size(z)*2+3)
real(kind=pr),	intent(out)			::	x(size(z))
real(kind=pr),	intent(out)			::	y(size(z))
real(kind=pr),	intent(out)			::	w(size(z))
real(kind=pr),	intent(out)			::	P
real(kind=pr),	intent(out)			::	T
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