diff options
Diffstat (limited to 'src/lib/lapack')
| -rw-r--r-- | src/lib/lapack/zgelsy.f | 16 |
1 files changed, 8 insertions, 8 deletions
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. * |