/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/par_multi_interp.c: 385 - 399
--------------------------------------------------------------------------------

385:    for (i = 0; i < n_fine; i++)
386:    {
387:       if (CF_marker[i] == 1)
388:       {
389:          fine_to_coarse[i] = cnt; /* this C point is assigned index
390:                                      coarse_counter on coarse grid,
391:                                      and in column of P */
392:          C_array[cnt++] = i;
393:          assigned[i] = 0;
394:          P_diag_i[i+1] = 1; /* one element in row i1 of P */
395:          P_offd_i[i+1] = 0;
396:       }
397:       else if (CF_marker[i] == -1)
398:       {
399:          pass_array[p_cnt--] = i;
