norm2_func Function

public pure function norm2_func(x) result(xmag)

Use intrinsic norm2(x) for computing the vector norm.

Arguments

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

Return Value real(kind=wp)


Source Code

    pure function norm2_func(x) result(xmag)

    implicit none

    real(wp),dimension(:),intent(in) :: x
    real(wp) :: xmag

    xmag = norm2(x)

    end function norm2_func