Question

我有一个Fortran派生类型T，它包含（许多）不同等级和类型的数据数组。这些数组隐藏在一个复杂的数据结构中，我希望有一个getter函数，它可以做到以下几点：

a => T%get(data_id)

其中“a”是给定类型的数组指针，data_id是一个整数，用于查找数据结构内的数据。我通过在通用名称下重载许多“get_thistype（）”函数来做到这一点。

TYPE T
   PROCEDURE :: get_real
   PROCEDURE :: get_integer
   GENERIC   :: get => get_real,get_integer
END TYPE

如果get_thistype（）例程是子例程，则它有效，但如果它们被写为函数则不行。这意味着我的代码如下：

CALL T%get(a,data_id)

我发现它的可读性要低得多。有没有办法重载具有相同参数列表但返回类型不同的函数？或者我必须使用子程序吗？

Answer 1

当一个（指针）赋值语句在fortran中执行时，右手边总是在赋值发生之前被完全评估。这种情况独立于左侧发生，因此LHS绝对无法影响RHS评估的结果。这就是语言设计的方式。

Answer 2

我刚刚看到这篇文章，所以为了任何人的利益，将来会看到这个：

如果我正确理解了这个问题，你可以通过重载赋值运算符来实现这个目的。例如：

文件X.f90：

MODULE XModule

TYPE :: X
   INTEGER, DIMENSION(:), POINTER :: IntArray
   REAL,    DIMENSION(:), POINTER :: RealArray
END TYPE

INTERFACE ASSIGNMENT (=)
   MODULE PROCEDURE PointToInt
   MODULE PROCEDURE PointToReal
END INTERFACE

CONTAINS

SUBROUTINE PointToInt(Ip, V)
   INTEGER, POINTER, DIMENSION(:), INTENT(OUT) :: Ip
   TYPE(X), INTENT(IN) :: V
   Ip => V%IntArray
END SUBROUTINE PointToInt

SUBROUTINE PointToReal(Rp, V)
   REAL, POINTER, DIMENSION(:), INTENT(OUT) :: Rp
   TYPE(X), INTENT(IN) :: V
   Rp => V%RealArray
END SUBROUTINE PointToReal

END MODULE

测试驱动程序文件Driver.f90：

PROGRAM Driver
USE XModule
TYPE(X) :: Var
INTEGER, DIMENSION(:), POINTER :: I
REAL, DIMENSION(:), POINTER :: R

ALLOCATE(Var%IntArray(2))
ALLOCATE(Var%RealArray(3))

Var%IntArray = [1, 2]
Var%RealArray = [1., 2., 3.]

I = Var
PRINT*, I

R = Var
PRINT*, R

END PROGRAM

输出：

           1           2
   1.000000       2.000000       3.000000

希望这有帮助。

Fortran 2003中的类型绑定函数重载

2 个答案: