recur1 Interface

interface
public recursive function recur1(a, b) result(u)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SP),	intent(in),		DIMENSION(:)	::	a
real(kind=SP),	intent(in),		DIMENSION(:)	::	b

Return Value real(kind=SP), DIMENSION(size(a))