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

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

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

这些乱七八糟的删掉

给出更多代码才行。