diff liboctave/dbleSVD.cc @ 7482:29980c6b8604

don't check f77_exception_encountered
author John W. Eaton <jwe@octave.org>
date Thu, 14 Feb 2008 21:57:50 -0500
parents a1dbe9d80eee
children 82be108cc558
line wrap: on
line diff
--- a/liboctave/dbleSVD.cc	Thu Feb 14 17:14:23 2008 -0500
+++ b/liboctave/dbleSVD.cc	Thu Feb 14 21:57:50 2008 -0500
@@ -144,28 +144,18 @@
 			     F77_CHAR_ARG_LEN (1)
 			     F77_CHAR_ARG_LEN (1)));
 
-  if (f77_exception_encountered)
-    (*current_liboctave_error_handler) ("unrecoverable error in dgesvd");
-  else
-    {
-      lwork = static_cast<octave_idx_type> (work(0));
-      work.resize (lwork);
+  lwork = static_cast<octave_idx_type> (work(0));
+  work.resize (lwork);
 
-      F77_XFCN (dgesvd, DGESVD, (F77_CONST_CHAR_ARG2 (&jobu, 1),
-				 F77_CONST_CHAR_ARG2 (&jobv, 1),
-				 m, n, tmp_data, m, s_vec, u, m, vt,
-				 nrow_vt, work.fortran_vec (), lwork, info
-				 F77_CHAR_ARG_LEN (1)
-				 F77_CHAR_ARG_LEN (1)));
+  F77_XFCN (dgesvd, DGESVD, (F77_CONST_CHAR_ARG2 (&jobu, 1),
+			     F77_CONST_CHAR_ARG2 (&jobv, 1),
+			     m, n, tmp_data, m, s_vec, u, m, vt,
+			     nrow_vt, work.fortran_vec (), lwork, info
+			     F77_CHAR_ARG_LEN (1)
+			     F77_CHAR_ARG_LEN (1)));
 
-      if (f77_exception_encountered)
-	(*current_liboctave_error_handler) ("unrecoverable error in dgesvd");
-      else
-	{
-	  if (! (jobv == 'N' || jobv == 'O'))
-	    right_sm = right_sm.transpose ();
-	}
-    }
+  if (! (jobv == 'N' || jobv == 'O'))
+    right_sm = right_sm.transpose ();
 
   return info;
 }