Fixed Warning with nproc

2024-05-02 16:05:13 +02:00 · 2024-05-02 16:05:13 +02:00 · 1c2b737586
parent de288449f5
commit 1c2b737586
1 changed files with 1 additions and 1 deletions
--- a/src/utils/util.irp.f
+++ b/src/utils/util.irp.f
@ -327,12 +327,12 @@ subroutine wall_time(t)
 end

 BEGIN_PROVIDER [ integer, nproc ]
+  use omp_lib
  implicit none
  BEGIN_DOC
  ! Number of current OpenMP threads
  END_DOC

-  integer, external              :: omp_get_num_threads
  nproc = 1
  !$OMP PARALLEL
  !$OMP MASTER