在Fortran90中调用同一模块中的函数

发布于 2024-12-03 08:44:09 字数 1100 浏览 5 评论 0原文

我是 Fortran90 的新手，我还没有找到我遇到的问题的答案。我有一个用 Fortran 编写的模块，模块内有一些函数。

精简版本：

module vdiStringFunctions

接口 vdiString
    模块过程 vdiString1Char
  最终接口

包含
    字符 (128) 函数 vdiString1Char(CSTRING, sVar1)
      字符(*)、意图(in)::CSTRING、sVar1
      字符(128) :: vdiStringGeneral
      字符（len = 128），维度（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

当我尝试使用 Intel Visual Fortran XE 2011 进行编译时，出现以下错误：

错误 LNK2019：函数 _VDISTRINGFUNCTIONS_mp_VDISTRING1CHAR vdiStringFunctions.obj 中引用了无法解析的外部符号 _VDISTRINGGENERAL

因为函数 vdiStringGeneral 与调用 vdiString1Char 位于同一模块中，所以我没有遇到问题。当我将 vdiStringGeneral 移到模块之外时，它可以正常编译。

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

原文

I am new to Fortran90 and I haven't found an answer to a problem I have.
I have a module written in Fortran with the some functions inside a module.

Stripped down version:

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

end module vdiStringFunctions

When I try to compile with Intel Visual Fortran XE 2011 I get the following error:

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

Because the function vdiStringGeneral is in the same module than the calling vdiString1Char I do not get the problem.
When I move the vdiStringGeneral outside of the module it compiles without problems.

Because it should be used in a DLL all functions should be inside the module.
How can I get it to work that way?

分享到QQ

分享到微博