3

您好我正在使用 Fortran 90 代码来调用 C 函数。由于我正在处理地址，因此 C 函数的参数应该在 Fortran 中正确匹配。我正在使用 ifort 和 icc 编译代码并在 64 位机器上工作。

一些测试表明这也适用于int32_t，但为了防止最终出现陷阱，我想保留uint32_t

我正在调用的 C 函数具有以下原型

uint32_t encode_(uint32_t x, uint32_t y)
uint32_t decode_(uint32_t dec)

我不能简单地通过做类似的事情来调用这些函数

integer :: cod,encode
cod = encode(i,j)

这会产生乱码。因此，我正在使用一种解决方法：

void code2d_(uint32_t j[] ){


uint32_t i;

i=encode_(j[0],j[1]);  
// the underscore is due to the FORTRAN naming convention

printf("Coded %10d  \n",i);

}

随后在 Fortran

 integer :: cod,code2d
 cod = code2d(i,j)

很明显，我对参数类型的不匹配有一些问题。不幸的是，我不知道如何解决这个问题。由于在我的解码/编码函数中完成了二进制地址算术，因此保留uint32_t.

4

2 回答 2

7

当您使用该标签时，您似乎了解 iso_c_binding。研究 Fortran 2003 与 C 的互操作性。阅读标签说明和一些文档，例如http://gcc.gnu.org/onlinedocs/gcc-4.9.0/gfortran/Interoperability-with-C.html。在现代 Fortran 中，后面没有下划线和类似的东西。

Fortran 没有任何无符号类型，您必须使用有符号类型。只要有符号值为正，它就可以工作。如果需要更大的值，请使用更大的整数类型。如果需要，可以transfer()将低字节转换为 int32。

第三，Fortran 默认使用一些通过引用传递的变体，特别是对于bind(c)过程（它可能是对副本或其他变体的引用）。您必须使用value属性按值传递。

uint32_t encode(uint32_t x, uint32_t y)
uint32_t decode(uint32_t dec)

module c_procs
  interface
    function encode(x, y) bind(C, name="encode")
      use iso_c_binding
      integer(c_int32_t) :: encode
      integer(c_int32_t), value :: x, y
    end function
    function decode(x, y) bind(C, name="decode")
      use iso_c_binding
      integer(c_int32_t) :: decode
      integer(c_int32_t), value :: dec
    end function
  end interface
end module

...

use iso_c_binding
use c_procs

integer(c_int32_t) :: cod, i, j
cod = encode(i,j)

最新版本的 GCC 能够检测到我们在链接时优化期间混合了有符号和无符号类型：

rng.f90:173:0: warning: type of 'sub' does not match original declaration [-Wlto-type-mismatch]
     ival = sub(jz, jsr)
^
rng_c.c:2:10: note: return value type mismatch
 uint32_t sub(uint32_t a, uint32_t b) {
          ^
/usr/include/stdint.h:51:23: note: type 'uint32_t' should match type 'int'
 typedef unsigned int  uint32_t;
                       ^
rng_c.c:2:10: note: 'sub' was previously declared here
 uint32_t sub(uint32_t a, uint32_t b) {

如果您知道自己在做什么，则可以忽略警告或将其禁用。

于 2014-07-13T20:20:46.367 回答
0

您可以编写一个 C 函数，该函数采用 C_INT（或 C 中的 int），然后将其转换为 uint32_t。然后你从 Fortran 链接到这个。

在 C 中：

uint32_t to_uint32_t ( int i ) {
    return (uint32_t)i; //cast actually not needed since it implicitly converts
}

在 fortran 中：

module convert
    interface
        integer(C_INT32_T) function integer_to_uint32_t_C ( i ) bind (c,name="to_uint32_t")
            use iso_c_binding
            use user32_constants_types
            integer(c_int), value :: i
        end function
    end interface

end module convert

然后，您可以使用integer_to_uint32_t_C将 Fortran 整数值传递给需要uint32_t. 此外，您可能希望创建一个转换回普通 ole 的 C 函数，int以便您可以在 Fortran 中使用结果。

于 2019-05-01T16:50:05.443 回答