X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=lib%2Flinreg%2Fsweep.c;h=7667e3a555db063502eae81dcdd8188921630872;hb=90afc1f0572a82bd6eb4532350b368c685b3cc7b;hp=c218456418c75ccc450d452eeba21f1fcbbf5cda;hpb=b8f1c67b087b875d45c28bcae330910e7723d6c6;p=pspp-builds.git

diff --git a/lib/linreg/sweep.c b/lib/linreg/sweep.c
index c2184564..7667e3a5 100644
--- a/lib/linreg/sweep.c
+++ b/lib/linreg/sweep.c
@@ -106,20 +106,18 @@ reg_sweep (gsl_matrix * A, int last_col)
 		      tmp = gsl_matrix_get (A, i, j) -
 			gsl_matrix_get (A, i, k)
 			* gsl_matrix_get (A, j, k) / sweep_element;
-		      gsl_matrix_set (B, i, j, tmp);
 		    }
 		  else if (j > k)
 		    {
 		      tmp = gsl_matrix_get (A, i, j) -
 			gsl_matrix_get (A, i, k)
 			* gsl_matrix_get (A, k, j) / sweep_element;
-		      gsl_matrix_set (B, i, j, tmp);
 		    }
 		  else
 		    {
 		      tmp = gsl_matrix_get (A, i, k) / sweep_element;
-		      gsl_matrix_set (B, i, j, tmp);
 		    }
+		  gsl_matrix_set (B, i, j, tmp);
 		}
 	    }
 	  /*