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

2446:        if(measure_array[i]<1.) CF_marker[i]= F_PT;
[...]
2453:        if (CF_marker[i] > 0) CF_marker[i] = C_PT;
[...]
2465: 	 for (jS = S_diag_i[i]; jS < S_diag_i[i+1]; jS++) 
2466:          {
2467: 	   /* j is the column number, or the local number of the point influencing i */
2468: 	   j = S_diag_j[jS];
2469: 	   if (CF_marker[j] > 0) /* j is a C-point */
2470: 	     CF_marker[i] = F_PT;
2471: 	 }
2472: 	 /* now the external part */
2473: 	 for (jS = S_offd_i[i]; jS < S_offd_i[i+1]; jS++) 
2474: 	 {
2475: 	   j = S_offd_j[jS];
2476: 	   if (CF_marker_offd[j] > 0) /* j is a C-point */
2477: 	     CF_marker[i] = F_PT;
