IVF动态链接库的函数的调用接口声明

zhuhuanlai · 发表于 2016-3-28 17:38:24

[Fortran] 纯文本查看 复制代码

!   根据IAPWS-IF97/IFC67编写的动态链接库的函数的调用接口声明
!    专供DEC Visual Fortran(Fortran语言) 使用
!    使用方法：
!    直接把本软件包提供的导入库文件(WASPCN.Lib)和模块文件(WASPCN.f90)加进对应项目，
!    在需要调用的程序文件中use模块文件(WASPCN.f90)即可！
module WASPCN
!DEC$objcommentlib:"WASPCN.lib"
!设定将要使用的标准
!已知压力(MPa)和温度(℃)，求比焓(kJ/kg)、比熵(kJ/(kg.℃))、比容(m^3/kg)
Interface
Subroutine PT(P,T,H,S,V,X,R)
    !DEC$Attributes Stdcall,Dllimport,Alias:'PT'::PT
    Real(8)P,T,H,S,V,X
    Integer(4)R
    !DEC$Attributes Value::P
    !DEC$Attributes Value::T
    !DEC$Attributes Reference::H
    !DEC$Attributes Reference::S
    !DEC$Attributes Reference::V
    !DEC$Attributes Reference::X
    !DEC$Attributes Reference::R
End Subroutine
End Interface
end module WASPCN

上述调用接口中：
!DEC$objcomment lib:"WASPCN.lib"
!DEC$Attributes Stdcall,Dllimport,Alias:'PT'::PT
!DEC$Attributes Value::P
这三段语句分别是什么意思哦，我在彭国伦的教材上没有找到详细的解释，还请赐教，如果有这方面详细介绍的书籍，能否分享一下呢，先谢谢了。

vvt · 发表于 2016-3-28 19:16:43

!DEC$objcomment lib:"WASPCN.lib"
表示链接时带上 WASPCN.lib 一起链接
!DEC$Attributes Stdcall,Dllimport,Alias:'PT'::PT
表示 PT 采用 stdcall 调用协定。并由 DLL 导入，别名为 PT
!DEC$Attributes Value::P
表示 P 参数采用传值，而不是传址

这些用法都是 IVF 特有的扩展用法，并不是标准的规范。所以很少有教科书提及。
如果你想了解，可以看 IVF 的帮助《General Compiler Directives》的章节

zhuhuanlai · 发表于 2016-3-29 09:25:38

感谢VVT的热情回复！

zhuhuanlai · 发表于 2016-3-29 10:22:01

VVT您好，我在《General Compiler Directives》中看到IVF2013的编译指令说明中是这样写的：

[Fortran] 纯文本查看 复制代码

MODULE MOD1
  INTERFACE
    SUBROUTINE SUB1
    !DIR$ ATTRIBUTES C, ALIAS:'othername' :: NEW_SUB
    END SUBROUTINE
  END INTERFACE
  CONTAINS
    SUBROUTINE SUB2
    CALL NEW_SUB
    END SUBROUTINE
END MODULE

那是不是说不能再用!DEC，必须用！DIR呢？