add wait to solutions

4-GPU/HandsOn/.master/C/task5/poisson2d.solution.c

@@ -147,6 +147,8 @@ int main(int argc, char **argv) {
             }
         }
 
+#pragma acc wait
+
         real globalerror = 0.0;
         MPI_Allreduce(&error, &globalerror, 1, MPI_REAL_TYPE, MPI_MAX, MPI_COMM_WORLD);
         error = globalerror;

4-GPU/HandsOn/.master/C/task6/poisson2d.solution.c

@@ -167,6 +167,7 @@ int main(int argc, char **argv) {
                 error = fmaxr(error, fabsr(Anew[iy * nx + ix] - A[iy * nx + ix]));
             }
         }
+#pragma acc wait
 
         real globalerror = 0.0;
         MPI_Allreduce(&error, &globalerror, 1, MPI_REAL_TYPE, MPI_MAX, MPI_COMM_WORLD);

4-GPU/HandsOn/Solution/C/task5/poisson2d.solution.c

@@ -147,6 +147,8 @@ int main(int argc, char **argv) {
             }
         }
 
+#pragma acc wait
+
         real globalerror = 0.0;
         MPI_Allreduce(&error, &globalerror, 1, MPI_REAL_TYPE, MPI_MAX, MPI_COMM_WORLD);
         error = globalerror;

4-GPU/HandsOn/Solution/C/task6/poisson2d.solution.c

@@ -167,6 +167,7 @@ int main(int argc, char **argv) {
                 error = fmaxr(error, fabsr(Anew[iy * nx + ix] - A[iy * nx + ix]));
             }
         }
+#pragma acc wait
 
         real globalerror = 0.0;
         MPI_Allreduce(&error, &globalerror, 1, MPI_REAL_TYPE, MPI_MAX, MPI_COMM_WORLD);