Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in) | :: | u(:) |
function euclidean_norm_real(u) result(euclidean_norm)
real(dp), intent(in) :: u(:)
real(dp) :: euclidean_norm
euclidean_norm = sqrt(euclidean_norm_square(u))
end function euclidean_norm_real