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

1516:                for (kk = S_diag_i[i1]; kk < S_diag_i[i1+1]; kk++)
1517:                {
1518:                  k1 = S_diag_j[kk];
1519:                  if (CF_marker[k1] >= 0)
1520:                  {
1521:                    if(P_marker[k1] < jj_begin_row)
1522:                    {
1523:                      P_marker[k1] = jj_counter;
1524:                      P_diag_j[jj_counter] = fine_to_coarse[k1];
1525:                      P_diag_data[jj_counter] = zero;
1526:                      jj_counter++;
