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

joezhr

各位前辈好，我在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

给出更多代码才行。

joezhr

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

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

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

	  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

你确定你有 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

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

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

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

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

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

weixing1531

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