如何在Fortran中计算难以手动拆分实部虚部的复变函数

不需要手动拆分实部和虚部，主流编程语言普遍内置了复数运算支持，可以直接按数学表达式编写复变函数逻辑。 #

核心说明 #

• 你整理的Fortran示例就是标准的实现方案：直接定义复数类型的虚数单位i = (0, 1)后，复变函数表达式可以完全和数学写法对齐，编译器会自动处理实部、虚部的底层运算，不需要手动做欧拉展开拆分。
• 对于更复杂的复变函数，只要对应函数（如exp、sin、log、sqrt等）支持复数入参（Fortran的基础数学函数默认都支持复数输入），都可以直接按数学公式写代码，无需手动拆分分量。
• 补充优化建议：示例中用到的Real(8)属于非标准写法，不同编译器的精度定义可能存在差异，更稳妥的写法是引入iso_fortran_env内置模块，用real64定义双精度浮点数，兼容性更好。

可用参考代码 #

program complex_func
  IMPLICIT  NONE
  
Real(8) x
complex CF

x = 0.7
call complex_example(x, CF)
write(*,*) CF

end program complex_func


Subroutine complex_example(y, my_CF)

  Implicit None
  Real(8) y
  Complex my_CF
  complex, parameter :: i = (0, 1)  ! sqrt(-1)
  my_CF = (i+1) * exp(i*y) / y
  
  !my_CF = cmplx(1, 1) * exp(cmplx(0.0, y)) / y !!THIS WORKS, TOO
  write(*,*) my_CF
  
  return
  
end Subroutine complex_example

内容的提问来源于stack exchange，提问作者ZeroTwo