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

1618:              for (j=A_diag_i[i1]+1; j < A_diag_i[i1+1]; j++)
1619:              {
1620:                 j1 = A_diag_j[j];
1621:                 if (CF_marker[j1] != -3 && 
1622:                    (num_functions == 1 || dof_func[i1] == dof_func[j1]))
1623:                    sum_N += A_diag_data[j];
1624:                 if (j1 != -1 && tmp_marker[j1] == i1)
1625:                 {
1626:                    P_diag_data[cnt] = A_diag_data[j];
1627:                    P_diag_j[cnt++] = fine_to_coarse[j1];
1628:                    sum_C += A_diag_data[j];
