foo_wrap Subroutine

private subroutine foo_wrap(n, x, f)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	n
real(kind=pr)				::	x(*)
real(kind=pr)				::	f

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	private		::	xx(n)