OMP threads cap fix

2019-06-09 20:05:13 -07:00 · 2019-06-09 20:05:13 -07:00 · 7b781aec09
parent c5e086f16c
commit 7b781aec09
1 changed files with 4 additions and 1 deletions
--- a/components/stdproc/stdproc/resamp_slc/src/resamp_slc.f90
+++ b/components/stdproc/stdproc/resamp_slc/src/resamp_slc.f90
@ -21,7 +21,7 @@
      integer i, j, k
      integer int_az_off
      integer i_na
-      integer ith, thnum
+      integer ith, thnum, ithorig
        
      integer ii, jj
      integer chipi, chipj
@ -82,6 +82,7 @@
      !$OMP END MASTER
      !$OMP END PARALLEL

+      ithorig = ith
      ith = min(ith,8)
      print *, 'Number of threads: ', ith
      call omp_set_num_threads(ith)
@ -283,6 +284,8 @@
          deallocate(rout)
      endif

+      !Reset number of threads
+      call omp_set_num_threads(ithorig)
      end