Mercurial > octave-nkf

diff scripts/linear-algebra/krylov.m @ 10635:d1978e7364ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print name of function in error() string messages.
author Rik <octave@nomad.inbox5.com>
date Sun, 16 May 2010 22:26:54 -0700
parents 95c3e38098bf
children 3140cb7a05a1
line wrap: on
line diff
--- a/scripts/linear-algebra/krylov.m	Sun May 16 18:28:59 2010 -0700
+++ b/scripts/linear-algebra/krylov.m	Sun May 16 22:26:54 2010 -0700
@@ -82,13 +82,13 @@
   endif
 
   if (! issquare (A) || isempty (A))
-    error ("A(%d x %d) must be non-empty square matrix", rows (A), columns (A));
+    error ("krylov: A(%d x %d) must be a non-empty square matrix", rows (A), columns (A));
   endif
   na = rows (A);
 
   [m, kb] = size (V);
   if (m != na)
-    error("A(%d x %d), V(%d x %d): argument dimensions do not match",
+    error ("krylov: A(%d x %d), V(%d x %d): argument dimensions do not match",
           na, na, m, kb)
   endif
 
@@ -185,7 +185,7 @@
       krylov_V = V
       krylov_na = na
       krylov_length_alpha = length (alpha)
-      error ("This case should never happen; submit a bug report");
+      error ("krylov: this case should never happen; submit a bug report");
     endif
 
     if (columns (V) > 0)