Mercurial > hg > octave-nkf

diff liboctave/CmplxQRP.h @ 1922:8a57554f3142

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-02-11 02:53:20 by jwe]
author jwe
date Sun, 11 Feb 1996 02:53:20 +0000
parents 950825cea083
children 20353fa5f83d
line wrap: on
line diff
--- a/liboctave/CmplxQRP.h
+++ b/liboctave/CmplxQRP.h
@@ -37,7 +37,7 @@
 {
 public:
 
-  ComplexQRP (void) : ComplexQR (), p () { }
+  ComplexQRP (void) : ComplexQR (), p (), jpvt (0), rwork (0) { }
 
   ComplexQRP (const ComplexMatrix& A, QR::type qr_type = QR::std);
 
@@ -53,6 +53,12 @@
       return *this;
     }
 
+  ~ComplexQRP (void)
+    {
+      delete [] jpvt;
+      delete [] rwork;
+    }
+
   Matrix P (void) const { return p; }
 
   friend ostream&  operator << (ostream& os, const ComplexQRP& a);
@@ -60,6 +66,9 @@
 private:
 
   Matrix p;
+
+  int *jpvt;
+  double *rwork;
 };
 
 #endif