--- a/liboctave/dbleQRP.cc	Sun Feb 11 02:31:58 1996 +0000
+++ b/liboctave/dbleQRP.cc	Sun Feb 11 02:53:20 1996 +0000
@@ -53,6 +53,11 @@
 {
   assert (qr_type != QR::raw);
 
+  tau = 0;
+  work = 0;
+  tmp_data = 0;
+  jpvt = 0;
+
   int m = a.rows ();
   int n = a.cols ();
 
@@ -62,11 +67,12 @@
       return;
     }
 
-  double *tmp_data;
   int min_mn = m < n ? m : n;
-  double *tau = new double[min_mn];
+  tau = new double[min_mn];
+
   int lwork = 3*n;
-  double *work = new double[lwork];
+  work = new double[lwork];
+
   int info = 0;
 
   if (m > n)
@@ -77,7 +83,7 @@
   else
     tmp_data = dup (a.data (), a.length ());
 
-  int *jpvt = new int[n];
+  jpvt = new int[n];
 
   // Clear Pivot vector (code to enforce a certain permutation would
   // go here...)
@@ -85,57 +91,81 @@
   for (int i = 0; i < n; i++)
     jpvt[i] = 0;
 
-  F77_FCN (dgeqpf, DGEQPF) (m, n, tmp_data, m, jpvt, tau, work, info);
-
-  // Form Permutation matrix (if economy is requested, return the
-  // indices only!)
+  F77_XFCN (dgeqpf, DGEQPF, (m, n, tmp_data, m, jpvt, tau, work, info));
 
-  if (qr_type == QR::economy && m > n)
-    {
-      p.resize (1, n, 0.0);
-      for (int j = 0; j < n; j++)
-	p.elem (0, j) = jpvt[j];
-    }
+  delete [] work;
+  work = 0;
+
+  if (f77_exception_encountered)
+    (*current_liboctave_error_handler) ("unrecoverable error in dgeqpf");
   else
     {
-      p.resize (n, n, 0.0);
+      // Form Permutation matrix (if economy is requested, return the
+      // indices only!)
+
+      if (qr_type == QR::economy && m > n)
+	{
+	  p.resize (1, n, 0.0);
+	  for (int j = 0; j < n; j++)
+	    p.elem (0, j) = jpvt[j];
+	}
+      else
+	{
+	  p.resize (n, n, 0.0);
+	  for (int j = 0; j < n; j++)
+	    p.elem (jpvt[j]-1, j) = 1.0;
+	}
+
+      delete [] jpvt;
+      jpvt = 0;
+
+      volatile int n2;
+
+      if (qr_type == QR::economy && m > n)
+	{
+	  n2 = n;
+	  r.resize (n, n, 0.0);
+	}
+      else
+	{
+	  n2 = m;
+	  r.resize (m, n, 0.0);
+	}
+
       for (int j = 0; j < n; j++)
-	p.elem (jpvt[j]-1, j) = 1.0;
+	{
+	  int limit = j < min_mn-1 ? j : min_mn-1;
+	  for (int i = 0; i <= limit; i++)
+	    r.elem (i, j) = tmp_data[m*j+i];
+	}
+
+      lwork = 32*m;
+      work = new double[lwork];
+
+      F77_XFCN (dorgqr, DORGQR, (m, m, min_mn, tmp_data, m, tau, work,
+				 lwork, info));
+
+      if (f77_exception_encountered)
+	(*current_liboctave_error_handler) ("unrecoverable error in dorgqr");
+      else
+	{
+	  q = Matrix (tmp_data, m, m);
+	  tmp_data = 0;
+	  q.resize (m, n2);
+	}
     }
 
+  delete [] tau;
+  tau = 0;
+
+  delete [] work;
+  work = 0;
+
+  delete [] tmp_data;
+  tmp_data = 0;
+
   delete [] jpvt;
-  delete [] work;
-
-  int n2;
-  if (qr_type == QR::economy && m > n)
-    {
-      n2 = n;
-      r.resize (n, n, 0.0);
-    }
-  else
-    {
-      n2 = m;
-      r.resize (m, n, 0.0);
-    }
-
-  for (int j = 0; j < n; j++)
-    {
-      int limit = j < min_mn-1 ? j : min_mn-1;
-      for (int i = 0; i <= limit; i++)
-	r.elem (i, j) = tmp_data[m*j+i];
-    }
-
-  lwork = 32*m;
-  work = new double[lwork];
-
-  F77_FCN (dorgqr, DORGQR) (m, m, min_mn, tmp_data, m, tau, work,
-			    lwork, info);
-
-  q = Matrix (tmp_data, m, m);
-  q.resize (m, n2);
-
-  delete [] tau;
-  delete [] work;
+  jpvt = 0;
 }
 
 /*