Question

我用fortran90 写程序时出现了这样的问题，谁能告诉我是怎么回事啊？

代码如下：
module global
implicit none
integer a, b
common a,b
end module

program example
use global
implicit none
a=1
b=2
call sub(a, b)
end program

subroutine sub(a, b)
use global
implicit none
write(*,*) a+b
return
end subroutine

编译时出现了这样的问题：
error #6405: The same named entity from different modules and/or program units cannot be referenced. [A]
error #6405: The same named entity from different modules and/or program units cannot be referenced. [B]
error #6404: This name does not have a type, and must have an explicit type. [A]
error #6404: This name does not have a type, and must have an explicit type. [B]

Answer 1

这个是在fortran95程序设计里的p205的例题，这个问题我也遇到过，研究了一下，我认为是：module里定义的值，不能通过子程序形参的形式调用。一旦调用，就会出现这个错误。如果是在大程序里遇到这样的问题，就可以像例子一样，call sub()的形式。如果遇到合理的解释，还望大家共同讨论

追问

你说的有道理，为什么将module中定义的变量不能作为形参传递呢？
我是刚学fortran，希望各位高手指点迷津！！！

Answer 2

common公共变量的 数据类型声明语句 和 common声明语句，在凡是使用到它的主程序或者子程序（模块）中都必须再写一遍，谁用到它谁就得写。
.
.

另外common用法是已经淘汰的低效、不安全写法，你都已经用module这种现代结构了就该用module的办法，何必混进落后的common？ 事实上你直接在主程序里面（implicit none的下一行）写use global 就行了，根本不需要common