commented call omp_set_dynamic

gher-uliege · May 30, 2013 · 40d88cc · 40d88cc
1 parent 0c27e8a
commit 40d88cc
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/DIVA3D/src/Fortran/Calc/newsol.f b/DIVA3D/src/Fortran/Calc/newsol.f
@@ -116,7 +116,12 @@ subroutine newsol(skmatx,VKGD,VFG,KLD,NEQ,IFAC,ISOL)
 ! Get (actual) number of threads
 
       write(6,*) 'Dynamic threading'
-      call omp_set_dynamic(ntt)
+! Commented 30 May 2013
+! need further tests
+! possible problem with certain Linux distributions
+!      call omp_set_dynamic(ntt)
+!--------------------------------------------------
+
       nthreads=omp_get_max_threads()
       write(6,*) 'NTHREADS',nthreads
 ! Initializations
@@ -365,4 +370,4 @@ subroutine newsol(skmatx,VKGD,VFG,KLD,NEQ,IFAC,ISOL)
 
 #endif
       return
-      end
+      end