Fortran语言的动态链接库及同其它语言的混合编译

FORTRAN语言动态链接库的使用及混合编译

转载自网上搜索到的一篇介绍FORTRAN动态链接库的资料——《Fortran语言的动态链接库的开发及应用》，同上海汽轮机期刊中《水和水蒸汽热力性质动态链接库的开发及在汽轮机中的应用》一文一致。仅供参考。

1 引言
由于FORTRAN在开发图形界面、可视计算、面对对象、事件驱动、数据库应用方面存在局限性，如果我们利用其它语言来重写，将费时费力，同时又损失了FORTRAN语言在科学计算上的优越性。经过努力，笔者寻求到一种折衷的方法：利用Microsoft Fortran PowerStation 4.0将FORTRAN源代码编译为动态链接库，然后用其它语言建立应用程序的项目文件，在适当的时候调用该动态链接库。这样就把DOS环境中的软件包括移植到Windows环境，使问题得以圆满解决。
2 d$ r/ Y6 ?8 f  O& }' ]以下以最常用的子例程PT为例来说明动态链接库的建立和在各种流行程序语言中的调用方法。
) ]4 U6 [. d/ D( d3 ]( _- b9 L
2 基于Fortran语言的动态链接库的建立
2.1 建立动态链接库的项目
在Fortran PowerStation开发环境中，建立动态链接库的项目文件(IFCSW.MDP)。
2.2 编写动态链接库的源代码
编写动态链接库的源代码文件(IFCSW.F90)，并将源代码文件插入到动态链接库的项目文件中。
( Z; b; y$ d- B" i9 M* s, ?在动态链接库源代码(IFCSW.F90)中子例程PT的定义为
Subroutine PT(P,T,H,S,V,X,R)
, O  z$ L% p% f( Y0 R7 v!MS$Attributes Stdcall , Dllexport , Alias : ’PT’ :: PT
!MS$Attributes Value :: P,T
, {# [9 W& L# ^) X0 j7 d!MS$Attributes Reference :: H,S,V,X,R
& ]( C+ {9 P* a7 s+ k: ^Real(4) P,T,H,S,V,X
/ a% j* i/ j7 TInteger(2) R
…………
1 j$ [7 A' g; t; h: L3 O+ h+ T8 [1 rEnd Subroutine
1 Q$ @- }4 j! y5 ^
其中：P为压力，T为温度，H为比焓，S为比熵，V为比容，X为干度，R为所处的区间；如果调用前已知所处的区间，可直接给R赋区间号后再调用子例程，可避免区间判断而加快调用速度。当所处的区间未知或不确定时，由子例程内部进行区间判断后，针对不同区间再调用不同的其它例程，并将所处区间号传回。
由于编译后动态链接库中命名方式的差异，为避免在VC++中隐式加载该DLL时产生连接错误，则专为VC++定义如下的子例程(仅供VC++使用)，即不要使用命名别名的Alias语句：
Subroutine PTVC(P,T,H,S,V,X,R)
. g, w% {, p1 t3 P- X!MS$Attributes Stdcall , Dllexport :: PTVC
!MS$Attributes Value :: P,T
. O3 n. v* {# T- A!MS$Attributes Reference :: H,S,V,X,R
, y3 J: o( j. FReal(4) P,T,H,S,V,X
Integer(2) R
# r" U& v. t+ a9 m, s( M5 h4 `…………
/ e, H3 h% F, L- qEnd Subroutine
$ u$ r$ V) W+ i2 c( Z$ J$ i$ G
, Q& U+ M4 L6 O5 ?9 |2.3 创建动态链接库
  |" l$ s4 j, c对动态链接库的项目文件进行编译连接，获得动态链接库(IFCSW.DLL)和接入库(IFCSW.LIB，该接入库通常用于隐性加载动态链接库，且只能用于Microsoft的开发语言，对于其它公司的产品，需利用专用程序生成对应的接入库)。

3 动态链接库的使用
' ~7 W# v4 T3 V) \; `一旦生成了动态链接库，就可以在各种编程语言环境中调用该动态链接库中的各种子程序或子例程。
动态链接库有隐式和显式两种装载方式，各有优缺点。采用隐式比显式友好，需要较少的编码，装载快速、可靠，但缺乏控制，影响动态使用，资源使用不经济；采用显式则正好相反。
采用隐式通常需要接入库和函数申明。
采用显式则应遵循以下步骤：
(1) 创建一个函数指针，其指针类型与要调用的DLL引出函数相吻合。
5 P7 ~) h' e! d! C% }(2) 通过Win32 API函数LoadLibrary()显式地调用DLL，此函数返回DLL的实例句柄。
(3) 通过Win32 API函数GetProAddress()获得要调用的DLL的函数地址，把结果赋予自定义函数指针类型的指针。
(4) 使用函数指针来调用DLL中函数。
(5) 调用完成后，通过Win32 API函数FreeLibrary()释放DLL。
) x' Y9 H" ?! F7 Z+ j
实际使用中可将隐式和显式两者结合使用，采用混合模式。

  b& ~: ^0 l& Y- n6 I# }0 [  f" a3.1 在MS Fortran PowerStation 4.0中调用
6 ~' b$ ^" C0 J+ a! i: g① 隐式调用
( \' z9 J5 G' y将接入库(IFCSW.LIB)包含到项目文件中，另在源文件的开始部分加入以下的声明语句
Interface
Subroutine PT(P,T,H,S,V,X,R)
/ {# u$ C( [% _- B) S/ S! z8 Y, c!MS$Attributes Stdcall , Dllimport , Alias : ’PT’ :: PT
Real(4) P,T,H,S,V,X
Integer(2) R
!MS$Attributes Value :: P,T
+ _7 @9 g  e4 q!MS$Attributes Reference :: H,S,V,X,R
5 y# c9 u+ S3 n5 m8 M' b, rEnd Subroutine
End Interface
- f& a$ `5 B3 S2 k$ h6 _1 ?此后，在需要的地方可用以下语句调用
. c3 B3 c* ]# b: A' uCall PT(P,T,H,S,V,X,R)
. c/ g, g) Y! ^4 L
② 显式调用
9 |2 d* f7 A. \动态装载首先要用LoadLibrary函数将动态链接库装入；然后用GetProcAddress函数获取动态链接库中要调用的函数或过程的地址；由于Fortran 90没有提供函数指针，不能直接用地址进行函数的调用，通过编写一个用函数名或过程名作参数的子程序CallProc来解决；将函数名或过程名作为参数传递时，实际传递的是四字节的函数或过程的入口地址，CallProc子程序接收该地址后，根据所声明的函数接口，以正确的方式对函数或过程进行调用；动态链接库使用完后，要及时用FreeLibrary函数释放动态链接库。
Subroutine CallProc(Pn,P,T,H,S,V,X,R)
Interface
Subroutine Pn(P,T,H,S,V,X,R)
2 n, y* t; F) d6 O% H( F/ W+ a; q!MS$Attributes Stdcall , Dllimport :: Pn
* H" D1 x) N3 q, P( Y( `; zReal(4) P,T,H,S,V,X
Integer(2) R
6 U2 U$ M! L; c4 s+ k!MS$Attributes Value :: P,T
: i6 X9 h% c3 M3 ^! |!MS$Attributes Reference :: H,S,V,X,R
End Interface
Real(4) P,T,H,S,V,X
Integer(2) R
Call Pn(P,T,H,S,V,X,R)
. g: Q3 D3 f! ^6 w: JEnd Subroutine
, G' ]( b+ b( [: G3 K( H
CallProc(PT, P,T,H,S,V,X,R)
' z& P; Q! ~2 [- X
" T; @0 d2 J$ M3.2 在Visual Basic和Visual Basic Application中调用
VB和VBA中由于显式加载过于繁琐，通常不使用，以下仅介绍隐式加载。
VB和VBA中隐式加载不需要接入库，只需在模块代码的声明部分增加Declare语句，声明需调用的函数在外部动态链接库中。
Decalre Sub PT Lib “IFCSW.DLL” (ByVal P as Double , ByVal T as Double , ByRef H as Double , ByRef S as Double , ByRef V as Double , ByRef X as Double , ByRef R as Integer)
- T) i0 _& l4 [; Q3 A# E5 `; E而后，即可在任何需要的地方用以下语句调用子程序PT。
* h8 s: E+ o7 q" ?# P& x9 jCALL PT(P,T,H,S,V,X,R)
: \/ N: R* s4 Q  Y7 m
3.3 在Delphi(Visual Pascal)中调用
! t! R) X+ [! E