各位大佬,我在主程序main外定义了一个外部函数,然后在主程序中调用,但是出现这个错误,这是咋回事??球球了!!感谢!!
以下是部分代码:
[Fortran] 纯文本查看 复制代码 program main
implicit none
real,external::vvmat(2,2)
real dh0(2,2),v1(2)
integer n
n=2
dh0=vvmat(v1,v1,n)
end program main
function vvmat(a,b,n)
implicit none
integer n,i,j
real(kind=dp) a(n),b(n),vvmat(n,n)
do i=1,n
do j=1,n
vvmat(i,j)=a(i)*b(j)
end do
end do
end function vvmat
如果用allocate将vvmat()定义成分配数组,应该怎么定义呢?
|