复数的 Fortran 格式说明符

Question

我可以在 Fortran 中为复数指定格式说明符吗？我有一个简单的程序。

program complx1
implicit none
complex :: var1
var1 = (10,20)
write (*,*) var1
write (*,'(F0.0)') var1
write (*,'(F0.0,A,F0.0)') real(var1), ' + i ' , aimag(var1)
end program complx1

输出:

 (  10.0000000    ,  20.0000000    )
10.
20.
10. + i 20.

我想使用带有某种格式说明符的 a+bi 内置格式，而不是手动执行(程序的倒数第二行)。显然F0.0不起作用。有什么想法吗？

编辑:我不认为这与帖子重复:writing complex matrix in fortran ，它表示使用 REAL 和 AIMAG 函数。我已经使用过这些函数，想知道是否有内置格式可以完成这项工作。

Answer 1

对 @francescalus 现有且基本令人满意的答案的补充。格式字符串，例如

fmt = '(F0.0,SP,F0.0,"i")'

应该会显示一个复数，其实部和虚部之间的符号正确；无需摆弄字符串即可在其中获得加号。