complex_sq_mod_r32 Function

private elemental function complex_sq_mod_r32(scalar)

Arguments

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

Return Value real(kind=real32)


Contents

Source Code

complex_sq_mod_r32

Source Code

  real(real32) elemental function complex_sq_mod_r32(scalar)
    complex(real32), intent(in) :: scalar
    complex_sq_mod_r32 = real(scalar * conjg(scalar))
  end function complex_sq_mod_r32