Fortran代码调用C的函数时出错

joezhr · 发表于 2021-12-2 22:28:35

各位前辈好，我在Fortran程序中调用了Intel库中的Qsort函数，在Windows下编译一切正常，但是到了Linux下则提示：
xxxxxx.f90(690): warning #6075: The data type of the actual argument does not match the definition. [CMP_FUNCTION]
Call Qsort_Element_Types(C, Size_Of_Array, Size_Of_Element, Cmp_Function)

之后就是如下的错误：
undefined reference to '_QSORT'

请问如何才能在Linux下正常调用这个Qsort函数呢？

li913 · 发表于 2021-12-7 21:09:58

给出更多代码才行。

joezhr · 发表于 2021-12-31 09:57:13

本帖最后由 joezhr 于 2021-12-31 10:01 编辑

li913 发表于 2021-12-7 21:09
给出更多代码才行。

前辈好，很抱歉这么久才回复。以下是相关代码和报错信息，感谢您的帮助！

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

01Subroutine Qsort_Cell_Faces
02 
03Use OpenFoam,  ONLY: Cell_Faces
04Use,Intrinsic :: Iso_C_Binding, ONLY : C_Size_T
05  Use Ifport       ! To Get Qsort
06  Use Share_Type   
07 
08  Interface
09     Subroutine Qsort_Element_Types(Array, Len, Isize, Comp)
10     Use, Intrinsic :: Iso_C_Binding, Only:C_Size_T
11     Use Share_Type
12     Type(Element_Type) Array(Len)
13     Integer(C_Size_T) Len, Isize
14     Integer, External :: Comp
15 
16     !DIR$ IF DEFINED(_WIN64)
17     !DIR$ ATTRIBUTES ALIAS: 'QSORT'  :: QSORT_element_types
18     !DIR$ ELSE
19 !DIR$ ATTRIBUTES ALIAS: '_QSORT' :: QSORT_element_types
20     !DIR$ ENDIF      
21     End Subroutine Qsort_Element_Types
22End Interface
23 
24Integer Lines
25 
26  Type(Element_Type),Allocatable :: C(:)   
27Integer, External  :: Cmp_Function
28  Integer (C_Size_T) :: Size_Of_Element, Size_Of_Array
29Integer I
30 
31 
32Lines=Size(Cell_Faces,1)
33Allocate(C(Lines))
34 
35! 数组--派生（结构体）
36Do I=1,Lines
37     C(I)%Elem_N = Cell_Faces(I,1)
38   C(I)%Face_N = Cell_Faces(I,2)
39End Do
40 
41Size_Of_Array   = Size(C)    
42  Size_Of_Element = Sizeof(C(1))  
43 
44Call Qsort_Element_Types(C, Size_Of_Array, Size_Of_Element, Cmp_Function)   ! 结构体排序
45 
46! 派生（结构体）--数组
47Do I=1,Lines
48     Cell_Faces(I,1)= C(I)%Elem_N
49   Cell_Faces(I,2)= C(I)%Face_N   
50End Do
51 
52Return
53End Subroutine

fcode · 发表于 2021-12-31 11:36:48

你确定你有 C 语言的函数 Qsort_Element_Types ？？？

如果有：

Subroutine Qsort_Element_Types(Array, Len, Isize, Comp)
改为
Subroutine Qsort_Element_Types(Array, Len, Isize, Comp) Bind(C,Name="Qsort_Element_Types")

   !DIR$ IF DEFINED(_WIN64)
   !DIR$ ATTRIBUTES ALIAS: 'QSORT'  :: QSORT_element_types
   !DIR$ ELSE
!DIR$ ATTRIBUTES ALIAS: '_QSORT' :: QSORT_element_types
   !DIR$ ENDIF

这些乱七八糟的删掉

joezhr · 发表于 2022-1-4 10:14:56

前辈好，这个函数是有的，可参考QSORT
按照您的建议进行修改后，报错如下：

然后又将代码中的external删去，

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

01Interface
02         Subroutine Qsort_Element_Types(Array, Len, Isize, Comp) Bind(C,Name="Qsort_Element_Types")
03         Use, Intrinsic :: Iso_C_Binding, Only:C_Size_T
04         Use Share_Type
05         Type(Element_Type) Array(Len)
06         Integer(C_Size_T) Len, Isize
07         Integer :: Comp
08 
09         End Subroutine Qsort_Element_Types
10    End Interface
11 
12    Integer Lines
13 
14      Type(Element_Type),Allocatable :: C(:)   
15    Integer :: Cmp_Function
16      Integer (C_Size_T) :: Size_Of_Element, Size_Of_Array
17    Integer I

现在报错没了，但是又提示链接的问题了：

joezhr · 发表于 2022-1-5 09:13:33

问题已解决，方法可参考https://community.intel.com/t5/I ... file.language=zh-CN。
感谢各位前辈的帮助！

weixing1531 · 发表于 2022-1-5 22:55:53

你把C++的OpenFoam翻译成Fortran了?
真牛

[混编] Fortran代码调用C的函数时出错

美女勋章

热心勋章

星光勋章

新人勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

规矩勋章

元老勋章

水王勋章