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

1816:                   for (k=P_diag_i[j1]; k < P_diag_i[j1+1]; k++)
1817:                   {
1818:                  k1 = P_diag_j[k];
1819:                      alfa = A_diag_data[j]*P_diag_data[k];
1820:                      P_diag_data[tmp_array[k1]] += alfa;
1821:                      sum_C += alfa;
1822:                      sum_N += alfa;
