在Fortran2003中，一维假定形状数组是否可以与C互操作? [英] In Fortran2003, is 1D Assumed shape array interoperable with C?

问题描述

在Fortran 2003中，可分配数组不能与C互操作.我认为这与存储在内存中的其他数组信息有关，这些信息可能会干扰C的解释.

In Fortran 2003, the allocatable array is not interoperable with C. I suppose this has something to do with additional array information stored in memory which might disturb the C interpretation.

但是，如果我将虚拟参数声明为1D假定形状数组怎么办?例如

But what if I declare a dummy argument as 1D assumed shape array? for example

subroutine outter_subroutine(ma, size_ma)
integer  :: size_ma
integer  :: ma(size_ma)

call fortran_subroutine(ma)

end subroutine

!-----------------------------

subroutine fortran_subroutine(a)
integer, intent(in) :: a(:)
integer,(kind=c_int):: ierr
...
ierr = some_c_function(a)
...
end subroutine

fortran中的界面可能喜欢

The interface in fortran may like

interface
function some_c_function(a)
integer(c_int) :: a(*)
end interface

在C语言中，原型可能

int some_c_function(int *a)

是否符合Fortran 2003标准?

Will that conform the Fortran 2003 standard?

推荐答案

C个可互操作的子例程不能具有假定的形状参数，但是您可以将一个假定的形状数组(或其他任何形式)传递给一个具有假定的大小参数的可互操作的子例程(一种(*)).如果数组不连续，则编译器可能必须创建一个临时数组才能做到这一点.

C interoperable subroutines cannot have assumed shape arguments, but you can pass an assumed shape array (or any other) to an interoperable subroutine which has an assumed size argument (a(*)). A temporary array may have to be created by the compiler to be able to do that if the array is not contiguous.

这篇关于在Fortran2003中，一维假定形状数组是否可以与C互操作?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！