Question

我正在尝试从Fortran调用C中的函数我不太清楚如何将C指针转换为Fortran类型也许这是分段错误的根源以下是我的代码。

我的Fortran界面是否正确？
我的Fortran程序是否使用了正确的数据类型？

C函数原型（我没有代码）

int __stdcall GRBnewmodel(
    GRBenv *env, 
    GRBmodel **modelP, 
    const char *Pname, 
    int numvars,
    double *obj, 
    double *lb, 
    double *ub, 
    char *vtype, 
    char **varnames
);

Fortran界面

function GRBnewmodel(env, modelP, Pname, numvars,obj, lb, ub, vtype, varnames) bind(C, name = 'GRBnewmodel' )
    use iso_c_binding
    integer(c_int) :: GRBnewmodel
    type(c_ptr), value :: env
    type(c_ptr) :: modelP
    character(c_char), dimension(*)  :: Pname
    integer(c_int), value :: numvars
    real(8), dimension(*):: obj
    real(8), dimension(*) :: lb
    real(8), dimension(*) :: ub
    character(c_char), dimension(*)  :: vtype
    type(c_ptr) :: varnames ! character**
end function

Fortran计划

type(c_ptr) :: env = c_null_ptr
type(c_ptr) :: modelP = c_nul_ptr
integer :: error
real(8), dimension(10) :: obj
real(8), dimension(10) :: lb
real(8), dimension(10) :: ub
character(c_char), dimension(10) :: vtype
integer :: i

error = GRBloadenv(env, 'gurobi.log'//c_null_char)

obj = 0
lb = 0
ub = 1
vtype = [ ('C', i=1,10) ]

! segmentation fault is on this line
error = GRBnewmodel( &
    env, &
    modelP, &
    c_null_char, &
    10, &
    obj, &
    lb, &
    ub, &
    vtype, &
    c_null_ptr &
)

我正在与gfortran一起研究MAC Maverick。

Answer 1

我找到了正确的召唤惯例我将其发布在github repository。

中

从Fortran调用C时出现分段错误

1 个答案: