Linux上Fortran与其他语言的互操作性如何

! hello_subroutine.f90
subroutine hello()
    print *, 'hello world'
end subroutine hello

# 调用Fortran子程序
from hello_subroutine import hello
print(hello())  # 输出: hello world

! rectangle.f90
subroutine rectangle(x, y, area, perimeter)
    real(kind=8), intent(in) :: x, y
    real(kind=8), intent(out) :: area, perimeter
    area = x * y
    perimeter = 2.0 * (x + y)
end subroutine rectangle

// rectangle.c
#include <stdio.h>

extern void rectangle_(float *x, float *y, float *area, float *perimeter);

void rectangle_(float *x, float *y, float *area, float *perimeter) {
    *area = *x * *y;
    *perimeter = 2.0 * (*x + *y);
}

gfortran -c rectangle.f90
gcc -c rectangle.c
gfortran rectangle.o rectangle.o -o librectangle.so

// main.c
#include <stdio.h>
#include <stdlib.h>

extern void rectangle_(float *x, float *y, float *area, float *perimeter);

int main() {
    float x = 10.0, y = 5.0;
    float area, perimeter;
    rectangle_(&x, &y, &area, &perimeter);
    printf("Area: %f, Perimeter: %f
", area, perimeter);
    return 0;
}

gcc -c main.c
gcc main.o -L. -lrectangle -o main
./main