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

488:    for (i = pass_array_size-1; i > cnt-1; i--)
489:    {
490:      i1 = pass_array[i];
491:      for (j=S_diag_i[i1]; j < S_diag_i[i1+1]; j++)
492:      {
493:         j1 = S_diag_j[j];
494:         if (CF_marker[j1] == 1)
495:         {
496:            P_diag_i[i1+1]++;
497:            cnt_nz++;
498:            assigned[i1] = 1;
499:         }
500:      }
501:      for (j=S_offd_i[i1]; j < S_offd_i[i1+1]; j++)
502:      {
503:         j1 = S_offd_j[j];
504:         if (CF_marker_offd[j1] == 1)
505:         {
506:            P_offd_i[i1+1]++;
507:            cnt_nz_offd++;
508:            assigned[i1] = 1;
509:         }
510:      }
511:      if (assigned[i1] == 1)
512:      {
513:         pass_array[i++] = pass_array[cnt];
514:         pass_array[cnt++] = i1;
