From ea392df771cf9aa7acd7ec8b38dad404fd72bfa9 Mon Sep 17 00:00:00 2001
From: simon
Date: Tue, 29 Jul 2008 08:05:04 +0000
Subject: added missing files

---
 src/lib/lapack/zgelsy.f | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/lib/lapack/zgelsy.f')

diff --git a/src/lib/lapack/zgelsy.f b/src/lib/lapack/zgelsy.f
index 684cf2c2..95aece58 100644
--- a/src/lib/lapack/zgelsy.f
+++ b/src/lib/lapack/zgelsy.f
@@ -311,9 +311,9 @@
 *
 *     [R11,R12] = [ T11, 0 ] * Y
 *
-      IF( RANK.LT.N )
-     $   CALL ZTZRZF( RANK, N, A, LDA, WORK( MN+1 ), WORK( 2*MN+1 ),
-     $                LWORK-2*MN, INFO )
+c      IF( RANK.LT.N )
+c     $   CALL ZTZRZF( RANK, N, A, LDA, WORK( MN+1 ), WORK( 2*MN+1 ),
+c     $                LWORK-2*MN, INFO )
 *
 *     complex workspace: 2*MN.
 *     Details of Householder rotations stored in WORK(MN+1:2*MN)
@@ -339,11 +339,11 @@
 *
 *     B(1:N,1:NRHS) := Y' * B(1:N,1:NRHS)
 *
-      IF( RANK.LT.N ) THEN
-         CALL ZUNMRZ( 'Left', 'Conjugate transpose', N, NRHS, RANK,
-     $                N-RANK, A, LDA, WORK( MN+1 ), B, LDB,
-     $                WORK( 2*MN+1 ), LWORK-2*MN, INFO )
-      END IF
+c      IF( RANK.LT.N ) THEN
+c         CALL ZUNMRZ( 'Left', 'Conjugate transpose', N, NRHS, RANK,
+c     $                N-RANK, A, LDA, WORK( MN+1 ), B, LDB,
+c     $                WORK( 2*MN+1 ), LWORK-2*MN, INFO )
+c      END IF
 *
 *     complex workspace: 2*MN+NRHS.
 *
-- 
cgit