2．调用动态链接库(DLL)方式

第二种方法比第一种方法实现起来麻烦一些。在这种方法中，FORTRAN程序首先被编译成Windows标准的动态链接库文件(DLL, Dynamic-Link Library)，然后在Delphi中调用。在FORTRAN语言程序设计中，本文采用Compaq Visual Fortran6.6编译器，可以容易地生成动态链接库。

在这种方式混合编程中，由于需要在两种不同的语言之间进行内存中的数据交换，因此，其数据类型必须一一对应。由于不同语言的数据类型所对应的存储方式、数据传递方式不尽相同，而且程序调试需要在两个不同的编译器中进行，因此这种方法编译调试较为麻烦，不易解决编译中出现的一些问题。

在生成动态链接库的FORTRAN子程序中，必须采用以下方法进行说明：

！DEC＄ATTRIBUTES DLLEXPORT::SUB_NAME
　　    ！DEC＄ATTRIBUTES ALIAS:’Sub_AliasName’::SUB_NAME

上面第一句话中，关键字DLLEXPORT表明这个子程序在动态链接库中可被外部调用，SUB_NAME为此子程序在动态链接库中的程序名；第二句话中的ALIAS给该程序名另赋一个别名，因为FORTRAN默认情况下编译出的程序名为大写字母，别名中可以改变。

函数和程序的调用中，参数传递的方式有两种。一种是传递参数地址的方式，即Call by Refence，另一种是传递值的方式，即Call by Value。在CVF生成动态链接库时，默认的通信协议为’_StdCall’，其参数传递方式是第一种。而在Delphi中，参数的传递方式跟参数本身的类型相关。如有一子过程定义：

Procedure Sub_Name(Const x1,x2:Double; Var x3,x4:Double);

这里，x1,x2被定义为常数类型的双精度实数，其参数传递方式为第二种，即Call by value，其值在传递中保持不变；x3, x4为变量类型的双精度整数，其传递方式为第一种，即Call by Reference，其值在计算中可以被改变*。在默认情况下，即参数前面没有说明属于那种类型的参数，则默认为常数类型。

也可以采用Delphi中的指针变量来获得与FORTRAN默认条件下完全相同的调用方式：

Procedure Sub_Name(x1,x2:Pointer;Var x3,x4:Double);

Pointer表明x1,x2是无类型指针（也可以采用有类型指针，这里从略），这时如果在另一程序中定义了四个双精度数a1,a2,a3,a4，按如下方式调用：

   Sub_Name(@a1,@a2,a3,a4)

则a1,a2,a3,a4中的值在计算前后都是可以改变的。

以指针变量作为虚参对于Delphi和FORTRAN的混合编程中数组的传递很有意义。因为Delphi的数组和FORTRAN中不同，Delphi中固定的数组和动态数组的传递方式是不相同的。采用指针，就没有那么费事。如上例中，如果a1,a2是数组，那么其调用方式为：

    Sub_Name(@a1[0],@a2[0],a3,a4)

就是将第一个数组元素的地址传递过去。如果不是第一个元素的地址，是后面某个元素的地址，则虚实数组的结合从这个元素开始。

如果虚参中出现了字符串，则有两种传递方式。一种是根据FORTRAN中的标准，同时传递字符串内容和长度，这时，FORTRAN中的子程序定义为：

Subroutine Sub_Name(x1,x2,Str,x3, x4)

！DEC＄ATTRIBUTES DLLEXPORT::SUB_NAME
　　       ！DEC＄ATTRIBUTES ALIAS:’Sub_Name’::SUB_NAME

  Real(8),Dimension(:)::x1,x2

  Character(Len=*) Str

  Real(8),Intent(Out)::x3,x4

在Delphi中相应的接口过程定义为：

Procedure Sub_Name(Const x1,x2:Pointer;

Str:String;

Len:Integer;

 Var x3, x4:Double);

则按如下方式调用：

  Sub_Name(@a1[0],@a2[0],Str,Length(Str),a3,a4);

另一种方式更为简便，因为在Delphi中，字符串被视为动态数组，以Call by Refence方式传递，因此，可先在FORTRAN中使用编译字将字符串的传递方式强制为地址传递方式，即：

Subroutine Sub_Name(x1,x2,Str,x3, x4)

！DEC＄ATTRIBUTES DLLEXPORT::SUB_NAME
　　       ！DEC＄ATTRIBUTES ALIAS:’Sub_Name’::SUB_NAME

  Real(8),Dimension(:)::x1,x2

  Character(Len=*) Str

  Real(8),Intent(Out)::x3,x4

！DEC$ Attributes Refence::Str

这时，Delphi中相应的接口过程定义为：

Procedure Sub_Name(Const x1,x2:Pointer; Str:String; Var x3, x4:Double);

则按如下方式调用：

 Sub_Name(@a1[0],@a2[0],Str, a3,a4);

第二种混合编程方式的实现过程是：首先在FORTRAN子程序按上述方法定义好，并编译成动态链接库ForSub.Dll；然后在Delphi中按如下方法定义动态链接库子过程接口。在接口区（Interface）中定义过程首部：

Procedure Sub_Name(Const x1,x2 : Pointer;

 Str : String;

Var x3, x4 : Double); Stdcall;

在实现区(Implementation)中加上以下语句：

Procedure Sub_Name; external ' ForSub.dll' name ' Sub_Name ';

这样，在Delphi程序设计中就可以像调用自己的子程序一样调用Sub_Name了。

由于FOR90引入了模块（Module）单元，可以将一些相关的数据和方法封装在模块里，因此，对一个模块中不同的子程序进行上述的定义，则在一个动态链接库中获得多个可被外部程序调用的子程序。在Delphi中要调用这些子程序，对每一个都需要编写Delphi中的子过程接口。