global_cycle  1.13.0
num_parthds.f90
Go to the documentation of this file.
1 
4 
9 integer function num_parthds()
10  use omp_lib
11 !$OMP PARALLEL
12  num_parthds=omp_get_num_threads()
13 !$OMP END PARALLEL
14  return
15  end function num_parthds
num_parthds
integer function num_parthds()
Return the number of omp threads.
Definition: num_parthds.f90:10