Смешанное программирование Fortran и C

Извините, но вы очень путаете. Что такое заголовочный файл Fortran? Например, вы не можете прочитать включаемый файл Fortran с помощью компилятора C! Два языка слишком разные. Кроме того, включаемый файл Fortran почти никогда не является заголовочным файлом, сравнимым с файлом C.

Я не знаю, какой компилятор вы используете. Но если вы выбрали последнюю версию GCC (Gnu Compiler Collection), то включенный в нее компилятор Fortran может учитывать функцию ISO_C_BINDING, которая упрощает соединение Fortran-C.

Пример :

MODULE my_fortran
  USE iso_c_binding
  IMPLICIT NONE
  CONTAINS
  SUBROUTINE my_subroutine(a,b) BIND(C,name="my_sub")
    INTEGER(c_int),INTENT(in),VALUE :: a
    REAL(C_DOUBLE),INTENT(out) :: b
    ...
  END SUBROUTINE
END MODULE

Заголовочный файл C с именем «my_sub.h», например:

void my_sub(int, double *);

C-файл

#include "my_sub.h"

int main(){
  double b;
  int a=3;
  my_sub(a,&b);
  ...
}

Fortran обычно передает свои переменные по ссылке (передает указатели). Это означает, что вы ДОЛЖНЫ указывать адреса в вызывающей программе на языке C.

Результаты функции могут быть переданы по значению, например, следующий код вызывает функцию FORTRAN с именем «gamma»:

double   x, y;
   ..................
   x = 2.0; 
   y = gamma_(&x) 

Убедитесь, что размер переменной в вызывающей программе идентичен размеру в подпрограмме Fortran:

float  --- REAL     (this is typical, but not always the case)
double --- REAL*8

Функция Fortran должна быть объявлена ​​в начале функции вызова C:

extern void read_(int *small, float *medium, double *large);

Обратите внимание, мы должны передавать все переменные в Фортран как указатели. Хотя имя функции не чувствительно к регистру в Fortran, оно получает символ подчеркивания в объявлении C и при вызове:

 read_(&small, &medium, &large);

Функция Fortran получает переменные следующим образом:

SUBROUTINE READ(small,medium,large)

  INTEGER       small
  REAL          medium
  DOUBLE        large

Точный размер этих переменных зависит от архитектуры вашей системы (32-разрядные и 64-разрядные), поэтому вам необходимо подтвердить соответствие между целыми числами, числами с плавающей запятой и двойными числами в C и Fortran в вашей системе.