应该如何将多个Fortran字符串传递给C？
要将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(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); }
以上工作正常（英特尔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。
我哪里错了？
BIND（C）过程的调用约定可能与Fortran编译器用于Fortran到Fortran调用的默认调用约定完全不同。 您不应该依赖任何隐藏的CHARACTER长度参数（在一般情况下，您也不应该期望隐藏的参数是int类型）。 考虑到Fortran CHARACTER变量由编译器在内存中布局的方式，我怀疑你很幸运。
编译器不需要为BIND（C）过程传递长度，因为与C可互操作的CHARACTER变量的唯一长度是1。 但是，如果伪参数是一个数组（如果你传递一个字符串而不是一个单独的字符，那就是你想要的），那个数组的SIZE可能是非负的–KIND = C_CHAR的Fortran序列关联规则字符意味着您可以将标量与数组相关联。
全部 – 更改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]...