/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/par_lr_interp.c: 1644 - 1650
--------------------------------------------------------------------------------

1644:                  for(jj1 = A_diag_i[i1]+1; jj1 < A_diag_i[i1+1]; jj1++)
1645:                  {
1646:                    i2 = A_diag_j[jj1];
1647:                    if(P_marker[i2] >= jj_begin_row && (sgn*A_diag_data[jj1]) < 0)
1648:                       P_diag_data[P_marker[i2]] += 
1649:                       distribute*A_diag_data[jj1];
1650:                        if(i2 == i && (sgn*A_diag_data[jj1]) < 0)
