maxval_func Function

public pure function maxval_func(x) result(xmag)

Use maxval(abs(x)) for computing the vector norm.

Arguments

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

Return Value real(kind=wp)

Source Code

    pure function maxval_func(x) result(xmag)

    implicit none

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

    xmag = maxval(abs(x))

    end function maxval_func