normalise_complexe Function

public function normalise_complexe(a) result(result)

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

Arguments

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

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


Calls

proc~~normalise_complexe~~CallsGraph proc~normalise_complexe normalise_complexe proc~norm_2_complex norm_2_complex proc~normalise_complexe->proc~norm_2_complex

Source Code

    function normalise_complexe(a) result(result)
        complex(dp), dimension(:), intent(in) :: a
        complex(dp), dimension(size(a)) :: result

        result = a / norm_2_complex(a)

    end function normalise_complexe