/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/par_coarsen.c: 2354 - 2381
--------------------------------------------------------------------------------

2354: #pragma omp parallel for private(ig, i, jS, j, jj) HYPRE_SMP_SCHEDULE
2355: #endif
2356:         for (ig = 0; ig < graph_size; ig++)
2357:         {
2358:            i = graph_array[ig];
2359:            if (measure_array[i] > 1)
2360:            {
2361:               for (jS = S_diag_i[i]; jS < S_diag_i[i+1]; jS++)
2362:               {
2363:                  j = S_diag_j[jS];
2364:                  if (measure_array[j] > 1)
2365:                  {
2366:                     if (measure_array[i] > measure_array[j])
2367:                        CF_marker[j] = 0;
2368:                     else if (measure_array[j] > measure_array[i])
2369:                        CF_marker[i] = 0;
2370:                  }
2371:               } /* for each local neighbor j of i */
2372:               for (jS = S_offd_i[i]; jS < S_offd_i[i+1]; jS++)
2373:               {
2374:                  jj = S_offd_j[jS];
2375:                  j = num_variables+jj;
2376:                  if (measure_array[j] > 1)
2377:                  {
2378:                     if (measure_array[i] > measure_array[j])
2379:                        CF_marker_offd[jj] = 0;
2380:                     else if (measure_array[j] > measure_array[i])
2381:                        CF_marker[i] = 0;
