interface logical function omp_get_nested ( ) end function omp_get_nested end interface logical result result = omp_get_nested ( )
This function returns TRUE if nested parallelism is enabled. If nested parallelism is disabled, it returns FALSE. The function always returns FALSE if nested parallelism is not implemented.
omp_set_nested(3f)