avevar Interface

interface
public subroutine avevar(data, ave, var)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=SP),	intent(in),		DIMENSION(:)	::	data
real(kind=SP),	intent(out)			::	ave
real(kind=SP),	intent(out)			::	var