进行计算结果全为0

盐酸兔子 · 发表于 2014-5-8 21:56:14

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

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

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

fcode · 发表于 2014-5-8 21:49:04

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

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

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

盐酸兔子 · 发表于 2014-5-8 21:46:33

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

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

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

fcode · 发表于 2014-5-7 19:32:30

aliouying 发表于 2014-5-7 12:21
开个贴讲下如何发帖求助吧

这个版块头部有的，但是没人看

aliouying · 发表于 2014-5-7 12:21:18

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

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

开个贴讲下如何发帖求助吧

fcode · 发表于 2014-5-6 22:46:39

盐酸兔子发表于 2014-5-6 22:44
想将第一次计算的F数组赋给Fa，第二次计算的赋给Fb。Fa=F不可以直接将数组赋值过去么 ...

可以直接赋值数组。问题是，你的 F 也没有值啊。你算 F 了么？

请注意，子程序里的 F，主程序不能直接使用。需要用实参虚参传递，或 common 共享，或 module 共享。

盐酸兔子 · 发表于 2014-5-6 22:44:24

fcode 发表于 2014-5-6 22:20
Fd(i,j)=Fa(i,j)-Fb(i,j)
write(*,*)Fd

想将第一次计算的F数组赋给Fa，第二次计算的赋给Fb。Fa=F不可以直接将数组赋值过去么

fcode · 发表于 2014-5-6 22:20:29

Fd(i,j)=Fa(i,j)-Fb(i,j)
write(*,*)Fd

Fd 是 Fa 减去 Fb，但是 Fa 和 Fb 都没有计算啊。

Fa=F 这算么？？ F 也没有计算啊。

盐酸兔子 · 发表于 2014-5-6 22:18:36

fcode 发表于 2014-5-6 22:13
真是....说一句做一句。

你让别人调试，至少要让别人能按照你的意图跑一遍啊。一开始，不提供输入文件。然 ...

sorry，我疏忽了，以后注意G1=0.2 C=30000
G2=0.4 C=15000

fcode · 发表于 2014-5-6 22:13:53

真是....说一句做一句。

你让别人调试，至少要让别人能按照你的意图跑一遍啊。一开始，不提供输入文件。然后，又不提供输入值。G1,c1 应该输入多少？

[数值问题] 进行计算结果全为0