vabs Function

public function vabs(v)

Arguments

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

Return Value real(kind=SP)

Contents

Source Code

vabs

Source Code

	FUNCTION vabs(v)
	REAL(SP), DIMENSION(:), INTENT(IN) :: v
	REAL(SP) :: vabs
	vabs=SQRT(dot_product(v,v))
	END FUNCTION vabs