求助大神，关于在module中使用common命令的问题

chiangtp

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

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

chiangtp

fcode 发表于 2017-8-11 19:11
摒弃一词，如果在正式场合，的确不妥。（因为它有忘恩负义的意思）
但是在口语里，我们经常会故意用它来 ...

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