--- lapack.h.orig	2008-05-02 21:06:17.000000000 +0100
+++ lapack.h	2008-06-09 15:25:48.905180000 +0100
@@ -13,6 +13,7 @@
  * University of Zagreb, Croatia.
  *
  */
+/* Modified to include xGEQP3 by Kian Ming A. Chai (14 May 2008) */
 
 #ifndef BOOST_NUMERIC_BINDINGS_LAPACK_LAPACK_H
 #define BOOST_NUMERIC_BINDINGS_LAPACK_LAPACK_H
@@ -468,6 +469,16 @@ extern "C" {
                       dcomplex_t* tau, dcomplex_t* work, const int* lwork, int* info );
 
 
+  void LAPACK_SGEQP3( const int* m, const int* n, float* a, const int* lda, int *jpvt,
+                      float* tau, float* work, const int* lwork, int* info );
+  void LAPACK_DGEQP3( const int* m, const int* n, double* a, const int* lda, int *jpvt,
+                      double* tau, double* work, const int* lwork, int* info );
+  void LAPACK_CGEQP3( const int* m, const int* n, fcomplex_t* a, const int* lda, int *jpvt,
+                      fcomplex_t* tau, fcomplex_t* work, const int* lwork, int* info );
+  void LAPACK_ZGEQP3( const int* m, const int* n, dcomplex_t* a, const int* lda, int *jpvt,
+                      dcomplex_t* tau, dcomplex_t* work, const int* lwork, int* info );
+
+
 
   void LAPACK_SORMQR( const char* side, const char* trans, const int* m,
                       const int* n, const int* k, const float* a,