dnrm2 Function

public function dnrm2(n, x, incx)

The euclidean norm of a vector sqrt ( X' * X ).

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: n
real(kind=wp), intent(in) :: x(*)
integer(kind=ip), intent(in) :: incx

Return Value real(kind=wp)


Source Code

      function dnrm2 (n,dx,incx)
         implicit none
         integer, intent(in)          :: n,incx
         double precision, intent(in) :: dx(*)
         double precision             :: dnrm2
      end function dnrm2