/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/ams.c: 602 - 629
--------------------------------------------------------------------------------

602:       for (i = 0; i < num_rows; i++)
603:       {
604:          l1_norm[i] = 0.0;
605:          if (cf_marker == NULL)
606:          {
607:             /* Add the l1 norm of the diag part of the ith row */
608:             for (j = A_diag_I[i]; j < A_diag_I[i+1]; j++)
609:                l1_norm[i] += fabs(A_diag_data[j]);
610:             /* Add the l1 norm of the offd part of the ith row */
611:             if (num_cols_offd)
612:             {
613:                for (j = A_offd_I[i]; j < A_offd_I[i+1]; j++)
614:                   l1_norm[i] += fabs(A_offd_data[j]);
615:             }
616:          }
617:          else
618:          {
619:             cf_diag = cf_marker[i];
620:             /* Add the CF l1 norm of the diag part of the ith row */
621:             for (j = A_diag_I[i]; j < A_diag_I[i+1]; j++)
622:                if (cf_diag == cf_marker[A_diag_J[j]])
623:                   l1_norm[i] += fabs(A_diag_data[j]);
624:             /* Add the CF l1 norm of the offd part of the ith row */
625:             if (num_cols_offd)
626:             {
627:                for (j = A_offd_I[i]; j < A_offd_I[i+1]; j++)
628:                   if (cf_diag == cf_marker_offd[A_offd_J[j]])
629:                      l1_norm[i] += fabs(A_offd_data[j]);
