OpenMP的OMP_SET_NUM_THREADS()在Fortran程序中设置线程数无效求助

针对你遇到的OpenMP线程数设置无效的问题，结合你的环境（Windows 11+Cygwin64+GNU Fortran 12.4.0），可以从以下几个方面排查解决：

1. 确保编译时启用OpenMP支持 #

GCC系列编译器默认不会启用OpenMP，编译时必须添加-fopenmp选项，否则所有OpenMP指令和函数调用都会被忽略。正确的编译命令应该是：

gfortran -fopenmp TestOMP1.f90 -o TestOMP1

2. 修正OMP_SET_NUM_THREADS的调用位置 #

该函数必须在并行区域启动前调用才能生效，修改你的代码如下：

Program TestOMP1
    Use OMP_LIB

    !$CALL OMP_SET_NUM_THREADS(4)  ! 放在并行区域之前
    !$OMP PARALLEL
    Write(*,*) "Hi from thread: ", OMP_GET_THREAD_NUM()
    !$OMP END PARALLEL
End Program TestOMP1

3. 正确设置环境变量 #

在Cygwin终端中，设置OMP_NUM_THREADS环境变量的正确方式是：

export OMP_NUM_THREADS=4
./TestOMP1

需注意在同一个终端会话中先设置变量，再运行程序，否则设置不会生效。

额外排查点 #

如果以上方法都无效，可以检查：

• 运行gfortran -v查看编译配置，确认包含--enable-openmp
• 用ldd TestOMP1查看程序依赖，确认加载了libgomp.so相关OpenMP库

内容的提问来源于stack exchange，提问作者Fausto A. A. Barbuto