c++ - 从 Fortran 返回字符串到 C++

Question

我在 C++ 中有以下函数调用:

int strLength = 20;
char* name;

getName(name, strLength);

printf("name: %s\n", name);

在 Fortran 中:

subroutine getName(name) bind (c, name='GETNAME')
use,intrinsic :: iso_c_binding
implicit none
character, intent(out) :: name

name = 'Martin'
end subroutine getName

当我执行 C++ 例程时，输出是:name: M。现在，我想这是因为 character, intent(out)::name 声明了大小为 1 的 name 变量，但是如果我将声明更改为:character(len=6), intent(out)::name 我收到此错误消息: Error: Character argument 'name' at (1) must be length 1 because procedure 'getname' is BIND (C)。我也试过这个:character(len=6,kind=c_char), intent(out)::name，有同样的错误信息。最后，我尝试了这个声明:character(c_char),dimension(6), intent(out)::name，编译但产生了这个结果:name: MMMMMM .

我的问题归结为:如何将字符串从 Fortran 返回到 C++？

Answer 1

这种基于 Fortran 函数的方法简洁明了，非常适用于尚未在 C 例程中设置(或为其分配内存)的字符串。请注意，您不需要传入字符串长度参数，也不需要使用假定大小的数组来构建/返回字符串值。¹

使用 Fortran 可分配字符串常量，因此该函数可重复用于任何字符串。

一个整数参数也被传递到 Fortran 函数以演示，例如，您可以如何指示所需的响应应该是什么。

请注意，在此示例中，“intent(out)”用于指示整数参数在传入之前不需要定义，但可以在返回之前对其进行更新。因此，您可以修改它的值并将其返回给调用程序，以便它可以用作“返回码”。

Fortran 函数

! f_string.f90
! Called from C routine as:  `myString = get_string(rc)`

function get_string(c_rc) bind(c, name='get_string')
    use, intrinsic :: iso_c_binding
    implicit none
    integer(c_int), intent(out) :: c_rc           ! <- Pass by reference; acts as return code in this example.
    type(c_ptr) :: get_string                     ! <- C_PTR to pass back to C
    character(len=:), allocatable, target, save :: fortstring   ! <- Allocatable/any length is fine

    fortstring = "Append C_NULL_CHAR to any Fortran string constant."//C_NULL_CHAR
    get_string = c_loc(fortstring)                ! <- C_LOC intrinsic gets loc of our string.
    c_rc = 1                                      ! <- Set the return code value.
end function get_string

C 程序

// c_string.c
#include <stdio.h>
#include <string.h>
#include <stdlib.h>

char *get_string(int *rc);              // <- The Fortran function signature.

int main(){
    int rc;                             // <- No value set.
    char *mynameptr;                    // <- Just a plain ol' char *, no memory allocation needed.

    mynameptr = get_string(&rc);

    printf("mynameptr=%s\n", mynameptr);
    printf("len =%d\n", strlen(mynameptr));
    printf("rc  =%d\n", rc);
    return rc;
}

编译、调用、输出:

ifort /c f_string.f90
icl c_string.c /link f_string.obj
c_string.exe
# example output: 
# mynameptr=Append C_NULL_CHAR to any Fortran string constant.
# len =48
# rc  =1

_{¹ 这也可以在没有警告的情况下干净地编译(这确实发生在 the OP's solution 没有我在其评论中建议的修改)。}