Mercurial > octave-nkf

diff libcruft/lapack/zgelss.f @ 3754:e63a3a6d7797

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-12-14 21:57:14 by jwe]
author jwe
date Thu, 14 Dec 2000 21:57:15 +0000
parents edcaebe1b81b
children 68db500cb558
line wrap: on
line diff
--- a/libcruft/lapack/zgelss.f	Thu Dec 14 03:01:24 2000 +0000
+++ b/libcruft/lapack/zgelss.f	Thu Dec 14 21:57:15 2000 +0000
@@ -512,8 +512,8 @@
             DO 40 I = 1, NRHS, CHUNK
                BL = MIN( NRHS-I+1, CHUNK )
                CALL ZGEMM( 'C', 'N', M, BL, M, CONE, WORK( IL ), LDWORK,
-     $                     B( 1, I ), LDB, CZERO, WORK( IWORK ), N )
-               CALL ZLACPY( 'G', M, BL, WORK( IWORK ), N, B( 1, I ),
+     $                     B( 1, I ), LDB, CZERO, WORK( IWORK ), M )
+               CALL ZLACPY( 'G', M, BL, WORK( IWORK ), M, B( 1, I ),
      $                      LDB )
    40       CONTINUE
          ELSE