module中定义怎么指定大小的数组

凹小马 · 发表于 2014-10-9 22:57:40

本帖最后由凹小马于 2014-10-9 23:00 编辑

提示错误如下：

An automatic object must not appear in the specification part of a module.
对应源码如下：

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

MODULE module_slvr

!*****************************************************************************80
!
   USE module_defi_array, only : ncv
   IMPLICIT NONE

   REAL(kind=DBL), DIMENSION(2,2,ncv) :: ma

CONTAINS

我在查找到的错误分析如下：

由于编译器编译的时候size的大小是未知的，所以就会报出以上错误，可以将数组大小的变量定义为parameter即可
……
这与C++中其实是一样的

但是，我的情况中，ncv这个值没法定义为parameter。请问，我怎么才能实现在这个module里面，对ma进行数据共享？
PS：因为个人感觉程序其他部分对问题的描述作用不大，故没有贴出，请勿介意！

楚香饭 · 发表于 2014-10-10 08:09:46

使用可分配数组。

module 并不能解决动态分配问题。

凹小马 · 发表于 2014-10-10 09:31:52

谢谢，我明白你的意思了！

aliouying · 发表于 2014-10-10 09:44:45

编译毫无问题啊~

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

   MODULE module_defi_array
    
    Integer,Parameter   :: ncv=2

    End MODULE module_defi_array
!*****************************************************************************!
    MODULE module_slvr
    USE module_defi_array, only : ncv
    IMPLICIT NONE
    
    REAL(kind=8), DIMENSION(2,2,ncv) :: ma
    
    CONTAINS
    End MODULE module_slvr
!*****************************************************************************!
    Program www_fcode_cn
    Use module_slvr 
    Implicit None
    
    End Program www_fcode_cn

凹小马 · 发表于 2014-10-10 09:54:02

aliouying 发表于 2014-10-10 09:44
编译毫无问题啊~
[mw_shl_code=fortran,true] MODULE module_defi_array

非常感谢你这么热情地解答。
你这个就是演示的是解决这个问题的一个思路：将ncv设为一个parameter。
但正如我在问题中描述，我的情况是：这个ncv的取值是后面输入的，并不知道大小是多少。
谢谢

凹小马 · 发表于 2014-10-10 10:08:26

aliouying 发表于 2014-10-10 09:44
编译毫无问题啊~

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

   MODULE module_defi_array
    
[/quote]

[mw_shl_code=fortran,true]   MODULE module_defi_array
    
    Integer   :: ncv=2 !此处没有声明为有名常数

    End MODULE module_defi_array
!*****************************************************************************!
    MODULE module_slvr
    USE module_defi_array, only : ncv
    IMPLICIT NONE
    
    REAL(kind=8), DIMENSION(2,2,ncv) :: ma
    
    CONTAINS
    End MODULE module_slvr
!*****************************************************************************!
    Program www_fcode_cn
    Use module_slvr 
    Implicit None
    
    End Program www_fcode_cn

这样就是有问题的