运行环境函数 omp_get_active_level returns the number of nested,active parallel regions enclosing the task that contains the call Fortran integer function omp_get_active_level() C/C++ int omp_get_active_level(void); ●omp_in_fina1 returns true if the routine is executed in a final task region; otherwise,it returns false. Fortran logical function omp_in_finalO C/C++ int omp_in_final(void); http://math.ecnu.edu.cn/-jypan 13http://math.ecnu.edu.cn/~jypan 13 运行环境函数 Fortran integer function omp_get_active_level() C/C++ int omp_get_active_level(void);  omp_get_active_level Fortran logical function omp_in_final() C/C++ int omp_in_final(void);  omp_in_final returns the number of nested, active parallel regions enclosing the task that contains the call returns true if the routine is executed in a final task region; otherwise, it returns false