c - 如何将多个 Fortran 字符串传递给 C？

Question

要将 Fortran 字符串传递给 C，还传递一个隐藏参数以及变量的大小。这是一个有效的 Fortran 定义和 C(实际上是 C++/CLI)方法:

  interface
     subroutine AppendExtension(
 +      Filename)
 +      bind(C, name="AppendExtension")
     character *1, intent(inout):: Filename
    end subroutine AppendExtension
  end interface

这是调用的 C++/CLI:

extern "C" {
  void __declspec(dllexport) __cdecl AppendExtension(
                                         char * name, 
                                         int buffersize)
{
  String^ clistr = gcnew String(name);
  clistr = System::IO::Path::ChangeExtension(clistr->Trim(), gcnew String("OUT"));
  IntPtr p = Marshal::StringToHGlobalAnsi(clistr);
  char *pNewCharStr = static_cast<char*>(p.ToPointer());
  int cstrlen = strlen(pNewCharStr);
  memcpy_s(name, buffersize, pNewCharStr, cstrlen);
  if (cstrlen < buffersize)
  {
    // backfill with spaces, since a Fortran string is spaces on the right.
    memset(&name[cstrlen], ' ', buffersize-cstrlen);
  }
  Marshal::FreeHGlobal(p);
}

以上工作正常(Intel Visual Fortran 2013 SP1)。

我现在想将两个字符串传递到一个函数中。这是我所做的:

   interface
     subroutine ParseSpec(
 +      Filename, Corename)
 +      bind(C, name="ParseSpec")
     character *1, intent(inout):: Filename
     character *1, intent(inout):: Corename
    end subroutine ParseSpec
   end interface

这是实际调用:

      CHARACTER*80 FILE_SPEC
      CHARACTER*200 CORE_NAME
      CALL ParseSpec(FILE_SPEC, CORE_NAME)

这是 C++/CLI:

void __declspec(dllexport) __cdecl ParseSpec(char * name, char * corename, int namelen, int corelen)
{
  // namelen and corelen both contain the length of "name".
  ...

有两个隐藏变量。我认为它们应该用于我的两个字符串中每个字符串的缓冲区大小，一个用于“文件名”，一个用于“核心名”。但两者都包含第一个缓冲区的缓冲区大小，即 80。

我哪里出错了？

Answer 1

BIND(C) 过程的调用约定可能与 Fortran 编译器用于 Fortran 到 Fortran 调用的默认调用约定有很大不同。您不应依赖任何隐藏的 CHARACTER 长度参数(在一般情况下，您也不应期望隐藏参数的类型为 int)。鉴于 Fortran CHARACTER 变量是由该编译器在内存中布局的，我怀疑您只是运气好。

编译器不需要传递 BIND(C) 过程的长度，因为可与 C 互操作的 CHARACTER 变量的唯一长度是 1。但是，如果虚拟参数是一个数组(如果您传递字符串而不是单个字符，这就是您想要的)，则该数组的 SIZE 可能为非负数 - Fortran 序列关联规则 KIND=C_CHAR字符意味着您可以将标量与数组关联起来。

全部 - 更改 Fortran 函数声明，使字符参数为数组，并添加参数以显式传递这些数组的长度。

使用自由格式源，并假设默认字符与 C_CHAR 类型相同:

interface
  subroutine ParseSpec(  &
        Name, Name_len,  &
        Corename, Corename_len )  &
      bind(C, name="ParseSpec")
    use, intrinsic :: iso_c_binding, only: c_int, c_char
    integer(c_int), value :: Name_len
    character(kind=c_char), intent(inout) :: Name(Name_len)
    integer(c_int), value :: Corename_len
    character(kind=c_char), intent(inout):: Corename(Corename_len)
  end subroutine ParseSpec
end interface

USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_INT
CHARACTER*80 FILE_SPEC
CHARACTER*200 CORE_NAME
CALL ParseSpec(  &
    FILE_SPEC, LEN(FILE_SPEC, KIND=C_INT),  &
    CORE_NAME, LEN(CORE_NAME, KIND=C_INT) )

extern "C" void ParseSpec( 
    char* name, int name_len, 
    char* corename, int corelen );
// Operations on name[0] to name[name_len-1] and 
// corename[0] through corename[core_len-1]...