[BACK]Return to zgelss.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack

Diff for /rpl/lapack/lapack/zgelss.f between versions 1.12 and 1.13

version 1.12, 2014/01/27 09:28:32 version 1.13, 2016/08/27 15:27:12
Line 170 Line 170
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd.   *> \author NAG Ltd. 
 *  *
 *> \date November 2011  *> \date June 2016
 *  *
 *> \ingroup complex16GEsolve  *> \ingroup complex16GEsolve
 *  *
Line 178 Line 178
       SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK,        SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK,
      $                   WORK, LWORK, RWORK, INFO )       $                   WORK, LWORK, RWORK, INFO )
 *  *
 *  -- LAPACK driver routine (version 3.4.0) --  *  -- LAPACK driver routine (version 3.6.1) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --  *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--  *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     November 2011  *     June 2016
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       INTEGER            INFO, LDA, LDB, LWORK, M, N, NRHS, RANK        INTEGER            INFO, LDA, LDB, LWORK, M, N, NRHS, RANK
Line 285 Line 285
 *              Path 1 - overdetermined or exactly determined  *              Path 1 - overdetermined or exactly determined
 *  *
 *              Compute space needed for ZGEBRD  *              Compute space needed for ZGEBRD
                CALL ZGEBRD( MM, N, A, LDA, S, DUM(1), DUM(1),                 CALL ZGEBRD( MM, N, A, LDA, S, S, DUM(1), DUM(1), DUM(1),
      $                      DUM(1), DUM(1), -1, INFO )       $                      -1, INFO )
                LWORK_ZGEBRD=DUM(1)                 LWORK_ZGEBRD=DUM(1)
 *              Compute space needed for ZUNMBR  *              Compute space needed for ZUNMBR
                CALL ZUNMBR( 'Q', 'L', 'C', MM, NRHS, N, A, LDA, DUM(1),                 CALL ZUNMBR( 'Q', 'L', 'C', MM, NRHS, N, A, LDA, DUM(1),
Line 315 Line 315
      $                -1, INFO )       $                -1, INFO )
                   LWORK_ZGELQF=DUM(1)                    LWORK_ZGELQF=DUM(1)
 *                 Compute space needed for ZGEBRD  *                 Compute space needed for ZGEBRD
                   CALL ZGEBRD( M, M, A, LDA, S, DUM(1), DUM(1),                    CALL ZGEBRD( M, M, A, LDA, S, S, DUM(1), DUM(1),
      $                      DUM(1), DUM(1), -1, INFO )       $                         DUM(1), -1, INFO )
                   LWORK_ZGEBRD=DUM(1)                    LWORK_ZGEBRD=DUM(1)
 *                 Compute space needed for ZUNMBR  *                 Compute space needed for ZUNMBR
                   CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA,                     CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, N, A, LDA, 
Line 346 Line 346
 *                 Path 2 - underdetermined  *                 Path 2 - underdetermined
 *  *
 *                 Compute space needed for ZGEBRD  *                 Compute space needed for ZGEBRD
                   CALL ZGEBRD( M, N, A, LDA, S, DUM(1), DUM(1),                    CALL ZGEBRD( M, N, A, LDA, S, S, DUM(1), DUM(1),
      $                      DUM(1), DUM(1), -1, INFO )       $                         DUM(1), -1, INFO )
                   LWORK_ZGEBRD=DUM(1)                    LWORK_ZGEBRD=DUM(1)
 *                 Compute space needed for ZUNMBR  *                 Compute space needed for ZUNMBR
                   CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA,                     CALL ZUNMBR( 'Q', 'L', 'C', M, NRHS, M, A, LDA, 
Removed from v.1.12  
changed lines
  Added in v.1.13

CVSweb interface <joel.bertrand@systella.fr>