diff options
| author | simon | 2008-07-29 08:05:04 +0000 |
|---|---|---|
| committer | simon | 2008-07-29 08:05:04 +0000 |
| commit | ea392df771cf9aa7acd7ec8b38dad404fd72bfa9 (patch) | |
| tree | 094a624fc6a123d75c48786b07c07db748cf619c /src/lib/lapack/zgelsy.f | |
| parent | 96d72e22c73a591f924a3b334658cc7edb28dda1 (diff) | |
| download | scilab2c-ea392df771cf9aa7acd7ec8b38dad404fd72bfa9.tar.gz scilab2c-ea392df771cf9aa7acd7ec8b38dad404fd72bfa9.tar.bz2 scilab2c-ea392df771cf9aa7acd7ec8b38dad404fd72bfa9.zip | |
added missing files
Diffstat (limited to 'src/lib/lapack/zgelsy.f')
| -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. * |