norm_1 Function

public function norm_1(x) result(norm)

Arguments

Type IntentOptional Attributes Name
real(kind=real64), intent(in) :: x(:)

Return Value real(kind=real64)


Source Code

    function norm_1(x) result(norm)
        real(real64), intent(in) :: x(:)
        real(real64) :: norm
#ifdef _MKL
        norm = dasum(int(size(x), int32), x, 1)
#else
        norm = sum(abs(x))
#endif
    end function norm_1