指向real + imag部分的复杂指针，反之亦然

问题描述

与真实+ imag零件复杂

给出一个复杂的数组，我们可以按照https://stackoverflow.com/a/54819542

中的答案将指针分配给它的实部和虚部。

program main
  use iso_c_binding
  implicit none

  complex,target  :: z(2) = [(1,2),(3,4)]
  real,pointer :: re(:),im(:),buf(:)

  call c_f_pointer(c_loc(z),buf,shape=[size(z)*2])

  re(1:2) => buf(1::2)
  im(1:2) => buf(2::2)

  print *,'z',z
  print *,'re',re
  print *,'im',im
end program

将真实+ imag零件转换为复杂零件

我的问题是如何反过来做？给定两个实数数组re,im。如何分配一个复杂的指针z，其中实部由re给出，虚部由im给出？类似于

program main
  implicit none

  real,target  :: re(2)=[1,3],im(2)=[2,4]
  complex,pointer :: z(:)

  z => cmplx(re,im)    ! doesnt work as cmplx doesnt return a pointer result
end program

re,im是否在内存中并不总是连续的？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

fortran pointers