Fortran77如何調用C的代碼

比如C的代碼（檔案名稱：test.c）如下（注意C原始碼裡不能有main函數，編譯時間也一定要加-c開關）：

#include <stdio.h>

#define sub1 sub1_

void sub1(int *num)
{
    printf("%d\n", *num);
}

Fortran的代碼（檔案名稱：testf.f）如下（Fortran調用C的sub1函數）：

      program main
      implicit none

      integer a
      a = 10

      call sub1(a)

      end

這樣就OK 了！編譯的時候，這樣操作：

g77 -c testf.f -o testf.o

gcc -c test.c -o test.o

g77 test.o testf.o -o test

然後運行test程式就可以了。

相關說明：

（1）C代碼被編譯後會在函數名前面或後面加上底線，各編譯器實現不同，這段代碼是在gcc和intel的編譯器上測試的，所以，在C的代碼裡要做一個define的動作

（2）Fortran預設的函數參數傳遞方式是傳址操作，所以，被調用的C函數的參數必須都是指標

（3）在Fortran90裡，Fortran和C的函數互調基本上沒有上述的限制，但我們既然是77的代碼，所以，90的就不羅嗦了