Я пишу код, который вызовет функцию C из Fortran, используя механизм взаимодействия Fortran C (представлен на Fortran 2003 и реализован в более новых версиях gfortran и ifort).
Этот ответ - это то, что мне нужно, но я не могу понять, какое объявление интерфейса я должен использовать в Fortran для функции C, которая выглядит как это:
int use_array(int n, char * array[]){
int i;
for(i=0; i<n; i++){
printf("Item %d = %s\n",i,array[i]);
}
return n;
}
Я не понимаю, какое должно быть объявление для интерфейса на конце Fortran:
interface
function use_array(n, x) bind(C)
use iso_c_binding
integer (c_int) use_array
integer (c_int), value :: n
character(c_char) WHAT_SHOULD_GO_HERE? :: x
end function use_array
end interface
Я знаю, что мне придется иметь дело с проблемой нулевого завершения.