您所在位置：主题：[讨论]求助：如何在fortran的module中定义一个输出为数组的函数
mclaid
[专家分：0] 发布于 2010-11-10 20:36:00
求助：如何在fortran的module中定义一个输出为数组的函数，注意，不是子程序，而是函数。
急！！！请各位知道的大侠，发个简单的代码。。。谢谢啦
我写的一个代码
MODULE M_Matrix
USE global
IMPLICIT NONE
INTERFACE
FUNCTION M_CreatMatrix(Low,Up)
IMPLICIT NONE
REAL :: Low,Up
REAL :: M_CreatMatrix(10,20)
END FUNCTION
END INTERFACE
CONTAINS
FUNCTION M_CreatMatrix(Low,Up)
REAL :: Low,Up
REAL :: k=0.0
INTEGER i,j
DO i=1,M_DL
DO j=1,M_DR
M_CreatMatrix(j,i)=k+(Up-Low)/(REAL(M_DR)*REAL(M_DL))
k=k+1.0
END DO
END DO
RETURN
END FUNCTION
END MODULE
报错：
F:\新建文件夹\my study\实验室\fortran学习\Ex1\Ex1\M_MATRIX.F90(16): error #6404: This name does not have a type, and must have an explicit type. [M_CREATMATRIX]
F:\新建文件夹\my study\实验室\fortran学习\Ex1\Ex1\M_MATRIX.F90(16): error #6645: The name of the module procedure conflicts with a name in the encompassing scoping unit. [M_CREATMATRIX]
compilation aborted for F:\新建文件夹\my study\实验室\fortran学习\Ex1\Ex1\M_MATRIX.F90 (code 1)
急！！！请各位知道的大侠，发个简单的代码。。。谢谢啦
我写的一个代码
MODULE M_Matrix
USE global
IMPLICIT NONE
INTERFACE
FUNCTION M_CreatMatrix(Low,Up)
IMPLICIT NONE
REAL :: Low,Up
REAL :: M_CreatMatrix(10,20)
END FUNCTION
END INTERFACE
CONTAINS
FUNCTION M_CreatMatrix(Low,Up)
REAL :: Low,Up
REAL :: k=0.0
INTEGER i,j
DO i=1,M_DL
DO j=1,M_DR
M_CreatMatrix(j,i)=k+(Up-Low)/(REAL(M_DR)*REAL(M_DL))
k=k+1.0
END DO
END DO
RETURN
END FUNCTION
END MODULE
报错：
F:\新建文件夹\my study\实验室\fortran学习\Ex1\Ex1\M_MATRIX.F90(16): error #6404: This name does not have a type, and must have an explicit type. [M_CREATMATRIX]
F:\新建文件夹\my study\实验室\fortran学习\Ex1\Ex1\M_MATRIX.F90(16): error #6645: The name of the module procedure conflicts with a name in the encompassing scoping unit. [M_CREATMATRIX]
compilation aborted for F:\新建文件夹\my study\实验室\fortran学习\Ex1\Ex1\M_MATRIX.F90 (code 1)
