用ISO_C_BINDING混编

andy8496 · 发表于 2019-11-12 12:36:30

本帖最后由 andy8496 于 2019-11-12 12:42 编辑

因为某些不得已的原因，不得不做C和Fortran的混编。简单说来就是要在C的代码中调用Fortran的动态链接库。目前的环境是VS2012+Intel Parallel Studio XE 2015
以下是从文档中找到的关于I[size=12.6667px]SO_C_BINDING的例子：

Example of C Calling Fortran

The following examplecalls a Fortran subroutine called Simulation. This subroutine corresponds to theC void function simulation.

Fortran Code Example

[Fortran] 纯文本查看 复制代码

subroutine Simulation(alpha, beta, gamma, delta, arrays) BIND(C)

use, intrinsic :: ISO_C_BINDING

implicit none

integer (C_LONG), value :: alpha

real (C_DOUBLE), intent(inout) :: beta

integer (C_LONG), intent(out) :: gamma

real (C_DOUBLE),dimension(*),intent(in) :: delta

 

type, BIND(C) :: pass

integer (C_INT) :: lenc, lenf

type (C_PTR) :: c, f

end type pass

 

type (pass), intent(inout) :: arrays

real (C_FLOAT), ALLOCATABLE, target, save :: eta(:)real (C_FLOAT), pointer :: c_array(:)

...

! Associate c_array with an array allocated in C

call C_F_POINTER (arrays%c, c_array, (/arrays%lenc/) )

 ...

! Allocate an array and make it available in C

arrays%lenf = 100

ALLOCATE (eta(arrays%lenf))

arrays%f = c_loc(eta)

...

end subroutine Simulation

C Struct declaration Example

struct pass {int lenc,lenf; float *c, *f;};

C Function Prototype Example

void simulation(longalpha, double *beta, long *gamma, double delta[], struct pass *arrays);

C Calling sequence Example

simulation(alpha,&beta, &gamma, delta, &arrays);

我想请教的问题：
采用上述这种方式混编的时候，直接在Fortran代码中按照上述方式编码，然后编译成Dll，就能在C中调用吗？还是仍然需要添加：
!DEC$ ATTRIBUTES STDCALL,REFERENCE,DLLEXPORT,ALIAS: ...
这种语句？我两种方式都做过尝试，但是不知道什么原因，都没有成功。所以希望有一个明确一点的方向继续尝试。

多谢各位大神赐教！