Quentin Spencer c6b0f7
Index: liboctave/SparseCmplxQR.h
Quentin Spencer c6b0f7
===================================================================
Quentin Spencer c6b0f7
RCS file: /cvs/octave/liboctave/SparseCmplxQR.h,v
Quentin Spencer c6b0f7
retrieving revision 1.2
Quentin Spencer c6b0f7
diff -u -r1.2 SparseCmplxQR.h
Quentin Spencer c6b0f7
--- liboctave/SparseCmplxQR.h   8 Mar 2006 20:17:38 -0000       1.2
Quentin Spencer c6b0f7
+++ liboctave/SparseCmplxQR.h   23 Mar 2006 17:56:07 -0000
Quentin Spencer c6b0f7
@@ -137,6 +137,23 @@
Quentin Spencer c6b0f7
 #endif
Quentin Spencer c6b0f7
 };
Quentin Spencer c6b0f7
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+// Publish externally used friend functions.
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern ComplexMatrix qrsolve (const SparseComplexMatrix &a, const Matrix &b,
Quentin Spencer c6b0f7
+                             octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a,
Quentin Spencer c6b0f7
+                                   const SparseMatrix &b,
Quentin Spencer c6b0f7
+                                   octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern ComplexMatrix qrsolve (const SparseComplexMatrix &a,
Quentin Spencer c6b0f7
+                             const ComplexMatrix &b,
Quentin Spencer c6b0f7
+                             octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern SparseComplexMatrix qrsolve (const SparseComplexMatrix &a,
Quentin Spencer c6b0f7
+                                   const SparseComplexMatrix &b,
Quentin Spencer c6b0f7
+                                   octave_idx_type &info);
Quentin Spencer c6b0f7
 #endif
Quentin Spencer c6b0f7
Quentin Spencer c6b0f7
 /*
Quentin Spencer c6b0f7
Index: liboctave/SparseQR.h
Quentin Spencer c6b0f7
===================================================================
Quentin Spencer c6b0f7
RCS file: /cvs/octave/liboctave/SparseQR.h,v
Quentin Spencer c6b0f7
retrieving revision 1.2
Quentin Spencer c6b0f7
diff -u -r1.2 SparseQR.h
Quentin Spencer c6b0f7
--- liboctave/SparseQR.h        8 Mar 2006 20:17:38 -0000       1.2
Quentin Spencer c6b0f7
+++ liboctave/SparseQR.h        23 Mar 2006 17:56:07 -0000
Quentin Spencer c6b0f7
@@ -133,6 +133,22 @@
Quentin Spencer c6b0f7
 #endif
Quentin Spencer c6b0f7
 };
Quentin Spencer c6b0f7
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+// Publish externally used friend functions.
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern Matrix qrsolve (const SparseMatrix &a, const Matrix &b,
Quentin Spencer c6b0f7
+                      octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern SparseMatrix qrsolve (const SparseMatrix &a, const SparseMatrix &b,
Quentin Spencer c6b0f7
+                            octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern ComplexMatrix qrsolve (const SparseMatrix &a, const ComplexMatrix &b,
Quentin Spencer c6b0f7
+                             octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
+extern SparseComplexMatrix qrsolve (const SparseMatrix &a,
Quentin Spencer c6b0f7
+                                   const SparseComplexMatrix &b,
Quentin Spencer c6b0f7
+                                   octave_idx_type &info);
Quentin Spencer c6b0f7
+
Quentin Spencer c6b0f7
 #endif
Quentin Spencer c6b0f7
Quentin Spencer c6b0f7
 /*
Quentin Spencer e2944b
Index: liboctave/CSparse.cc
Quentin Spencer e2944b
===================================================================
Quentin Spencer e2944b
RCS file: /cvs/octave/liboctave/CSparse.cc,v
Quentin Spencer e2944b
retrieving revision 1.22
Quentin Spencer e2944b
diff -u -r1.22 CSparse.cc
Quentin Spencer e2944b
--- liboctave/CSparse.cc        22 Mar 2006 22:58:12 -0000      1.22
Quentin Spencer e2944b
+++ liboctave/CSparse.cc        24 Mar 2006 14:23:38 -0000
Quentin Spencer e2944b
@@ -4273,7 +4273,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (zpbtrf, ZPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer e2944b
@@ -4548,7 +4548,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (zpbtrf, ZPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer e2944b
@@ -4899,7 +4899,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (zpbtrf, ZPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer e2944b
@@ -5176,7 +5176,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (zpbtrf, ZPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer e2944b
Index: liboctave/dSparse.cc
Quentin Spencer e2944b
===================================================================
Quentin Spencer e2944b
RCS file: /cvs/octave/liboctave/dSparse.cc,v
Quentin Spencer e2944b
retrieving revision 1.21
Quentin Spencer e2944b
diff -u -r1.21 dSparse.cc
Quentin Spencer e2944b
--- liboctave/dSparse.cc        22 Mar 2006 22:58:12 -0000      1.21
Quentin Spencer e2944b
+++ liboctave/dSparse.cc        24 Mar 2006 14:23:39 -0000
Quentin Spencer e2944b
@@ -4376,7 +4376,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (dpbtrf, DPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer e2944b
@@ -4652,7 +4652,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (dpbtrf, DPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer e2944b
@@ -5003,7 +5003,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (dpbtrf, DPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),
Quentin Spencer e2944b
@@ -5350,7 +5350,7 @@
Quentin Spencer e2944b
          // Calculate the norm of the matrix, for later use.
Quentin Spencer e2944b
          double anorm;
Quentin Spencer e2944b
          if (calc_cond)
Quentin Spencer e2944b
-           anorm = m_band.abs().sum().row(0).max();
Quentin Spencer e2944b
+           anorm = m_band.abs().sum().row(static_cast<octave_idx_type>(0)).max();
Quentin Spencer e2944b
Quentin Spencer e2944b
          char job = 'L';
Quentin Spencer e2944b
          F77_XFCN (dpbtrf, DPBTRF, (F77_CONST_CHAR_ARG2 (&job, 1),