norm2 Function

  1. utilities.f90
  2. utilities
  3. norm2

public function norm2(in) result(res)

Arguments

TypeIntentOptionalAttributesName
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