Function that returns the Euclidean norm of a vector .
Note
Replaced original SLSQP routine with this one from [BLAS](http:
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | n | |||
real(kind=wp), | intent(in), | dimension(*) | :: | x | ||
integer, | intent(in) | :: | incx |
pure function dnrm2(n,x,incx) result(norm) import :: wp implicit none integer,intent(in) :: incx integer,intent(in) :: n real(wp),dimension(*),intent(in) :: x real(wp) :: norm end function dnrm2