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

aliouying

编译毫无问题啊~

[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

aliouying

顶楼上