Fortran Coder

查看: 52|回复: 6

[Module] 求助大神,关于在module中使用common命令的问题

[复制链接]

3

帖子

1

主题

0

精华

新人

F 币
27 元
贡献
17 点

规矩勋章

发表于 2017-8-10 21:54:28 | 显示全部楼层 |阅读模式
希望大神,帮忙解惑,谢谢了。具体问题是:
[Fortran] 纯文本查看 复制代码
          module modul
                      IMPLICIT REAL*8(A-H,O-Z),INTEGER(I-N) 
                      PARAMETER(MI=201,MJ=51)  
                      COMMON /CONST1/G,PI,CN,OMIGA,PIR180,DEN,DENAIR,DENSED,CW,
                     1         VIS,oi,tk,rj,CC0,DRAWy,alph3,w3,sk,qm,d50
                end module modul

这种情况,应该以那个命令为准呢。就是common里的变量,在外面引用时,是按照common的位置
对应,还是按照module的变量名对应呢。
问题不知道描述的够不够清楚,自己学Fortran算是初级阶段,如果不够清楚,希望大家原谅。可以在问我
真切的希望得到答案,也希望在和大家讨论中成长!!!


回复

使用道具 举报

1096

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
847 元
贡献
746 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-8-10 22:30:18 | 显示全部楼层
这种问题没有丝毫意义。
因为一旦用了 module,那么 common 就该被摒弃了。没意思。

以下是较真:
如果使用这些变量的程序单元,通过 common 语句修饰这些变量。则按照位置对应。
如果通过 use modul(并且没有common的话),则按照变量名对应。
如果即写了 use modul,又写了 common,则会报错(重复定义)。
最后强调:请摒弃 common

3

帖子

1

主题

0

精华

新人

F 币
27 元
贡献
17 点

规矩勋章

 楼主| 发表于 2017-8-11 09:23:39 | 显示全部楼层
就是说,module和common谁起作用是按照是use module还是common来决定的。因为是在看别人以前写的程序,所以在这个地方有些疑惑。谢谢fcode的大神

45

帖子

2

主题

0

精华

版主

F 币
267 元
贡献
170 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

发表于 2017-8-11 16:43:40 | 显示全部楼层
fcode 发表于 2017-8-10 22:30
这种问题没有丝毫意义。
因为一旦用了 module,那么 common 就该被摒弃了。没意思。

COMMON: "block"方式的資料共享, powerful/flexible, 當然也dangerous

[Fortran] 纯文本查看 复制代码
SUBROUTINE sub1(...)
  REAL :: A(10) ! all data in one "block" (打包)
  COMMON /ABC/ A
  SAVE /ABC/

SUBROUTINE sub2(...)       !---> can be different numeric-type(+kind)/structute
  COMPLEX :: z             ! (a) complex = two reals
  INTEGER :: i             ! (b) easy to get binary representation of a real
  REAL :: b(2,2), c(2), pi ! (c) flexible data structure
  COMMON /ABC/ z, i, b, c, pi
  SAVE /ABC/


(a)與(b) TRANSFER可為之但高下立判, (c)?

舉雙手贊成:能用 CASE/Contour-Do/WHERE/Assumed_Shape/MODULE 為之的,
就不要用 IF/General-DO/FORALL/Explicit-Shape-Adjustable-Size/COMMON

但是, "摒弃", 個人以為太激烈了點

1096

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
847 元
贡献
746 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-8-11 19:07:26 | 显示全部楼层
一枚硬币 发表于 2017-8-11 09:23
就是说,module和common谁起作用是按照是use module还是common来决定的。因为是在看别人以前写的程序,所以 ...

不,他们都起作用了。

此时,可以认为这些变量,如 G,具有三个名字:
G (module内部的名字,仅在Module内部可以访问)
modul::G  (module 对外的名字)
/CONST1/G  (Common的名字)

虽然 G 有三个名字,但其实只有一块内存。

在使用它的程序单元中,第一个名字不能直接访问(因为是module内部的)
通过第二个名字访问,则按照 Module 的变量名对应规则。
通过第三个名字访问,则按照 Common 的字节对应规则。

不能同时通过第二和第三个名字访问。(编译器会认为重名)

1096

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
847 元
贡献
746 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2017-8-11 19:11:06 | 显示全部楼层
chiangtp 发表于 2017-8-11 16:43
COMMON: "block"方式的資料共享, powerful/flexible, 當然也dangerous

[mw_shl_code=fortran,true]SUBRO ...

摒弃一词,如果在正式场合,的确不妥。(因为它有忘恩负义的意思)
但是在口语里,我们经常会故意用它来形容应该“果断的”放弃。

45

帖子

2

主题

0

精华

版主

F 币
267 元
贡献
170 点

贡献勋章管理勋章帅哥勋章元老勋章星光勋章规矩勋章

发表于 2017-8-11 20:28:27 | 显示全部楼层
fcode 发表于 2017-8-11 19:11
摒弃一词,如果在正式场合,的确不妥。(因为它有忘恩负义的意思)
但是在口语里,我们经常会故意用它来 ...

言重了, 無關"忘恩负义"
初學者, 單純的情況下, 能用MODULE當然就不用COMMON (別問為什麼, 就當Fortran沒COMMON語法)
但是對一定程度的程式員, 他應該要知道"為什麼", 以及COMMON能為MODULE所不及
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2017-8-24 05:27

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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