在Fortran90中调用同一模块中的功能

发布时间：2020-12-14 05:31:01 所属栏目：Windows 来源：网络整理

导读：我是Fortran90的新手,我还没有找到问题的答案. 我有一个用Fortran编写的模块,模块中有一些函数. 剥离版本： module vdiStringFunctions interface vdiString module procedure vdiString1Char end interface contains character (128) function vdiString1Ch

我是Fortran90的新手,我还没有找到问题的答案.
我有一个用Fortran编写的模块,模块中有一些函数.

剥离版本：

module vdiStringFunctions

interface vdiString
    module procedure vdiString1Char
  end interface

contains
    character (128) function vdiString1Char(CSTRING,sVar1)
      character(*),intent(in) :: CSTRING,sVar1
      character(128) :: vdiStringGeneral
      character(len=128),dimension(0:9) :: stringArray

stringArray(0) = adjustl(sVar1)
  vdiString1Char= vdiStringGeneral(CSTRING,stringArray)
end function vdiString1Char

character (128) function vdiStringGeneral(CSTRING,varArray)
  character(*),intent(in) :: CSTRING
  character(len=128),dimension(0:9),intent(in) :: varArray
  vdiStringGeneral = 'bla'
end function vdiStringGeneral

结束模块vdiStringFunctions

当我尝试使用英特尔Visual Fortran XE 2011进行编译时,出现以下错误：

error LNK2019: unresolved external symbol _VDISTRINGGENERAL referenced in function _VDISTRINGFUNCTIONS_mp_VDISTRING1CHAR vdiStringFunctions.obj

因为函数vdiStringGeneral与调用vdiString1Char在同一个模块中,所以我没有遇到问题.
当我将vdiStringGeneral移动到模块之外时,它会毫无问题地编译.

因为它应该在DLL中使用,所有函数都应该在模块内部.
我怎样才能让它以这种方式工作？

解决方法

删除函数vdiString1Char中的vdiStringGeneral声明. vdiStringGeneral的接口已经是显式的,因为它是在同一个模块中定义的. 通过现在的声明,链接器正在寻找外部函数.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!