/home/kcamus/qaas_runs/169-443-9681/intel/AMG/build/AMG/AMG/IJ_mv/IJMatrix_parcsr.c: 2803 - 2812
--------------------------------------------------------------------------------

2803:    	    for (j=j0; j < diag_i[i+1]; j++)
2804:    	    {
2805:    	       diag_j[j] -= col_0;
2806:    	       if (diag_j[j] == i)
2807:    	       {
2808:    	          temp = diag_data[j0];
2809:    	          diag_data[j0] = diag_data[j];
2810:    	          diag_data[j] = temp;
2811:    	          diag_j[j] = diag_j[j0];
2812:    	          diag_j[j0] = i;
