Fortran에서 C를 호출 할 때 세분화 오류

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 &
)

.

GORTRRAN을 사용하여 MAC Maverick에서 일하고 있습니다.

Answer 1

나는 올바른 부름 협약을 발견했다. 이 GitHub 저장소 .

을 게시했습니다.