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