USE omp_lib
write(6,'("omp_get_num_procs() = ",i0,": the number of processors that are available to the device")') omp_get_num_procs()
write(6,'("omp_get_max_threads() = ",i0,": the number of threads used to form a new team")') omp_get_max_threads()
end