学习OpenMP的copyin中的小疑问

Question

int COPYIN_A = 100;
#pragma omp threadprivate(COPYIN_A)  
void TestCopyin2()
{
    omp_set_num_threads(4);
#pragma omp parallel
    {
        printf("No.%d - Initial COPYIN_A = %d\n", omp_get_thread_num(), COPYIN_A);
        COPYIN_A = omp_get_thread_num();
        printf("get threadNo COPYIN_A: %d\n", COPYIN_A);
    }
    printf("Global COPYIN_A: %d\n\n", COPYIN_A);

#pragma omp parallel copyin(COPYIN_A)            // copyin
    {
        printf("No.%d - Initial COPYIN_A = %d\n", omp_get_thread_num(), COPYIN_A);
        COPYIN_A = omp_get_thread_num();
        printf("get threadNo COPYIN_A: %d\n", COPYIN_A);
    }
    printf("Global COPYIN_A: %d\n\n", COPYIN_A);

#pragma omp parallel                // Will not copy, to check the result.
    {
        printf("No.%d - Initial COPYIN_A = %d\n", omp_get_thread_num(), COPYIN_A);
        COPYIN_A = omp_get_thread_num();
        printf("get threadNo COPYIN_A: %d\n", COPYIN_A);
    }
    printf("Global COPYIN_A: %d\n", COPYIN_A);
}

为什么每一段的Global COPYIN_A的值永远等于0？为什么第三段COPYIN_A的赋值在输出之后，但输出的COPYIN_A值与后面的赋值之后的COPYIN_A值一致？

Answer 1

第一段，初始值是人为给定的100，结束值为线程号；
输出 Global 的语句，没在并行域中，因此是主线程执行，输出主线程的值；
第二段，使用了copyin，每个线程的初始值等于主线程的值，也就是 0；结束后，各个线程的值等于线程号；
第三段，初始值为线程号，是第二段修改的。