如何解决指向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 举报,一经查实,本站将立刻删除。