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

2798: #pragma omp parallel for private (i,j,j0,temp)
2799: #endif 
2800:          for (i=0; i < num_rows; i++)
2801:          {
2802:    	    j0 = diag_i[i];
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;
