使用并行区域的A.3

parallel 指令 (在第 8 页) 的第2.3部分 可用于粗糙谷物并行程序。 在下面的示例中，每个线程在并行区域决定全局数组工作的 x 的哪些部分在中，根据线程数:

#pragma omp parallel shared(x, npoints) private(iam, np, ipoints)
{
    iam = omp_get_thread_num();
    np =  omp_get_num_threads();
    ipoints = npoints / np;
    subdomain(x, iam, ipoints);
}