normalise Function

public function normalise(a) result(result)

function that normalises a real vector a to make it a unit vector, where

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in), dimension(:) :: a

Return Value real(kind=dp), dimension(size(a))


Calls

proc~~normalise~~CallsGraph proc~normalise normalise proc~norm_2_real norm_2_real proc~normalise->proc~norm_2_real

Called by

proc~~normalise~~CalledByGraph proc~normalise normalise proc~eigen Eigen proc~eigen->proc~normalise proc~is_spd is_SPD proc~is_spd->proc~eigen

Source Code

    function normalise(a) result(result)

        real(dp), dimension(:), intent(in) :: a
        real(dp), dimension(size(a)) :: result

        result = a / norm_2_real(a)

    end function normalise