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), 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(:) :: a
        COMPLEX(dp), DIMENSION(SIZE(a)) :: result

        result = a / norm_2_complex(a)

    END FUNCTION normalise_complexe