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

646:    for (i=pass_pointer[1]; i < pass_pointer[2]; i++)
647:    {
648:       i1 = pass_array[i];
649:       P_diag_start[i1] = cnt_nz;
650:       P_offd_start[i1] = cnt_nz_offd;
651:       for (j=S_diag_i[i1]; j < S_diag_i[i1+1]; j++)
652:       {
653:          j1 = S_diag_j[j];
654:          if (CF_marker[j1] == 1)
655:          {   P_diag_pass[1][cnt_nz++] = fine_to_coarse[j1]; }
656:       }
657:       for (j=S_offd_i[i1]; j < S_offd_i[i1+1]; j++)
658:       {
659:          j1 = S_offd_j[j];
660:          if (CF_marker_offd[j1] == 1)
661:          {   P_offd_pass[1][cnt_nz_offd++] = map_S_to_new[j1]; }
