norm2 Function

public function norm2(in) result(res)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=Float64),			dimension(:)	::	in

Return Value real(kind=Float64)

Contents

Source Code

norm2

Source Code

function norm2( in ) result ( res )
  implicit none
  real(Float64),dimension(:) :: in
  real(Float64) :: res
  res = sqrt(sum( in(:)**2 ))
end function norm2