module中定义怎么指定大小的数组
本帖最后由 凹小马 于 2014-10-9 23:00 编辑提示错误如下：
An automatic object must not appear in the specification part of a module.
对应源码如下：
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：因为个人感觉程序其他部分对问题的描述作用不大，故没有贴出，请勿介意！
使用可分配数组。
module 并不能解决动态分配问题。 谢谢，我明白你的意思了！:-handshake 编译毫无问题啊~
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 aliouying 发表于 2014-10-10 09:44
编译毫无问题啊~
MODULE module_defi_array
非常感谢你这么热情地解答。
你这个就是演示的是解决这个问题的一个思路：将ncv设为一个parameter。
但正如我在问题中描述，我的情况是：这个ncv的取值是后面输入的，并不知道大小是多少。
谢谢:-$ aliouying 发表于 2014-10-10 09:44
编译毫无问题啊~
MODULE module_defi_array
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
这样就是有问题的 如沙发所言 顶楼上
页:
[1]