这些代码的哪个 Fortran 标准？

Question

我很困惑fortran代码子程序中的语法如下：

subroutine X(lr_orth_response)(mesh, st, lr, omega)
  type(mesh_t),   intent(in)    :: mesh
  type(states_t), intent(in)    :: st
  type(lr_t),     intent(inout) :: lr
  R_TYPE,         intent(in)    :: omega
  
  integer :: ist, ik
  PUSH_SUB(X(lr_orth_response))
  
  do ik = st%d%kpt%start, st%d%kpt%end
    do ist = 1, st%nst
      call X(lr_orth_vector) (mesh, st, lr%X(dl_psi)(:,:, ist, ik), ist, ik, omega)
    end do
  end do
  
  POP_SUB(X(lr_orth_response))
end subroutine X(lr_orth_response)

我检查了所有 Fortran 标准，但找不到任何有用的信息！有谁知道lr_orth_response 的标签是什么？另外，通过指针访问数据在lr%X(dl_psi)(:,:, ist, ik), ist, ik, omega)这一行也有点混乱，其中lr是用户定义的新类型lr_t，但没有名为X(dl_psi)的成员函数或变量。

Answer 1

这不是纯 Fortran。它看起来像是一个必须由某个预处理器预处理的源代码，可能是 C 预处理器cpp 或其变体fpp。预处理器将使用一些宏扩展R_TYPE、PUSH_SUB、POP_SUB 和X。一些宏显然依赖于一些名为lr_orth_response 的参数。如果没有实际看到定义，我们无法说出该参数在这些宏中的作用，但我们需要您提供更多代码。它可能用于一些通用编程，但很难猜测到底是什么。