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

2232:       for (i=0; i < num_variables; i++)
2233:       {
2234:          CF_marker[i] = 0;
2235:          if ( (S_diag_i[i+1]-S_diag_i[i]) == 0
2236:                 && (S_offd_i[i+1]-S_offd_i[i]) == 0)
2237:          {
2238:             CF_marker[i] = SF_PT; /* an isolated fine grid */
2239:             if (CF_init == 3 || CF_init == 4) CF_marker[i] = C_PT; 
2240:             measure_array[i] = 0;
2241:          }
2242:          else
2243:             graph_array[cnt++] = i;
