Передача FORTRAN объекта в C и наоборот

Question

У меня есть мой Fortran объект т.е.

this%object%a 

this%object%b 

this%object%c 

Я хочу передать его в код, написанный на C, я преимущественно фортрановский программист и у меня было очень мало воздействия C. Я использую iso_c_binding для передачи целых чисел и массивов, но теперь мне нужно передать объекты.

Я определяю объект следующим образом

TYPE object 

     INTEGER         :: a 

     INTEGER         :: b 

     INTEGER         :: c 

    END TYPE object 

Answer 1

Вы можете сделать совместимые типы:

use iso_c_binding 

TYPE, BIND(C) :: object 

    INTEGER(c_int)        :: a 

    INTEGER(c_int)        :: b 

    INTEGER(c_int)        :: c 

END TYPE object 

type(object) :: o 

Существуют ограничения в стандарте на объекте. Например, он не может содержать выделенные или указательные компоненты.

Когда вы передаете его интероперабельной процедуры:

void sub(c_object* x){} 

subroutine sub(x) bind(C,name="sub") 
    type(object), intent(inout) :: x 
end subroutine 

call sub(o) 

он совместим с C структуры

typedef struct { 
    int a; 
    int b; 
    int c; 
} c_object; 

Вы также можете пройти без интероперабельные типа С, но вы должны использовать указатели:

subroutine sub2(x) bind(C,name="sub") 
    type(c_ptr), value :: x 
end subroutine 

call sub2(loc(o))