如何抑制 Fortran 中单个函数的未使用虚拟参数警告？

Question

我有以下 FORTRAN 代码：

FUNCTION inverse_deterministic_cdf(dist, p) RESULT(value)
    !=========== result ============
    REAL(C_DOUBLE) :: value

    !====== input parameters =======
    TYPE(deterministic), INTENT(IN) :: dist
    REAL(C_DOUBLE), INTENT(IN) :: p

    !======= subroutine body =======
    value = p ! This is only here to suppress unused dummy argument warning
    value = dist%value
END FUNCTION inverse_deterministic_cdf

在这种情况下，inverse_deterministic_cdf 是inverse_cdf 接口的实现，这就是为什么这里有未使用的p。如您所见，我有一种方法可以抑制未使用的虚拟参数，但对我来说感觉不雅。有没有人有任何关于他们如何处理这个问题的最佳实践？ （我也希望这与编译器无关。）我知道如何普遍抑制警告，但是当我有一个未使用的虚拟参数并且我没有预料到它时，我希望得到警告。 p>

编辑添加（根据要求）：

inverse_cdf 接口是这样定义的：

INTERFACE inverse_cdf
    MODULE PROCEDURE inverse_distribution_cdf, inverse_normal_cdf, inverse_lognormal_cdf, inverse_deterministic_cdf
END INTERFACE

Answer 1

我的猜测是您需要定义一个通用接口。

stuff.f90

MODULE stuff

  IMPLICIT NONE

  INTERFACE stuff_foo
    MODULE PROCEDURE foo1
    MODULE PROCEDURE foo2
  END INTERFACE stuff_foo

  CONTAINS

    FUNCTION foo1(a) RESULT(f)
    REAL :: a
    REAL :: f

      f = a

    END FUNCTION foo1

    FUNCTION foo2(a, b) RESULT(f)
    REAL :: a
    REAL :: b
    REAL :: f

      f = a + b

    END FUNCTION foo2

END MODULE stuff

main.f90

PROGRAM main

  USE stuff

  IMPLICIT NONE

  PRINT *, stuff_foo(1.0)
  PRINT *, stuff_foo(1.0, 2.0)

END PROGRAM main

Answer 2

既然你的过程在一个模块中（因此，这个过程有一个明确的接口），为什么不使用一个可选参数呢？例如。像

FUNCTION inverse_cdf(dist, p) RESULT(value) !=========== result ============ REAL(C_DOUBLE) :: value !====== input parameters ======= TYPE(deterministic), INTENT(IN) :: dist REAL(C_DOUBLE), INTENT(IN), OPTIONAL :: p !======= subroutine body ======= IF (PRESENT(p)) THEN value = dist%value * p ! Some expression using p ELSE value = dist%value END IF END FUNCTION inverse_cdf