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

451:                for (jA = A_diag_i[i]+1; jA < A_diag_i[i+1]; jA++)
452:                {
453:                   if (A_diag_data[jA] >= strength_threshold * row_scale)
454:                   {
455:                      S_temp_diag_j[jA] = -1;
456:                      --jS_diag;
457:                   }
458:                   else
459:                   {
460:                      S_temp_diag_j[jA] = A_diag_j[jA];
