/beegfs/hackathon/users/eoseret/qaas_runs_test/178-668-9639/intel/AMG/build/AMG/AMG/parcsr_mv/par_csr_matop.c: 3489 - 3528
--------------------------------------------------------------------------------

3489:         for (ik = ns; ik < ne; ik++)
3490:         {
3491:           for (jk = C_tmp_diag_i[ik]; jk < C_tmp_diag_i[ik+1]; jk++)
3492:           {
3493:              jcol = C_tmp_diag_j[jk];
3494:              B_marker[jcol] = ik;
3495: 	     nnz_d++;
3496:           }
3497:           for (jk = C_tmp_offd_i[ik]; jk < C_tmp_offd_i[ik+1]; jk++)
3498:           {
3499:              jcol = C_tmp_offd_j[jk];
3500:              B_marker_offd[jcol] = ik;
3501: 	     nnz_o++;
3502:           }
3503:           for (jk = 0; jk < num_sends_A; jk++)
3504:             for (j1 = send_map_starts_A[jk]; j1 < send_map_starts_A[jk+1]; j1++)
3505:              if (send_map_elmts_A[j1] == ik)
3506:              {
3507:                 for (j2 = C_ext_diag_i[j1]; j2 < C_ext_diag_i[j1+1]; j2++)
3508:                 {
3509:                     jcol = C_ext_diag_j[j2];
3510:  	            if (B_marker[jcol] < ik)
3511:                     {
3512:                        B_marker[jcol] = ik;
3513: 	               nnz_d++;
3514:                     }
3515:                 }
3516:                 for (j2 = C_ext_offd_i[j1]; j2 < C_ext_offd_i[j1+1]; j2++)
3517:                 {
3518:                     jcol = C_ext_offd_j[j2];
3519:  	            if (B_marker_offd[jcol] < ik)
3520:                     {
3521:                        B_marker_offd[jcol] = ik;
3522: 	               nnz_o++;
3523:                     }
3524:                 }
3525:                 break;
3526:              }
3527:                C_diag_array[ii] = nnz_d;
3528:                C_offd_array[ii] = nnz_o;
