/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/parcsr_ls/par_lr_interp.c: 1264 - 1303
--------------------------------------------------------------------------------

1264:            for (jj = S_diag_i[i]; jj < S_diag_i[i+1]; jj++)
1265:            {
1266:              i1 = S_diag_j[jj];           
1267:              if (CF_marker[i1] >= 0)
1268:              { /* i1 is a C point */
1269:                if (P_marker[i1] < P_diag_i[i])
1270:                {
1271:                  P_marker[i1] = jj_counter;
1272:                  jj_counter++;
1273:                }
1274:              }
1275:              else if (CF_marker[i1] != -3)
1276:              { /* i1 is a F point, loop through it's strong neighbors */
1277:                for (kk = S_diag_i[i1]; kk < S_diag_i[i1+1]; kk++)
1278:                {
1279:                  k1 = S_diag_j[kk];
1280:                  if (CF_marker[k1] >= 0)
1281:                  {
1282:                    if(P_marker[k1] < P_diag_i[i])
1283:                    {
1284:                      P_marker[k1] = jj_counter;
1285:                      jj_counter++;
1286:                    }
1287:                  } 
1288:                }
1289:                if(num_procs > 1)
1290:                {
1291:                  for (kk = S_offd_i[i1]; kk < S_offd_i[i1+1]; kk++)
1292:                  {
1293:                    if(col_offd_S_to_A)
1294:                      k1 = col_offd_S_to_A[S_offd_j[kk]];
1295:                    else
1296:                      k1 = S_offd_j[kk];
1297:                    if (CF_marker_offd[k1] >= 0)
1298:                    {
1299:                      if(P_marker_offd[k1] < P_offd_i[i])
1300:                      {
1301:                        tmp_CF_marker_offd[k1] = 1;
1302:                        P_marker_offd[k1] = jj_counter_offd;
1303:                        jj_counter_offd++;
