fix no omp build (#984)

Signed-off-by: albert <92109627+Albkat@users.noreply.github.com>
grimme-lab · Mar 6, 2024 · 80f2695 · 80f2695
1 parent 75e6a61
commit 80f2695
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/extern/orca.f90 b/src/extern/orca.f90
@@ -278,10 +278,12 @@ subroutine writeOrcaInp(env,io,mol,input,mode)
    write(io,'("#",1x,a)') &
       "ORCA input is generated automatically. Not correct way."
 
+   num_threads = 1 ! default
+
    ! number of cores !
    !$omp parallel
    !$omp master
-      num_threads = omp_get_num_threads()
+   !$   num_threads = omp_get_num_threads()
    !$omp end master
    !$omp end parallel