/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/par_strength.c: 1743 - 1752
--------------------------------------------------------------------------------

1743:                  for (jj2 = S_diag_i[i2]; jj2 < S_diag_i[i2+1]; jj2++)
1744:                  {
1745:                     i3 = S_diag_j[jj2];
1746:                     if (CF_marker[i3] > 0)
1747:                     {
1748:                        index = fine_to_coarse[i3];
1749:                        if (index != ic && S_marker[index] < jj_row_begin_diag)
1750:                        {
1751:                           S_marker[index] = num_nonzeros_diag;
1752:                           num_nonzeros_diag++;
