MODULE fminln
	USE nrtype; USE nrutil, ONLY : nrerror
	REAL(dp), DIMENSION(:), POINTER :: fmin_fvecp
        CONTAINS
!BL
	FUNCTION fmin(x)
	IMPLICIT NONE
	INTERFACE
		FUNCTION funcv(x)
                USE inputdata; USE nrtype
		IMPLICIT NONE
		REAL(dp), DIMENSION(:), INTENT(IN) :: x
		REAL(dp), DIMENSION(size(x)) :: funcv
		END FUNCTION funcv
	END INTERFACE
	REAL(dp), DIMENSION(:), INTENT(IN) :: x
	REAL(dp) :: fmin
	if (.not. associated(fmin_fvecp)) call &
		nrerror('fmin: problem with pointer for returned values')
	fmin_fvecp=funcv(x)
	fmin=0.5_dp*dot_product(fmin_fvecp,fmin_fvecp)
	END FUNCTION fmin
END MODULE fminln