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

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -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 --git a/scripts/linear-algebra/krylov.m b/scripts/linear-algebra/krylov.m
--- a/scripts/linear-algebra/krylov.m
+++ b/scripts/linear-algebra/krylov.m
@@ -237,3 +237,11 @@
   endif
 
 endfunction
+
+
+function [a1, b1] = swap (a, b)
+
+  a1 = b;
+  b1 = a;
+
+endfunction