Fortran Coder

查看: 162|回复: 10

[求助] 关于FORTRAN77中COMMON的问题

[复制链接]

9

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
29 点
发表于 2020-10-8 21:54:32 | 显示全部楼层 |阅读模式
在两个子程序之间进行数据交互,且每个增量步后都需要把数据传递给另一个子程序,通过COMMON进行数据交换时,会出现数据混乱,温度传递过去的云图如下图所示,在数据传递过程中,子程序1计算的数据传递给子程序2,子程序2计算后的数据在通过common传递给子程序1中,参与子程序1中的计算。子程序1中:
      COMMON X, Y, Z, H, I, J, W, B, BA
      REAL X, Y, Z, H, I, J, W, B, BA
其中:
X,K,W,B,BA为子程序1传递给子程序2

子程序2中:
      COMMON L, G, K, O, P, Q, S, NN, BBA
      REAL L, G, K, O, P, Q, S, NN, BBA

其中:
G,O,P,Q为子程序2传递给子程序1
子程序中的相关变量已经一一对应。




子程序1传递给子程序2的温度云图

子程序1传递给子程序2的温度云图
回复

使用道具 举报

7

帖子

0

主题

0

精华

入门

F 币
70 元
贡献
43 点
发表于 2020-10-8 23:41:16 | 显示全部楼层
改用module就解决了。

9

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
29 点
 楼主| 发表于 2020-10-9 09:09:30 | 显示全部楼层
七星彩 发表于 2020-10-8 23:41
改用module就解决了。

module是90/95引入的吧 77可以用么
如果不换module 只是在common的基础上进行改动 需要怎么改呢

1553

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1516 元
贡献
991 点

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

发表于 2020-10-9 10:09:51 | 显示全部楼层
是什么让你把自己禁锢在F77的古老世界里?

9

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
29 点
 楼主| 发表于 2020-10-9 10:42:46 | 显示全部楼层
fcode 发表于 2020-10-9 10:09
是什么让你把自己禁锢在F77的古老世界里?

来自导师的压力

19

帖子

0

主题

0

精华

熟手

Vim

F 币
228 元
贡献
112 点
发表于 2020-10-9 16:37:03 | 显示全部楼层

注意区分F77和固定格式,现在应该没有只支持F77的编译器

9

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
29 点
 楼主| 发表于 2020-10-9 19:52:24 | 显示全部楼层
Transpose 发表于 2020-10-9 16:37
注意区分F77和固定格式,现在应该没有只支持F77的编译器

因为课题组都是Abaqus+Fortran77 所以就都只能一样了

1553

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1516 元
贡献
991 点

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

发表于 2020-10-10 09:02:00 | 显示全部楼层
abaqus 也可以用90啊~~注意固定格式并不代表F77。
F90也可以用固定格式~~

PS:其实abaqus有可以用自由格式~~

19

帖子

0

主题

0

精华

熟手

Vim

F 币
228 元
贡献
112 点
发表于 2020-10-10 12:07:59 | 显示全部楼层
916115735 发表于 2020-10-9 19:52
因为课题组都是Abaqus+Fortran77 所以就都只能一样了

看来你并没有区分清楚固定格式和F77。Fortran文件格式有固定格式和自由格式,语法标准有77,90,95,2003,2008。固定格式是以for,f结尾的文件(需要满足开头空6列,标签的位置,续行的要求等等),并不影响使用哪一种标准的语法,在固定格式里面也可以使用90的语法。

9

帖子

2

主题

0

精华

入门

F 币
50 元
贡献
29 点
 楼主| 发表于 2020-10-11 10:21:09 | 显示全部楼层
Transpose 发表于 2020-10-10 12:07
看来你并没有区分清楚固定格式和F77。Fortran文件格式有固定格式和自由格式,语法标准有77,90,95,2003 ...

好的 谢谢指点
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-10-28 01:26

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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