c++ - 将字符串从Fortran传递到C++

This question already has answers here:

passing char arrays from c++ to fortran

(3个答案)


3年前关闭。




我遵循以下示例(http://fortranwiki.org/fortran/show/Fortran+and+Cpp+objects)使C++代码适应Fortran，首先，我尝试学习Fortran并在Fortran和C++之间建立连接。

我修改了要将Fortran字符串传递给C++的代码

#include <iostream>
#include <string>

using namespace std;
class CWLiDAR {
    string name;

public:
    CWLiDAR(string);
};


CWLiDAR::CWLiDAR(string name)
{
    this->name = name;
}


/*
*/

/* C wrapper interfaces to C++ routines */
#ifdef __cplusplus
extern "C" {
#endif
CWLiDAR* CWLiDAR__new(string name)
{
    return new CWLiDAR(name);
}
void CWLiDAR__delete(CWLiDAR* This)
{
    delete This;
}
#ifdef __cplusplus
}
#endif

Fortran包装器

module CWLiDAR_module
  use, intrinsic :: ISO_C_Binding!, only: C_int, C_ptr, C_NULL_ptr
  implicit none
  private
  type CWLiDAR_type
    private
    type(C_ptr) :: object = C_NULL_ptr
  end type CWLiDAR_type
  interface
    function C_CWLiDAR__new (name, name_len) result(this) bind(C, name = "CWLiDAR__new")
      import
      type(C_ptr) :: this
      character(name_len, kind=C_CHAR), intent(IN) :: name
      integer :: name_len
    end function C_CWLiDAR__new
    subroutine C_CWLiDAR__delete (this) bind(C, name = "CWLiDAR__delete")
      import
      type(C_ptr), value :: this
    end subroutine C_CWLiDAR__delete
  end interface
  interface new
    module procedure CWLiDAR__new
  end interface new
  interface delete
    module procedure CWLiDAR__delete
  end interface delete
  public :: new, delete, CWLiDAR_type
contains


! Fortran wrapper routines to interface C wrappers
  subroutine CWLiDAR__new(this, name, name_len)
    type(CWLiDAR_type), intent(out) :: this
    character(*) :: name
    integer :: name_len
    this%object = C_CWLiDAR__new(name, name_len)
  end subroutine CWLiDAR__new
  subroutine CWLiDAR__delete(this)
    type(CWLiDAR_type), intent(inout) :: this
    call C_CWLiDAR__delete(this%object)
    this%object = C_NULL_ptr
  end subroutine CWLiDAR__delete
end module CWLiDAR_module

主要的

program main
  use cwlidar_module
  type(CWLiDAR_type) :: lidar
  call new(lidar, "Test", 4)

  call delete(lidar)
end program main

如何修改Fortran包装器，以将字符串从Fortran传递到C++？

最佳答案

首先，您不能在Fortran和C之间的接口(interface)处使用std::string。std::string是某些C++实现定义的对象，它不能保证与Fortran互操作的内存布局。

您必须改用纯C字符串。因此，CVLiDAR__new()必须接受char*类型的参数，并且fortran接口(interface)必须将此参数声明为

character(kind = c_char) :: name(*)

Fortran包装程序例程必须使用一些Fortran character伪参数，然后继续将其内容复制到适当分配的character(kind = c_char)数组中，然后将其传递给C函数。

此时，您的C接口(interface)函数可能会继续将其再次转换为C++ std::string。这种转换是可选的，因为C++可以像处理C一样处理C字符串。不过，添加转换将使其余代码更加纯净的C++。

在Fortran端组装时，不要忘记用零字符正确地终止C字符串!

这些参数转换确实是PITA，并且如果您需要从Fortran调用任何数量的接口(interface)函数，建议编写一个生成Fortran包装器的生成器脚本是可取的。可以在气候数据接口(interface)库(CDI，源代码位于https://code.mpimet.mpg.de/projects/cdi/files)的cdi-1.8.1/interfaces/f2003/bindGen.rb文件中找到此类脚本的示例，其输出发布在cdi-1.8.1/src/mo_cdi.f90下的同一tar-ball中。该脚本可能完全适合您的情况，但对于CDI来说效果很好，其输出可能会激发/帮助您获得正确进行转换的想法。

关于c++ - 将字符串从Fortran传递到C++ ，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/44780654/