运行环境函数 ●omp_get_thread_num Fortran integer function omp_get_thread_num( C/C++ int omp_get_thread_num(void); ● omp_get_num_procs Fortran integer function omp_get_num_procsO C/C++ int omp_get_num_procs(void); ● omp_in_parallel Fortran logical function omp_in_parallel() C/C++ int omp_in_parallel(void); http://math.ecnu.edu.cn/-jypan 6 http://math.ecnu.edu.cn/~jypan 6 运行环境函数 Fortran integer function omp_get_thread_num() C/C++ int omp_get_thread_num(void);  omp_get_thread_num Fortran integer function omp_get_num_procs() C/C++ int omp_get_num_procs(void);  omp_get_num_procs Fortran logical function omp_in_parallel() C/C++ int omp_in_parallel(void);  omp_in_parallel