program example7b include "omp_lib.h" integer n call omp_set_nested(.TRUE.) !$omp parallel private(n) n=omp_get_thread_num() !$omp parallel print *, "Часть 1, нить ", n, " - ", & omp_get_thread_num() !$omp end parallel !$omp end parallel call omp_set_nested(.FALSE.) !$omp parallel private(n) n=omp_get_thread_num() !$omp parallel print *, "Часть 2, нить ", n, " - ", & omp_get_thread_num() !$omp end parallel !$omp end parallel end