Villain 发表于 2015-4-21 13:29:11

Common语句相关请教

程序结构如下：

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是一致的么？

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

求各位指点迷津。






li913 发表于 2015-4-21 15:06:29

1、 include 'main.com' 的作用，相当于把 main.com 的所有内容，复制粘贴到该位置，跟直接在该位置写语句是一样的效果；
2、公共区内的不同数据，类型可以不同。公共区不会检查其内的数据类型，甚至可以把字符型转为整型（很多老代码这样干过）；
3、根据你的代码，xxx中的数组a和yyy中的数组a是同一个数组；
4、fortran中变量类型是编译时就确定的，不会也不可能在运行时改变，因此没有查询类型的函数。

Villain 发表于 2015-4-21 15:59:31

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

谢谢，受教了。

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

vvt 发表于 2015-4-21 16:58:09

主站 教程 栏目，有专门文章介绍common和module
http://fcode.cn/guide-92-1.html

Villain 发表于 2015-4-22 09:32:08

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

谢谢，刚看完，受益匪浅。:-handshake

百事可乐 发表于 2015-4-27 12:59:58

Kind也是编译时确定的,但 Kind 函数可以返回其值.
页: [1]
查看完整版本: Common语句相关请教