应该如何将多个 Fortran 字符串传递给 C?
How should multiple Fortran strings be passed to 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<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".
...
有两个隐藏变量。我认为它们应该用于我的两个字符串中每一个的缓冲区大小,一个用于 "Filename",一个用于 "Corename"。但是都包含第一个缓冲区的缓冲区大小,即80。
我哪里错了?
BIND(C) 过程的调用约定可能与 Fortran 编译器用于 Fortran 到 Fortran 调用的默认调用约定完全不同。您不应依赖任何隐藏的 CHARACTER 长度参数(在一般情况下,您也不应期望隐藏参数的类型为 int
)。考虑到 Fortran CHARACTER 变量由该编译器在内存中布局的方式,我怀疑您只是很幸运。
编译器不需要为 BIND(C) 过程传递长度,因为与 C 互操作的 CHARACTER 变量的唯一长度是一。但是,如果伪参数是一个数组(如果您传递的是字符串而不是单个字符,这就是您想要的),则该数组的 SIZE 可能是 non-negative - KIND 的 Fortran 序列关联规则=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]...
要将 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".
...
有两个隐藏变量。我认为它们应该用于我的两个字符串中每一个的缓冲区大小,一个用于 "Filename",一个用于 "Corename"。但是都包含第一个缓冲区的缓冲区大小,即80。
我哪里错了?
BIND(C) 过程的调用约定可能与 Fortran 编译器用于 Fortran 到 Fortran 调用的默认调用约定完全不同。您不应依赖任何隐藏的 CHARACTER 长度参数(在一般情况下,您也不应期望隐藏参数的类型为 int
)。考虑到 Fortran CHARACTER 变量由该编译器在内存中布局的方式,我怀疑您只是很幸运。
编译器不需要为 BIND(C) 过程传递长度,因为与 C 互操作的 CHARACTER 变量的唯一长度是一。但是,如果伪参数是一个数组(如果您传递的是字符串而不是单个字符,这就是您想要的),则该数组的 SIZE 可能是 non-negative - KIND 的 Fortran 序列关联规则=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]...