Вызов подпрограммы FORTRAN из C

Ответ 1

Теперь можно использовать привязку Fortran ISO C на стороне Fortran. Это часть стандарта языка Fortran 2003 и доступна во многих компиляторах; он не специфичен для gcc. Это было описано во многих ответах на этом сайте. В рамках стандартного языка он является независимым от компилятора и платформы. И вам не нужно знать о внутренних правилах компиляции. Связывание ISO C, когда оно используется при объявлении подпрограммы или функции Fortran, заставляет компилятор Fortran использовать соглашения о вызове C, чтобы эта процедура могла быть вызвана непосредственно из C. Вам не нужно добавлять скрытые аргументы или указывать mangle Имя подпрограммы Fortran, т.е. Не подчеркивается. Имя, используемое компоновщиком, происходит из опции "привязка".

Строки сложны, потому что технически в C они являются массивами символов, и вы должны соответствовать этому в Fortran. Вам также приходится иметь дело с различными определениями строк: C имеет нулевое завершение, фиксированную длину Fortran и заполненную пробелами. Пример показывает, как это работает. Номера проще. Единственная проблема с массивами заключается в том, что C является строковым и Fortran-столбцом, поэтому многомерные массивы транспонируются.

int main ( void ) {

   char test [10] = "abcd";

   myfortsub (test);

   return 0;

}

и

subroutine myfortsub ( input_string ) bind ( C, name="myfortsub" )

   use iso_c_binding, only: C_CHAR, c_null_char
   implicit none

   character (kind=c_char, len=1), dimension (10), intent (in) :: input_string
   character (len=10) :: regular_string
   integer :: i

   regular_string = " "
   loop_string: do i=1, 10
      if ( input_string (i) == c_null_char ) then
         exit loop_string
      else
         regular_string (i:i) = input_string (i)
      end if
   end do loop_string

   write (*, *) ">", trim (regular_string), "<", len_trim (regular_string)

   return

end subroutine myfortsub

Вы компилируете C в объектный файл и используете gfortran для компиляции fortran и ссылки:

gcc-mp-4.6   \
         -c  \
         test_fortsub.c

gfortran-mp-4.6   \
     test_fortsub.o  \
     myfortsub.f90  \
     -o test_fortsub.exe

Выход:

 >abcd<           4

Ответ 2

Конечно, все это зависит от вашего компилятора FORTRAN, но в целом:

• Нет, вам нужно передать аргумент скрытой длины для вашей строки. Некоторые компиляторы чередуют их с другими параметрами непосредственно после строки. Другие, группируйте все аргументы длины строки в конце списка аргументов.

  char str[11] = {0};
  fortranFunc_(str, sizeof(str) - 1);
  // remember that 'str' will need to be null terminated
  // and will be padding with spaces to fit the length
  // so for C passing strings to Fortran specify the length
  // less 1 so you can add a nul terminator, and on all strings
  // being filled in by FORTRAN, trim-end all spaces.
  

• Почти всегда он проходит по ссылке, но вы можете переключать это поведение с помощью атрибутов фиктивных аргументов на стороне FORTRAN.

  int value = 10;
  fortranFunc_(&value);
  // INTEGER I
  

Вот несколько ссылок, которые применимы на разных компиляторах:

• Функциональность FORTRAN/C
• gfortran - Взаимодействие с C
• Intel Fortran - совместимость с C
• Модуль ISO_C_BINDING

Ответ 3

Ответ зависит от компилятора и системы (технически, ее ABI). Для GCC (который является компилятором C, С++, Ada и Fortran) прочитайте главу fortran mixed programming.