function abstract(a,b)

　　implicit none

　　!DEC$ ATTRIBUTES C,DLLEXPORT::abstract

　　integer a,b,abstract

　　abstract=a-b

　　return

　　end

　　!兩數相乘

　　function multiply(a,b)

　　implicit none

　　!DEC$ ATTRIBUTES C,DLLEXPORT::multiply

　　integer a,b,multiply

　　multiply=a*b

　　return

　　end

　　!兩數相除 (需要添加考慮被除數是否為0以及能否整除的判斷)

　　function divided(a,b)

　　implicit none

　　!DEC$ ATTRIBUTES C,DLLEXPORT::divided

　　integer a,b,divided

　　divided=a/b

　　return

　　end

　　編譯后生成test1.dll,test1.obj等文件。其中這兩個文件是我們在VC中調用所需要的。

　　查看test1.dll中生成的函數如下圖所示。

　　注意：使用偽注釋語句!DEC$ ATTRIBUTES C,DLLEXPORT::functionName后，生成的函數名與Fortran中定義的函數名一致，并沒有按照Fortran編譯器的默認屬性將函數名都轉變為大些，如下圖所示。在后續的VC中調用的時候需要保持調用的函數名稱一致，否則會出現找不到函數的錯誤提示。

　　2.VC控制臺調用Fortra生成的DLL

　　新建VC控制臺應用程序，新建一個checktest1的工程。

　　注意：需要在工程的project菜單下的add to project子菜單的file對話框中添加上一步生成的test1.dll,test1.obj兩個文件，否則編譯能通過，鏈接的時候失敗。還需將以上兩個文件拷貝到checktest1工程的debug目錄下，否則運行的時候出現找不到文件的錯誤提示。自己測試了一下，以上兩步是必須的。

　　添加如下代碼：(注意紅色的部分)

　　#include "stdafx.h"

　　#include "iostream.h"

　　//extern "C"{_stdcall TEST1(int* x,int* y);}

　　//extern "C"{_stdcall ADD(int* x,int* y);}

　　//extern "C"{_stdcall ABSTRACT(int* x,int* y);}

　　//extern "C"{_stdcall MULTIPLY(int* x,int* y);}

　　//extern "C"{_stdcall DIVIDED(int* x,int* y);}

　　//注意此處函數名稱要與DLL生成時保持一致(如下中的藍色部分)，否則會出現找不到函數的錯誤提示。并且一定要記得去掉參數中的指針符號*。

　　extern "C"{_cdecl test1(int x,int y);}

　　extern "C"{_cdecl add(int x,int y);}

　　//采用C的傳值方式，則需要將_stdcall修改為_cdecl

　　//相應的Fortran DLL處要添加C的調用方式,即將!DEC$ ATTRIBUTES DLLEXPORT::add修改為：!DEC$ ATTRIBUTES C,DLLEXPORT::add

　　//適應偽注釋!DEC$ ATTRIBUTES C,DLLEXPORT::add后生成的DLL函數中只存在函數名為add的函數，ADD 和_ADD@8 均不存在，參見上圖中的DLL函數名稱

　　extern "C"{_cdecl abstract(int x,int y);}

　　extern "C"{_cdecl multiply(int x,int y);}

　　extern "C"{_cdecl divided(int x,int y);}

　　int main(int argc, char* argv[])

　　{

　　int a=35,b=5;

　　int sum=0;

　　int abs=0;

　　int mul=0;

　　int div=0;

　　//TEST1(&a,&b);

　　//sum=ADD(&a,&b);

　　//abs=ABSTRACT(&a,&b);

　　//mul=MULTIPLY(&a,&b);

　　//div=DIVIDED(&a,&b);

　　test1(a,b);

　　sum=add(a,b);

　　abs=abstract(a,b);

　　mul=multiply(a,b);

　　div=divided(a,b);

　　printf("a+b= %d\n",sum);

　　printf("a-b= %d\n",abs);

　　printf("a*b= %d\n",mul);

　　printf("a/b= %d\n",div);

　　printf("Hello World!\n");

　　return 0;

　　}