如何使用C_PTR具有一个具有不同类型参数的ForTran函数？

Question

我阅读了 最佳实践 。

我想在中使用类型（C_PTR）指针中描述的内容中使用某些内容，

但我有问题。我概述了我尝试做的事情。我希望这足以理解。否则，让我知道，我将发布一个完整的例子。

我有两种类型，我将一种或另一种类型称为同一子例程。我子例程的第一个参数是一个整数，指示哪种是第二个参数的类型（type1_t或type2_t），

type type1_t
    real :: a, b
    integer :: c
end type1_t

type type2_t
    real :: a,e
    integer :: b,c,d
end type2_t

type(type1_t) :: type1 
! ... init of type1
type(type2_t) :: type2 
! ... init of type2_t

call myfoo(1,c_loc(type_1))
call myfoo(2,c_loc(type_2))

但是现在，我对MyFoo中的声明有问题，因为声明必须在说明之前在Fortran中完成。

我知道以下代码不起作用：

subroutine myfoo(i, params) 
  integer, intent(in) :: i
  type(c_ptr), intent(in) :: params
  
  if (i == 1) then 
    type(type1_t), pointer :: pars
  elseif (i ==2) then
    type(type2_t), pointer :: pars
  endif
  
  call c_f_pointer(params, pars)
  ! do some stuff with pars (there are common parts of code either the dummy args is type_1 or type_2). For example, the line above.

end subroutine myfoo

如果我使用块构造，我会遇到问题，因为该变量在块末尾消失。

如何使用C_PTR解决它？

Answer 1

实现此目的的一种简单方法是将特定于类型的代码放在模块中的两个单独的例程中，并使用接口绑定它们，因此编译器将根据输入上提供的变量的类型选择正确的子例程：

module blabla
  private

  public :: foo

  interface foo
     module procedure foo1
     module procedure foo2
  end interface 

  contains

  subroutine foo1(params)
    type(t1) :: params
    ! Do cool stuff
  end subroutine foo1
  subroutine foo2(params)
    type(t2) :: params
    ! Do type-2 cool stuff here

  end subroutine foo2

end module blabla