Fortran Coder

查看: 6267|回复: 3
打印 上一主题 下一主题

[数值问题] common语句问题

[复制链接]

14

帖子

2

主题

0

精华

入门

F 币
73 元
贡献
42 点
跳转到指定楼层
楼主
发表于 2015-4-28 15:43:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位前辈,小弟的某一个子程序中的一句common语句中的变量均为零,同样的变量在其他子程序中的common语句中均没有问题,求各位前辈指点。
附件为程序及输入文件。

ASSEMB.FOR

1.45 KB, 下载次数: 0

BMATPS.FOR

649 Bytes, 下载次数: 0

DBE.FOR

564 Bytes, 下载次数: 0

GAUSS.FOR

417 Bytes, 下载次数: 0

GAUSSQ.FOR

751 Bytes, 下载次数: 0

JACOB2.FOR

1.36 KB, 下载次数: 0

LOADPS.FOR

3.8 KB, 下载次数: 0

MAIN PROGRAM.FOR

2.72 KB, 下载次数: 0

MODPS.FOR

1.13 KB, 下载次数: 0

SFR2.FOR

1.17 KB, 下载次数: 0

STIFPS.FOR

1.66 KB, 下载次数: 0

STREPS.FOR

1.97 KB, 下载次数: 0

DATA1.DAT

1.45 KB, 下载次数: 0

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

14

帖子

2

主题

0

精华

入门

F 币
73 元
贡献
42 点
沙发
 楼主| 发表于 2015-4-28 15:52:51 | 只看该作者
问题已解决,主程序中不经意删除了一句common,大家如果有用的话记得添加上。

2033

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1641 元
贡献
709 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

板凳
发表于 2015-4-28 17:41:26 | 只看该作者
嗯,下次如果代码太多。可以压缩成一个文件,说实在的,多亏你自己解决了。不然我还真懒得下载这么多文件。

最后,建议不要使用 common 语句。

14

帖子

2

主题

0

精华

入门

F 币
73 元
贡献
42 点
地板
 楼主| 发表于 2015-4-28 20:10:40 | 只看该作者
fcode 发表于 2015-4-28 17:41
嗯,下次如果代码太多。可以压缩成一个文件,说实在的,多亏你自己解决了。不然我还真懒得下载这么多文件。 ...

多谢,其实这个程序还有一些别的问题,估计还是得花一些时间改改
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 23:10

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表