关于module中public变量的疑问

feishay

最近看书，根据对module中public变量的理解写了个简单的演示程序，疑问我在程序的注释中已经说明。

我的理解是
module中public的变量在module contains中子程序可以直接使用，不需要定义
在主程序或者其它module中只要use该module也可以直接使用，不需要定义
不知道这样理解对不对，还请各位老师帮忙指点，先谢过！

[Fortran] 纯文本查看 复制代码

Module var
    Implicit None
    integer,public:: n
    integer,private:: i,j
    contains
    subroutine cal(n)

    integer n              !  n变量如果定义能顺利运行，若不定义，会出现如下错误
                                !  This name does not have a type, and must have an explicit type.   [N]
                                !  但是，n已经在module中定义为public变量了，为啥不能直接用
    j=0
    do i=1,n
        j=j+i
        write(*,*)i,n,j
    end do
    end subroutine cal
end Module var

program main
    use var
    Implicit None
    n=10
    call cal(n)

    pause
end

feishay

vvt 发表于 2017-7-10 09:31
在module中contains的子程序（或函数），他们可以访问的变量有：
1. 虚参
2. 局部变量

非常感谢 vvt 的详细解释。
关于这个优先级能否提供些出处和程序事例供学习，在彭国伦一书好像没有看到这方面的阐述。

feishay

vvt 发表于 2017-7-10 09:31
在module中contains的子程序（或函数），他们可以访问的变量有：
1. 虚参
2. 局部变量

既然n定义为public变量，那么子程序的实参和虚参是不是就可以省略了
contains中的子程序直接写  subroutine cal()
调用该子程序时写 call cal()

vvt 老师，我这样想对吗？
如果实参和虚参有好多变量，都是定义的public变量，就可以省略了。这样写会存在什么风险吗？

feishay

fcode 发表于 2017-7-10 20:58
如果你要表达的是 module 中定义的 n，那么确实不需要通过虚参来传递 n 了。

这样做的风险就是，会降低可 ...

非常感谢大神 fcode老师的详细解答，您的这段解答我这个菜鸟还需更多实践来加强理解。

我已经编写了一个关于液滴成核和凝结生长问题的程序，基本上都是f77的语法，现在在学高版本的fortran语法，改进程序。看了本站分享的视频，真是受益匪浅，在此对你们的无私奉献表示非常感谢。

在原来的程序中，定义的变量很多，实参和虚参数量也较多，需要换行，而且需要多次调用子程序。
在看到module这个新语法后觉得很好用，希望将变量在module中定义为public 变量，这样主程序和子程序用到时就不必定义，实参和虚参也可以省略，这样程序看起来估计会简洁好多。

我正在改进程序，还没有考虑在其它问题中调用现有的moduel和子程序，fcode老师的提醒慢慢体会。