complex_sq_mod_r128 Function

private elemental function complex_sq_mod_r128(scalar)

Arguments

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

Return Value real(kind=real128)


Contents

Source Code

complex_sq_mod_r128

Source Code

  real(real128) elemental function complex_sq_mod_r128(scalar)
    complex(real128), intent(in) :: scalar
    complex_sq_mod_r128 = real(scalar * conjg(scalar))
  end function complex_sq_mod_r128