您所在位置：主题：求救！OpenMP的并行数只能为1
yesshi06
[专家分：0] 发布于 2011-06-17 16:36:00
在我的服务器环境中，OpenMP的线程并行数总是1，很奇怪。
我的服务器是 8 cpu 16核的IBM服务器。装的是intel的编译器 10.1.1.018版本，mpi用的是mpich2-1.3
我测试用的程序如下：
!$ call omp_set_num_threads(8)
!$ threads = omp_get_num_threads()
print *,threads
!$OMP PARALLEL DO
do i=1,10
myTest = i*i*i-i*i
end do
!$OMP END PARALLEL DO
即使我强制openmp使用8个线程，最后打印出来的threads还是1，尝试过设置环境变量OMP_NUMBER_THREADS，也没有效果。
这是什么原因？
我的服务器是 8 cpu 16核的IBM服务器。装的是intel的编译器 10.1.1.018版本，mpi用的是mpich2-1.3
我测试用的程序如下：
!$ call omp_set_num_threads(8)
!$ threads = omp_get_num_threads()
print *,threads
!$OMP PARALLEL DO
do i=1,10
myTest = i*i*i-i*i
end do
!$OMP END PARALLEL DO
即使我强制openmp使用8个线程，最后打印出来的threads还是1，尝试过设置环境变量OMP_NUMBER_THREADS，也没有效果。
这是什么原因？
