fortran module问题请教,谢谢!!!

xjw0413

module中可以对变量赋值吗，可以的话怎样赋值，下边一段代码编译出错
module global
integer:: r
r=100
end module
Error: This statement must not appear in the specification part of a module [r]
还有：下边的定义数组的形式可以吗？
subroutine eample(r,y)
integer,intent(in):: r
real,intent(out):: y(r)
....
end subroutine
其中r是传入的参数，我照上述编是通不过的
Error: A specification expression object must be a dummy argument, a COMMON block object, or an object accessible through host or use association   [R]
或者是：Error: prPromoteSym : Illegal KIND & CLASS mix   [R1]
这该如何解决？必须用变大小的数组定义吗？就是必须用allocate吗？
还有请高手看看上面几个具体的错误是什么原因，那几个错误指的是什么意思，请指导！
谢谢，不甚感激

xnjdlhy

新手路过，这个还真没碰到过

gallon

可以这样写，都在一个MODULE里定义，子函数也调用全局变量
MODULE GLOBAL
IMPLICIT NONE
SAVE
INTEGER,PARAMETER::IX=49
real y(ix)
……
END MODULE GLOBAL

子函数
SUBROUTINE GEOM
USE GLOBAL
……
end