fortran中調用C封裝的函數

hello.c: 功能實現
------------------------------------------------------------                                                       
#include<stdio.h>

#ifdef PGI //編譯時間使用 -DPGI 選項定義宏 PGI
void hello_(int *num, char *name) //fortran中調用,注意參數要使用指標. 這裡函數名需要寫成 hello_，末尾多一個底線.
#else
void hello(int *num, char *name) //c中調用
#endif
{
    printf("hello: %d, %s\n", *num, name);
}
------------------------------------------------------------

fhello.f: 提供fortran介面
------------------------------------------------------------
      subroutine fhello(num, name)
        call hello(num, name) !調用C中封裝的 hello_ 函數，注意底線的作用 
      end
------------------------------------------------------------

Makefile: 編譯
------------------------------------------------------------
test:
        f77 test.f -L./lib -lftest
f:
        gcc -c -fpic -DPGI hello.c # 定義宏 PGI，使得正常編譯
        f77 -c -fpic fhello.f
        ar -r lib/libftest.a hello.o fhello.o   
clean:
        rm -f *.o
------------------------------------------------------------

test.f: 測試函數
------------------------------------------------------------
        call fhello(2, 'zkl')
      end
------------------------------------------------------------