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

Diff for /rpl/lapack/lapack/zlalsd.f between versions 1.8 and 1.9

version 1.8, 2010/12/21 13:53:50 version 1.9, 2011/07/22 07:38:17
Line 1 Line 1
       SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,        SUBROUTINE ZLALSD( UPLO, SMLSIZ, N, NRHS, D, E, B, LDB, RCOND,
      $                   RANK, WORK, RWORK, IWORK, INFO )       $                   RANK, WORK, RWORK, IWORK, INFO )
 *  *
 *  -- LAPACK routine (version 3.2.2) --  *  -- LAPACK routine (version 3.3.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..--
 *     June 2010  *  -- April 2011                                                      --
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER          UPLO        CHARACTER          UPLO
Line 245 Line 245
          END IF           END IF
 *  *
 *        In the real version, B is passed to DLASDQ and multiplied  *        In the real version, B is passed to DLASDQ and multiplied
 *        internally by Q'. Here B is complex and that product is  *        internally by Q**H. Here B is complex and that product is
 *        computed below in two steps (real and imaginary parts).  *        computed below in two steps (real and imaginary parts).
 *  *
          J = IRWB - 1           J = IRWB - 1
Line 290 Line 290
 *  *
 *        Since B is complex, the following call to DGEMM is performed  *        Since B is complex, the following call to DGEMM is performed
 *        in two steps (real and imaginary parts). That is for V * B  *        in two steps (real and imaginary parts). That is for V * B
 *        (in the real version of the code V' is stored in WORK).  *        (in the real version of the code V**H is stored in WORK).
 *  *
 *        CALL DGEMM( 'T', 'N', N, NRHS, N, ONE, WORK, N, B, LDB, ZERO,  *        CALL DGEMM( 'T', 'N', N, NRHS, N, ONE, WORK, N, B, LDB, ZERO,
 *    $               WORK( NWORK ), N )  *    $               WORK( NWORK ), N )
Line 431 Line 431
                END IF                 END IF
 *  *
 *              In the real version, B is passed to DLASDQ and multiplied  *              In the real version, B is passed to DLASDQ and multiplied
 *              internally by Q'. Here B is complex and that product is  *              internally by Q**H. Here B is complex and that product is
 *              computed below in two steps (real and imaginary parts).  *              computed below in two steps (real and imaginary parts).
 *  *
                J = IRWB - 1                 J = IRWB - 1
Removed from v.1.8  
changed lines
  Added in v.1.9

CVSweb interface <joel.bertrand@systella.fr>