11 int work[NUMBER_OF_THREADS];  variable
30 #pragma omp parallel private(iam,neighbor) shared(work,synch)  in main()
35     /*Do computation into my portion of work array */  in main()
36     work[iam] = fn1 (iam);  in main()
37     /* Announce that I am done with my work. The first flush  in main()
38      * ensures that my work is made visible before synch.  in main()
41 #pragma omp flush(work,synch)  in main()
46      * The second flush ensures that work is read from memory, and  in main()
54 #pragma omp flush(work,synch)  in main()
55     /* Read neighbor's values of work array */  in main()
56     result[iam] = fn2 (work[neighbor], work[iam]);  in main()