进行计算结果全为0

盐酸兔子

fcode 发表于 2014-5-6 22:46
可以直接赋值数组。问题是，你的 F 也没有值啊。你算 F 了么？

请注意，子程序里的 F，主程序不能直接使 ...

我在两个函数里使用common 但是总出现Error: The dimensions of this array have been defined more than once. 具体使用common怎么修改呢。谢谢版主

fcode

绝大多数错误，只要自己翻译一下错误提示就可以了。

错误就是，数组的维度定义了超过一次。一般数组只定义一次既可。

另外，不建议用 common，强烈建议放弃使用它

盐酸兔子

fcode 发表于 2014-5-8 21:49
绝大多数错误，只要自己翻译一下错误提示就可以了。

错误就是，数组的维度定义了超过一次。一般数组只定义 ...

使用实参虚参传递呢，怎么修改，麻烦给我大概说说，是使用function么实行传递么

fcode

实参，虚参传递，是基本的函数调用。

就像你的 sub1 一样，把 FF 和 c 传递过去。

subroutine 和 function 本质是同一个东西，只是形式不同而已。

盐酸兔子

fcode 发表于 2014-5-8 22:00
实参，虚参传递，是基本的函数调用。

就像你的 sub1 一样，把 FF 和 c 传递过去。

但是要是想将子程序的返还到主程序呢，怎么传递

fcode

一样，没有区别。

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

x=3.0
call sub( x )
write(*,*) x

subroutine sub(y)
  y = 4.0
end subroutine sub

就会输出 4.0

盐酸兔子

fcode 发表于 2014-5-8 22:09
一样，没有区别。
[mw_shl_code=fortran,true]
x=3.0

针对我的程序这样修改
call sub2（F0,G1,Fk,c1,F）
就可以实现子程序和主程序的传递了吧

fcode

子程序里或许需要对 F 进行一些修改。

实参虚参传递，是一个最基本的使用，你必须学会。（实际上，sub1里面你已经在使用了，为什么换一个sub2地方就不懂了呢？）

自己要去多写，多练。遇到问题了再问。不要一上来直接就问，这样不好，大大的不好。

盐酸兔子

fcode 发表于 2014-5-8 22:23
子程序里或许需要对 F 进行一些修改。

实参虚参传递，是一个最基本的使用，你必须学会。（实际上，sub1里 ...

嗯 知道了 一定勤加练习 谢谢版主

盐酸兔子

fcode 发表于 2014-5-8 22:23
子程序里或许需要对 F 进行一些修改。

实参虚参传递，是一个最基本的使用，你必须学会。（实际上，sub1里 ...

又修改了好多次，发现程序的子程序不运行，是什么原因呢？