complex_sq_mod_r64 Function

private elemental function complex_sq_mod_r64(scalar)

Arguments

Type IntentOptional Attributes Name
complex(kind=real64), intent(in) :: scalar

Return Value real(kind=real64)


Contents

Source Code

complex_sq_mod_r64

Source Code

  real(real64) elemental function complex_sq_mod_r64(scalar)
    complex(real64), intent(in) :: scalar
    complex_sq_mod_r64 = real(scalar * conjg(scalar))
  end function complex_sq_mod_r64