Fortran77调用BDET子程序遇隐式接口错误求助

问题原因 #

你遇到的Procedure <BDET> called with an implicit interface错误，核心原因是：

• 子程序BDET使用了IMPLICIT NONE，属于有显式类型声明的子程序，现代编译器（如gfortran）在开启-Werror=implicit-interface编译选项时，要求调用这类子程序必须提供显式接口声明，否则会触发错误。
• 即便BDET在MATS之前定义，编译器处理MATS时，无法自动识别BDET的参数类型和接口细节，因此仍会判定为隐式接口。

解决方法 #

针对Fortran77的语法规范，有两种可靠的解决方式：

方法一：添加EXTERNAL声明（简易版） #

在MATS子程序的开头、IMPLICIT语句之后，添加EXTERNAL BDET，明确告知编译器BDET是外部子程序：

SUBROUTINE MATS(DFGRD0,DFGRD1)

C  Implicitly declare variables and set character length
      IMPLICIT REAL*8 (A-H,O-Z)
      CHARACTER*80 CMNAME
      REAL*8 DFGRD1(3,3)
      EXTERNAL BDET  ! 新增：声明BDET为外部子程序

      REAL*8 Ibar1, Ibar2, J
      REAL*8 F(3,3)

      CALL BDET(F, J)

      RETURN
      END SUBROUTINE MATS

方法二：添加显式INTERFACE块（推荐版） #

在MATS内部添加INTERFACE块，完整声明BDET的接口细节，这是更严谨的方式，能让编译器严格检查参数类型匹配：

SUBROUTINE MATS(DFGRD0,DFGRD1)

C  Implicitly declare variables and set character length
      IMPLICIT REAL*8 (A-H,O-Z)
      CHARACTER*80 CMNAME
      REAL*8 DFGRD1(3,3)

C  新增：显式声明BDET的接口
      INTERFACE
          SUBROUTINE BDET(mat_A, DET)
              IMPLICIT NONE
              REAL*8 DET
              REAL*8 mat_A(3,3)
          END SUBROUTINE BDET
      END INTERFACE

      REAL*8 Ibar1, Ibar2, J
      REAL*8 F(3,3)

      CALL BDET(F, J)

      RETURN
      END SUBROUTINE MATS

额外说明 #

Fortran77本身并未强制要求显式接口，但现代编译器的严格编译选项（如-Werror=implicit-interface）会将隐式接口视为错误，目的是提前发现参数类型不匹配、参数数量错误等潜在问题，避免运行时崩溃。

内容的提问来源于stack exchange，提问作者Dexter