fortran中的复数

1.定义
complex :: Z ！ 定义了一个复数Z

2. 获取复数的实部，虚部

实部： REAL(Z) ！可以得到复数Z=a+ib的实部a
虚部： AIMAG(Z) !得到复数Z=a+ib的虚部b

注意：使用上面两个命令，只是提取复数的实部、虚部，而不会改变这个复数本身的数值！