integer omp_get_thread_num, omp_get_num_threads
      external omp_get_thread_num, omp_get_num_threads
      integer omp_get_num_procs, omp_get_max_threads
      external omp_get_num_procs, omp_get_max_threads