/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/par_coarse_parms.c: 76 - 146
--------------------------------------------------------------------------------

76: {
[...]
84:    HYPRE_Int            local_coarse_size = 0;
[...]
92:    hypre_MPI_Comm_size(comm,&num_procs);
93: 
94:    for (i=0; i < local_num_variables; i++)
95:    {
96:       if (CF_marker[i] == 1) local_coarse_size++;
97:    }
98:    if (num_functions > 1)
99:    {
100:       coarse_dof_func = hypre_CTAlloc(HYPRE_Int,local_coarse_size);
101: 
102:       local_coarse_size = 0;
103:       for (i=0; i < local_num_variables; i++)
104:       {
105:          if (CF_marker[i] == 1)
106:             coarse_dof_func[local_coarse_size++] = dof_func[i];
107:       }
108:       *coarse_dof_func_ptr    = coarse_dof_func;
[...]
116:       coarse_pnts_global = hypre_CTAlloc(HYPRE_Int,2);
117:       hypre_MPI_Scan(&local_coarse_size, &scan_recv, 1, HYPRE_MPI_INT, hypre_MPI_SUM, comm);
118:       /* first point in my range */ 
119:       coarse_pnts_global[0] = scan_recv - local_coarse_size;
120:       /* first point in next proc's range */
121:       coarse_pnts_global[1] = scan_recv;
[...]
139:    *coarse_pnts_global_ptr = coarse_pnts_global;
[...]
146: }
