refineReal64Vec Subroutine

public recursive subroutine refineReal64Vec(x, n)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=real64),	intent(inout),		allocatable	::	x(:)
integer(kind=int32),	intent(in)			::	n