Common语句相关请教

Villain

程序结构如下：

program Fcode

implicit real*8 (A-H,O-Z)
implicit integer*4(I-M)

  ……
include 'main.com'
……
(程序部分)
end

在相同路径下有main.com的一个文本格式的文件，内容如下
common /ustar/ use(ndn), usc2(ndn,ndl), us2(ndn), iss(ndn), jss(ndn,ndl)


现在问题来了：
1.common里面的数组其类别遵从于 上面的implicit real*8 (A-H,O-Z)和implicit integer*4(I-M)吗？
比如说use 是real*8类别的吗？
2.用common开辟的某个有名字的公共区，里面的数组其类型有必要相同吗？
比如说 iss和 jss这两个数组的类型是整型还是实型？


还有关于module的一个问题。
我用module定义了几个数组如下
module Mtr
implicit none
real*8,allocatable:: a(:)
……
end module Mtr

和一个allocate的子函数
subroutine alloca
implicit none
allocate(a(8))
end subroutine alloca

子程序如下：
subroutine xxx
  use Mtr
……
end subroutine


subroutine yyy
  use Mtr
……
end subroutine


在主程序中有：

protram main
  use Mtr
  implicit none
  call alloca
  call xxx  
  call yyy
  ……
end

请问在这种情况下，xxx中的数组a和yyy中的数组a是一致的么？

还有就是：有没有查询数组或者变量类别的函数？

求各位指点迷津。

Villain

li913 发表于 2015-4-21 15:06
1、 include 'main.com' 的作用，相当于把 main.com 的所有内容，复制粘贴到该位置，跟直接在该位置写语句 ...

谢谢，受教了。

对公共区中的数据还是有一点不理解。
对于公共区名的设定，也就是说计算机会根据公共区名来查找到数据，然后再根据数据存储的顺序而不是变量名把值传递给变量。由此可以猜测，计算机在一开始就必须确定数据的类型，从而知道数据的长度，从而传递数值。请问这样理解是否正确？

Villain

vvt 发表于 2015-4-21 16:58
主站 教程 栏目，有专门文章介绍common和module
http://fcode.cn/guide-92-1.html

谢谢，刚看完，受益匪浅。