Как использовать FORtran подпрограмму модуля в с

Question

Я пытаюсь использовать FORtran подпрограмму модуля в C и не могу пройти, вот упрощенная версия моей проблемы:

У меня есть один FORtran модуля, который содержит подпрограмму , а вторая подпрограмма использует модуль.

!md.f90 
module myadd 
implicit none 
contains 

subroutine add1(a) bind(c) 
implicit none 
integer a 
a=a+1 

end subroutine add1 
end module myadd 


!sb.f90 
subroutine sq(a) bind(c) 
use myadd 
implicit none 
integer a 
call add1(a) 
a=a*a 
end subroutine sq 

Теперь я хочу, чтобы вызвать функцию sb в C:

//main.cpp 
extern "C"{ void sb(int * a); } 
int main(){ 
    int a=2; 
    sb(&a); 
} 

как я должен соединить их вместе?

Я пытался что-то вроде

ifort -c md.f90 sb.f90 
icc sb.o main.cpp 

но дает ошибку

sb.o: В функции sq': sb.f90:(.text+0x6): undefined reference to add1' /tmp/icc40D9n7.o: В функции main': main.cpp:(.text+0x2e): undefined reference to сб»

Кто-нибудь знает, как решить проблему?

Answer 1

int main(void){ 
    int a=2; 
    sb(&a); 
    return 0; 
} 

и

module myadd 
use iso_c_binding 
implicit none 
contains 

subroutine add1(a) bind(c) 
implicit none 
integer (c_int),intent (inout) :: a 
a=a+1 

end subroutine add1 
end module myadd 


!sb.f90 
subroutine sq(a) bind(c, name="sb") 
use iso_c_binding 
use myadd 
implicit none 
integer (c_int), intent(inout) :: a 
call add1(a) 
a=a*a 
end subroutine sq 

с

gcc -c main.c 
gfortran-debug fort_subs.f90 main.o 

Это легче связать с Fortran компилятор, поскольку он приносит в Фортране библиотеках.

Answer 2

Причина вашей ошибки связи двояко:

• вы опустили объектный файл для исходного файла, который содержит модуль из окончательной командной строки (md.o).

• Вы набрали sq в fortran sb в коде C++.

Исправить это, и вы будете в порядке.