如何判断Fortran程序是否启用OpenMP编译并输出对应提示？

数据老陈

2026-5-21

当然有办法啦！在Fortran里判断程序是否启用了OpenMP编译其实挺简单的，主要靠omp_lib模块里的预编译宏或者内置函数就能实现。下面给你详细讲两种实用方法，附带完整的示例代码：

方法一：利用预编译宏 `_OPENMP`（最可靠）

这是OpenMP标准规定的官方方法——当你用-fopenmp（GCC/Clang）、-xopenmp（Intel编译器）这类参数编译时，编译器会自动定义_OPENMP宏。你可以通过条件编译来区分两种编译状态：

program main
    use omp_lib
    implicit none

#ifdef _OPENMP
    print *, "OpenMP being used! Compiled with OpenMP support."
    print *, "Number of available threads: ", omp_get_max_threads()
#else
    print *, "OpenMP not being used... No OpenMP support enabled during compilation."
#endif

end program main

编译测试：

启用OpenMP编译（以GCC为例）：
```
gfortran -fopenmp your_program.f90 -o your_program
```
运行后会输出OpenMP启用的提示，还能看到可用线程数。
不启用OpenMP编译：
```
gfortran your_program.f90 -o your_program
```
运行后会提示未启用OpenMP。

方法二：运行时通过OpenMP函数判断

如果你需要在运行时动态确认（虽然预编译判断更高效），可以用OpenMP的内置函数来检测。当未启用OpenMP时，这些函数通常会返回单线程相关的数值：

program main
    use omp_lib
    implicit none
    integer :: max_threads

    max_threads = omp_get_max_threads()

    if (max_threads > 1) then
        print *, "OpenMP being used! Maximum available threads: ", max_threads
    else
        print *, "OpenMP not being used... Running in single-threaded mode."
    end if

end program main