Fortran 77函数返回类型不匹配[重复]

Question

我一直在尝试为大学项目学习 Fortran 77，我在 Windows 10 中编写了以下代码：

program Q_Value
real BEs(4),Masses(4)
real Q,Tthr
integer i,Nuclei(4,2),A,Z

do 10 i=1,4,1
        write(*,100)'Give the info for Nuclei:',i
 100        format(A,I1)
        write(*,*)'A='
        read(*,*)Nuclei(i,1)
        write(*,*)'Z='
        read(*,*)Nuclei(i,2)
        if((Nuclei(i,1).EQ.0).OR.(Nuclei(i,2).EQ.0))then
            BEs(i)=0.
        else
            BEs(i)=BetheWeiss(Nuclei(i,1),Nuclei(i,2))
        endif
        Masses(i)=Mass(Nuclei(i,1),Nuclei(i,2),BEs(i))
 10 continue

[...]
end
real function Mass(A,Z,BE)
    integer A,Z
    real BE,mass
c   local var's
    parameter(Mp=938.2720813,Mn=939.5654133)
c   statements
    Mass=((A-Z)*Mn)+(Z*Mp)-BE
    return 
    end

在 GNU Fortran (gfortran 8.1.0) 中编译时出现以下错误：

Masses(i)=Mass(Nuclei(i,1),Nuclei(i,2),BEs(i))
                     1
Error: Return type mismatch of function 'mass' at (1) (INTEGER(4)/REAL(4))

谁能帮我解决这个问题，因为就我而言，我的函数返回一个实数，Masses(i) 是一个实变量。

Answer 1

默认的隐式类型规则是，如果名称的第一个字母是 I 、 J 、 K 、 L 、 M 或 N ，则数据类型为整数，否则为实数。

因为你的函数是mass()，它以M开头并且没有在主程序中声明，所以它被认为是一个整数函数。这与函数声明冲突，编译器会抱怨。如果您想保留极其古老的 FORTRAN 77，您需要的是

real mass

在主程序中。

最好使用现代 Fortran 的功能，从IMPLICIT NONE 开始，将函数放入模块中或使其内部到主程序中。

您也可以在主程序中使用替代的隐式语句来修复错误消息（请参阅我的评论），但我强烈不鼓励除IMPLICIT NONE 之外的任何其他内容。

Answer 2

函数 Mass 是在主程序范围之外声明的。因此，即使在同一源代码块中明确声明了 Mass 函数，编译器也会推断出该函数的类型。为了克服这个问题，你需要在调用程序中声明一个接口块：

program Q_Value
[...]
interface Mass
  real function Mass(A,Z,BE)
  integer :: A
  integer :: Z 
  real :: BE
  end function
  end interface 

end program

real function Mass(A, Z, BE)
[..]
end function

我在https://onlinegdb.com/BkjLxcy9S 有一个使用此解决方案的原始源代码的有效修改版本。我删除了对 BetheWeiss 的调用并将其替换为任意赋值，推断它只是您在原始帖子中省略的源代码中定义的函数。那里也需要相同类型的界面。