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

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

各位前辈好，我在Fortran程序中调用了Intel库中的Qsort函数，在Windows下编译一切正常，但是到了Linux下则提示：
xxxxxx.f90(690): warning #6075: The data type of the actual argument does not match the definition.
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
给出更多代码才行。
前辈好，很抱歉这么久才回复。以下是相关代码和报错信息，感谢您的帮助！



          Subroutine Qsort_Cell_Faces

          Use OpenFoam,ONLY: Cell_Faces
          Use,Intrinsic :: Iso_C_Binding, ONLY : C_Size_T
      Use Ifport       ! To Get Qsort
      Use Share_Type   

      Interface
         Subroutine Qsort_Element_Types(Array, Len, Isize, Comp)
         Use, Intrinsic :: Iso_C_Binding, Only:C_Size_T
         Use Share_Type
         Type(Element_Type) Array(Len)
         Integer(C_Size_T) Len, Isize
         Integer, External :: Comp

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

          Integer Lines

      Type(Element_Type),Allocatable :: C(:)          
          Integer, External:: Cmp_Function
      Integer (C_Size_T) :: Size_Of_Element, Size_Of_Array
          Integer I

          
          Lines=Size(Cell_Faces,1)
          Allocate(C(Lines))
          
          ! 数组--派生（结构体）
          Do I=1,Lines
         C(I)%Elem_N = Cell_Faces(I,1)
             C(I)%Face_N = Cell_Faces(I,2)
          End Do
          
          Size_Of_Array   = Size(C)   
      Size_Of_Element = Sizeof(C(1))   
          
          Call Qsort_Element_Types(C, Size_Of_Array, Size_Of_Element, Cmp_Function)   ! 结构体排序
          
          ! 派生（结构体）--数组
          Do I=1,Lines
         Cell_Faces(I,1)= C(I)%Elem_N
             Cell_Faces(I,2)= C(I)%Face_N   
          End Do
          
          Return
          End 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删去，
Interface
         Subroutine Qsort_Element_Types(Array, Len, Isize, Comp) Bind(C,Name="Qsort_Element_Types")
         Use, Intrinsic :: Iso_C_Binding, Only:C_Size_T
         Use Share_Type
         Type(Element_Type) Array(Len)
         Integer(C_Size_T) Len, Isize
         Integer :: Comp

         End Subroutine Qsort_Element_Types
          End Interface

          Integer Lines

      Type(Element_Type),Allocatable :: C(:)          
          Integer :: Cmp_Function
      Integer (C_Size_T) :: Size_Of_Element, Size_Of_Array
          Integer I
现在报错没了，但是又提示链接的问题了：


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

问题已解决，方法可参考https://community.intel.com/t5/Intel-Fortran-Compiler/undefined-reference-to-QSORT/m-p/1348285/thread-id/159132?profile.language=zh-CN。
感谢各位前辈的帮助！

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

你把C++的OpenFoam翻译成Fortran了?
真牛
页: [1]
查看完整版本: Fortran代码调用C的函数时出错