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

2000:          for (ic = ic_begin; ic < ic_end; ic++)
[...]
2006:              HYPRE_Int i1 = coarse_to_fine[ic];
2007:        
2008:              HYPRE_Int jj_row_begin_diag = num_nonzeros_diag;
2009:              HYPRE_Int jj_row_begin_offd = num_nonzeros_offd;
2010: 
2011:              for (jj1 = S_diag_i[i1]; jj1 < S_diag_i[i1+1]; jj1++)
2012:              {
2013:                  i2 = S_diag_j[jj1];
2014:                  if (CF_marker[i2] > 0)
2015:                  {
2016:                     index = fine_to_coarse[i2];
2017:                     if (S_marker[index] < jj_row_begin_diag)
2018:                     {
2019:                        S_marker[index] = num_nonzeros_diag;
2020:                        C_diag_j[num_nonzeros_diag] = index;
2021:                        num_nonzeros_diag++;
2022:                     }
2023:                  }
2024:                  for (jj2 = S_diag_i[i2]; jj2 < S_diag_i[i2+1]; jj2++)
2025:                  {
2026:                     i3 = S_diag_j[jj2];
2027:                     if (CF_marker[i3] > 0)
2028:                     {
2029:                        index = fine_to_coarse[i3];
2030:                        if (index != ic && S_marker[index] < jj_row_begin_diag)
2031:                        {
2032:                           S_marker[index] = num_nonzeros_diag;
2033:                           C_diag_j[num_nonzeros_diag] = index;
2034:                           num_nonzeros_diag++;
2035:                        }
2036:                     }
2037:                  }
2038:                  for (jj2 = S_offd_i[i2]; jj2 < S_offd_i[i2+1]; jj2++)
2039:                  {
2040:                     i3 = S_offd_j[jj2];
2041:                     if (CF_marker_offd[i3] > 0)
2042:                     {
2043:                        index = map_S_to_C[i3];
2044:                        if (S_marker_offd[index] < jj_row_begin_offd)
2045:                        {
2046:                           S_marker_offd[index] = num_nonzeros_offd;
2047:                           C_offd_j[num_nonzeros_offd] = index;
2048:                           num_nonzeros_offd++;
2049:                        }
2050:                     }
2051:                  }
2052:              }
2053:              for (jj1 = S_offd_i[i1]; jj1 < S_offd_i[i1+1]; jj1++)
2054:              {
2055:                  i2 = S_offd_j[jj1];
2056:                  if (CF_marker_offd[i2] > 0)
2057:                  {
2058:                     index = map_S_to_C[i2];
2059:                     if (S_marker_offd[index] < jj_row_begin_offd)
2060:                     {
2061:                        S_marker_offd[index] = num_nonzeros_offd;
2062:                        C_offd_j[num_nonzeros_offd] = index;
2063:                        num_nonzeros_offd++;
2064:                     }
2065:                  }
2066:                  for (jj2 = S_ext_diag_i[i2]; jj2 < S_ext_diag_i[i2+1]; jj2++)
2067:                  {
2068:                     i3 = S_ext_diag_j[jj2];
2069:                     if (i3 != ic && S_marker[i3] < jj_row_begin_diag)
2070:                     {
2071:                        S_marker[i3] = num_nonzeros_diag;
2072:                        C_diag_j[num_nonzeros_diag] = i3;
2073:                        num_nonzeros_diag++;
2074:                     }
2075:                  }
2076:                  for (jj2 = S_ext_offd_i[i2]; jj2 < S_ext_offd_i[i2+1]; jj2++)
2077:                  {
2078:                     i3 = S_ext_offd_j[jj2];
2079:                     if (S_marker_offd[i3] < jj_row_begin_offd)
2080:                     {
2081:                        S_marker_offd[i3] = num_nonzeros_offd;
2082:                        C_offd_j[num_nonzeros_offd] = i3;
2083:                        num_nonzeros_offd++;
