# HG changeset patch
# User Lukas Reichlin <lukas.reichlin@swissonline.ch>
# Date 1258708475 -3600
# Node ID 71483d19204fc5865d1cc66684c5d78b1d01a9b3
# Parent  10519b4d65073f6381b0b5e40298e33f4a2324d6
fix krylov

diff -r 10519b4d6507 -r 71483d19204f scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Nov 20 08:19:42 2009 +0100
+++ b/scripts/ChangeLog	Fri Nov 20 10:14:35 2009 +0100
@@ -1,3 +1,7 @@
+2009-11-20  Lukas Reichlin <lukas.reichlin@swissonline.ch>
+
+	* linear-algebra/krylov.m: Add missing swap routine.
+
 2009-11-20  Jaroslav Hajek  <highegg@gmail.com>
 
 	* general/__isequal__.m: Check for isnumeric|islogical.
diff -r 10519b4d6507 -r 71483d19204f scripts/linear-algebra/krylov.m
--- a/scripts/linear-algebra/krylov.m	Fri Nov 20 08:19:42 2009 +0100
+++ b/scripts/linear-algebra/krylov.m	Fri Nov 20 10:14:35 2009 +0100
@@ -237,3 +237,11 @@
   endif
 
 endfunction
+
+
+function [a1, b1] = swap (a, b)
+
+  a1 = b;
+  b1 = a;
+
+endfunction