调用子程序为什么每一次得出的结果都不一样呢

gps99

sqs 发表于 2022-4-3 13:47
好的，那为什么我每次执行a.out的时候输出的结果都不一致呢

子程序没有输出位。主程序中的 f等于没有赋值，每次运行 print的是个随机地址的初始值

gps99

增加输出位 是最直接的办法，上面的大咖已经给出代码。

另外，还有个老办法加common公共块。数据块内地址传递，和变量名无关。小程序可以用，数据多的话用module数据块代替

[Fortran] 纯文本查看 复制代码

program para
        implicit none
        real(8)::f
        common /d1/ f
        call func(1.0d0,1.0d0)
        print*,f
end program para

subroutine func(x,y)
        implicit none
        real(8),intent(in) :: x, y
        real(8) :: f
        common /d1/ f
        f = 2*x+3*y
end subroutine func