源码

首页 » 归档 » 源码 » 如何将先前未知的数组作为Fortran中函数的…

如何将先前未知的数组作为Fortran中函数的…


Python中:

def select(x):
    y = []
    for e in x:
        if e!=0:
            y.append(e)
    return y

适用于:

x = [1,0,2,0,0,3]
select(x)
[1,2,3]

被翻译成Fortran:

function select(x,n) result(y)
    implicit none
    integer:: x(n),n,i,j,y(?)
    j = 0
    do i=1,n
        if (x(i)/=0) then
            j = j+1
            y(j) = x(i)
        endif
    enddo
end function

问题出在Fortran中:

>如何申报y(?)?
>如何声明x的预定义值
>如何避免尺寸信息

对于1如果定义为y(n),则输出将为:

x = (/1,0,2,0,0,3/)
print *,select(x,6)
1,2,3,0,0,0

这是不希望的!
!——————————-
评论:
1-所有给出的答案在本文中都很有用.特别是M.S.B和eryksun的.
2-我试图调整我的问题的想法,并用F2Py编译,但它没有成功.我已经使用GFortran对它们进行了调试,所有这些都是成功的.它可能是F2Py中的一个错误或者我不知道正确使用它的东西.我将尝试在另一篇文章中介绍此问题.

更新:
一个链接的问题可以在here找到.

(0)

本文由 投稿者 创作,文章地址:https://blog.isoyu.com/archives/ruhejiangxianqianweizhideshuzuzuoweifortranzhonghanshude.html
采用知识共享署名4.0 国际许可协议进行许可。除注明转载/出处外,均为本站原创或翻译,转载前请务必署名。最后编辑时间为:9月 26, 2019 at 11:12 下午

热评文章