intel MKL pardiso不能在fortran中并行运行

Question

我正在尝试让英特尔MKL版本的pardiso与多个核心一起工作。我正在用它来解决一个有大约60K方程的结构对称系统(mtype=1)。

  iparm= 0
  iparm(1) = 1 !
  iparm(2) = 3 !  
  iparm(3) = omp_get_max_threads() !   
  iparm(4) = 0 !
  iparm(5) = 0 !
  iparm(6) = 0 !
  iparm(7) = 0 !
  iparm(8) = 9 ! 
  iparm(9) = 0 !
  iparm(10) = 13
  iparm(11) = 1 
  iparm(12) = 0 
  iparm(13) = 0 
  iparm(14) = 0 
  iparm(15) = 0 
  iparm(16) = 0 
  iparm(17) = 0 
  iparm(18) = -1
  iparm(19) = -1
  iparm(20) = 0

这些是我的ipram参数。在编译时，我有

F90FLAGS = ${F77FLAGS} -I${SOLIDroot} -openmp -mkl=parallel -d-lines -debug 

在调用pardiso之前，我还设置了MKL和openmp可用的线程数

call mkl_set_num_threads(3) call omp_set_num_threads(3)

call mkl_set_dynamic(0) ! disabling dynamic adjustment of the number of threads

据我所知，所有MKL函数都将尝试使用多线程，如果允许或启用它来处理“足够”大的问题。我已经使用OMP实现了一些并行性，并且代码可以在多个内核上运行。我调用pardiso的区域是串行的。我的问题是，还需要什么才能让pardiso在多核环境下工作？

已尝试使用iparm的默认值，即iparm(1)=0，但没有更改

Answer 1

我无法添加评论(没有足够的声誉)。

您可以尝试在运行代码之前设置环境变量OMP_NUM_THREADS，看看是否有效。