interface
integer function omp_get_num_procs ( )
end function omp_get_num_procs
end interface
integer result
result = omp_get_num_procs ( )
This function returns an integer value indicating the number of processors that are available to your program.