函数“数组”没有隐式类型

Question

这是我的 Fortran 90 代码：

program test
implicit none

integer*4 nxProjPad, cf, numViews, cc, index, indRad, iv, i
real*4 v4, v5, SS
nxProjPad=185
numViews=180
v4 = 0.
v5 = 0.
SS = 0.

cf = NINT(nxProjPad/2.)

do  iv = 1, numViews

do i = 1, nxProjPad

v4 = v4 + array(index)

v5 = v5 + array(indRad)
SS = SS + ABS(array(index))

indRad = indRad + 1

index = index + 1

enddo

enddo


end

我总是得到错误：

test.f90:19:15:

 v4 = v4 + array(index)
               1
Error: Function ‘array’ at (1) has no IMPLICIT type
test.f90:21:15:

 v5 = v5 + array(indRad)
               1
Error: Function ‘array’ at (1) has no IMPLICIT type
test.f90:23:14:

 SS = SS + ABS(array(index))
              1
Error: Function ‘array’ at (1) has no IMPLICIT type

我已经搜索并看到了类似的答案，但仍然无法解决我的问题。欢迎提出任何建议，并提前致谢！

Answer 1

您的问题似乎是 array 根本没有声明。它没有隐式类型，因为您明智地选择使用 IMPLICIT NONE 禁用隐式类型。

使用array(<int>) 调用的项目有两种可能的情况：它可能是一个数组或一个函数。编译器无法得出正确的结论，怀疑您可能在某个地方想要声明一个函数：

function array(i)
    implicit none
    integer :: i
    <some type> :: array
    <some code that calculates array>
end function array

但是因为它没有找到任何那种代码，它告诉你你还没有实现它，你也没有声明它。

我怀疑，因为我不仅了解 Fortran，而且在某种程度上也了解英语，因此它更有可能是 REAL*4 类型的数组。

所以试试这个：

program test
    implicit none

    integer*4 nxProjPad, cf, numViews, cc, index, indRad, iv, i 
    real*4 v4, v5, SS

    ! Create an allocatable array (allocatable, because we only know
    ! the size once nxProjPad and numViews have been set.)
    real*4, dimension(:), allocatable :: array

    nxProjPad=185
    numViews=180

    ! both indRad and index get incremented for each
    ! iteration of either loop, so the maximum array index
    ! is the product of numViews and nxProjPad
    allocate(array(numViews*nxProjPad))

    v4 = 0.
    v5 = 0.
    SS = 0.

    ! These weren't originally initialised before their first use.
    ! Correct that
    indRad = 1
    index = 1

    cf = NINT(nxProjPad/2.)

    do  iv = 1, numViews
        do i = 1, nxProjPad
            v4 = v4 + array(index)

            v5 = v5 + array(indRad)
            SS = SS + ABS(array(index))

            indRad = indRad + 1

            index = index + 1
        enddo
    enddo

    ! Properly deallocate the array again
    deallocate(array)
end program test

当然我仍然不知道它应该做什么，而且还有一些奇怪的功能。 （例如，index 和 indRad 之间是否应该存在差异，因为目前它们始终是相同的值。）