Fortran Coder

标题: module中定义怎么指定大小的数组 [打印本页]

作者: 凹小马 时间: 2014-10-9 22:57
标题: module中定义怎么指定大小的数组
本帖最后由凹小马于 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
使用可分配数组。

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

作者: 凹小马 时间: 2014-10-10 09:31
谢谢，我明白你的意思了！

作者: aliouying 时间: 2014-10-10 09:44
编译毫无问题啊~

[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

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

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

作者: 凹小马 时间: 2014-10-10 10:08

aliouying 发表于 2014-10-10 09:44
编译毫无问题啊~
[Fortran] 纯文本查看 复制代码
   MODULE module_defi_array

    

[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
这样就是有问题的

作者: fcode 时间: 2014-10-10 11:18
如沙发所言

作者: aliouying 时间: 2014-10-10 17:10
顶楼上

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)