如何将 Vector 从 C++ 传递到 Fortran？

Question

我有一个 C++ 代码，我想用 Fortran 调用一些函数。我有以下功能

Vector3d CWLiDAR__get_position(CWLiDAR* This)
{
    return This->get_position();
}

Fortran 中有一个包装器：

module CWLiDAR_module
    use, intrinsic :: ISO_C_Binding
    implicit none

    private
    type CWLiDAR_type
        private
        type(C_ptr) :: object = C_NULL_ptr
    end type CWLiDAR_type

    interface    
        function C_CWLiDAR__get_position (this)  result(pos)  bind(C, name="CWLiDAR__get_position")
            import
            type(C_ptr), value                          :: this
            real(C_double), intent(out), dimension(*)   :: pos
        end function C_CWLiDAR__get_position
    end interface

    interface get_position
        module procedure CWLiDAR__get_position
    end interface get_position


    public :: get_position, CWLiDAR_type


    contains

    function CWLiDAR__get_position(this) result(pos)
        type(CWLiDAR_type), intent(in)                  :: this
        double precision, dimension(0:3)                :: pos

        pos = C_CWLiDAR__get_position(this%object)
    end function CWLiDAR__get_position

end module CWLiDAR_module

但是我收到以下编译错误：

     function C_CWLiDAR__get_position (this)  result(pos)  bind(C, name="CWL
                                                            1
Error: Assumed size array at (1) must be a dummy argument
         function C_CWLiDAR__get_position (this)  result(pos)  bind(C, name="CWL
        1
Error: Assumed size array at (1) must be a dummy argument

如何将 Vector3D 传递给 Fortran？

Answer 1

return 数组不能与 C 互操作的函数。您不能从 Fortran 调用此类函数。至少不能便携地使用 bind(C).

如果可能（但不可能！），语法必须是

   interface    
        function C_CWLiDAR__get_position (this)  result(pos)  bind(C, name="CWLiDAR__get_position")
            import
            type(C_ptr), value                          :: this
            real(C_double),  dimension(some_number)   :: pos
        end function C_CWLiDAR__get_position
    end interface

编译器抱怨 Fortran 中的函数结果既不允许 intent，也不允许 dimension(*)。这就是错误消息的原因。

如何将 Vector 从 C++ 传递到 Fortran？

How can I pass a Vector from C++ to Fortran?

c++

fortran

gfortran