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

2516: #pragma omp parallel private(ig,i)
2517: #endif
2518:      {
2519:         HYPRE_Int private_graph_size_cnt = 0;
2520:         HYPRE_Int private_graph_offd_size_cnt = 0;
2521: 
2522:         HYPRE_Int ig_begin, ig_end;
2523:         hypre_GetSimpleThreadPartition(&ig_begin, &ig_end, graph_size);
2524: 
2525:         HYPRE_Int ig_offd_begin, ig_offd_end;
2526:         hypre_GetSimpleThreadPartition(&ig_offd_begin, &ig_offd_end, graph_offd_size);
2527: 
2528:         for (ig = ig_begin; ig < ig_end; ig++)
2529:         {
2530:            i = graph_array[ig];
2531: 
2532:            if (CF_marker[i]!=0) /* C or F point */
2533:            {
2534:               /* the independent set subroutine needs measure 0 for
2535:                  removed nodes */
2536:               measure_array[i] = 0;
2537:            }
2538:            else
2539:            {
2540:               private_graph_size_cnt++;
2541:            }
2542:         }
2543: 
2544:         for (ig = ig_offd_begin; ig < ig_offd_end; ig++)
2545:         {
2546:            i = graph_array_offd[ig];
2547: 
2548:            if (CF_marker_offd[i]!=0) /* C of F point */
2549:            {
2550:               /* the independent set subroutine needs measure 0 for
2551:                  removed nodes */
2552:               measure_array[i + num_variables] = 0;
2553:            }
2554:            else
2555:            {
2556:               private_graph_offd_size_cnt++;
2557:            }
2558:         }
2559: 
2560:         hypre_prefix_sum_pair(&private_graph_size_cnt, &graph_size, &private_graph_offd_size_cnt, &graph_offd_size, prefix_sum_workspace);
2561: 
2562:         for (ig = ig_begin; ig < ig_end; ig++)
2563:         {
2564:            i = graph_array[ig];
2565:            if (CF_marker[i]==0)
2566:            {
2567:               graph_array2[private_graph_size_cnt++] = i;
2568:            }
2569:         }
2570: 
2571:         for (ig = ig_offd_begin; ig < ig_offd_end; ig++)
2572:         {
2573:            i = graph_array_offd[ig];
2574:            if (CF_marker_offd[i]==0)
2575:            {
2576:               graph_array_offd2[private_graph_offd_size_cnt++] = i;
