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

zhuhuanlai

[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
这三段语句分别是什么意思哦，我在彭国伦的教材上没有找到详细的解释，还请赐教，如果有这方面详细介绍的书籍，能否分享一下呢，先谢谢了。

zhuhuanlai

感谢VVT的热情回复！

zhuhuanlai

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呢？

zhuhuanlai

谢谢fcode的及时回复！