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

Diff for /rpl/lapack/lapack/dlasd3.f between versions 1.14 and 1.21

version 1.14, 2012/12/14 14:22:35 version 1.21, 2018/05/29 07:18:00
Line 2 Line 2
 *  *
 *  =========== DOCUMENTATION ===========  *  =========== DOCUMENTATION ===========
 *  *
 * Online html documentation available at   * Online html documentation available at
 *            http://www.netlib.org/lapack/explore-html/   *            http://www.netlib.org/lapack/explore-html/
 *  *
 *> \htmlonly  *> \htmlonly
 *> Download DLASD3 + dependencies   *> Download DLASD3 + dependencies
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasd3.f">   *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlasd3.f">
 *> [TGZ]</a>   *> [TGZ]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlasd3.f">   *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlasd3.f">
 *> [ZIP]</a>   *> [ZIP]</a>
 *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasd3.f">   *> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlasd3.f">
 *> [TXT]</a>  *> [TXT]</a>
 *> \endhtmlonly   *> \endhtmlonly
 *  *
 *  Definition:  *  Definition:
 *  ===========  *  ===========
Line 21 Line 21
 *       SUBROUTINE DLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2,  *       SUBROUTINE DLASD3( NL, NR, SQRE, K, D, Q, LDQ, DSIGMA, U, LDU, U2,
 *                          LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z,  *                          LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z,
 *                          INFO )  *                          INFO )
 *   *
 *       .. Scalar Arguments ..  *       .. Scalar Arguments ..
 *       INTEGER            INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR,  *       INTEGER            INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR,
 *      $                   SQRE  *      $                   SQRE
Line 32 Line 32
 *      $                   U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ),  *      $                   U2( LDU2, * ), VT( LDVT, * ), VT2( LDVT2, * ),
 *      $                   Z( * )  *      $                   Z( * )
 *       ..  *       ..
 *    *
 *  *
 *> \par Purpose:  *> \par Purpose:
 *  =============  *  =============
Line 94 Line 94
 *>  *>
 *> \param[out] Q  *> \param[out] Q
 *> \verbatim  *> \verbatim
 *>          Q is DOUBLE PRECISION array,  *>          Q is DOUBLE PRECISION array, dimension (LDQ,K)
 *>                     dimension at least (LDQ,K).  
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in] LDQ  *> \param[in] LDQ
Line 104 Line 103
 *>         The leading dimension of the array Q.  LDQ >= K.  *>         The leading dimension of the array Q.  LDQ >= K.
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in] DSIGMA  *> \param[in,out] DSIGMA
 *> \verbatim  *> \verbatim
 *>          DSIGMA is DOUBLE PRECISION array, dimension(K)  *>          DSIGMA is DOUBLE PRECISION array, dimension(K)
 *>         The first K elements of this array contain the old roots  *>         The first K elements of this array contain the old roots
Line 125 Line 124
 *>         The leading dimension of the array U.  LDU >= N.  *>         The leading dimension of the array U.  LDU >= N.
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in,out] U2  *> \param[in] U2
 *> \verbatim  *> \verbatim
 *>          U2 is DOUBLE PRECISION array, dimension (LDU2, N)  *>          U2 is DOUBLE PRECISION array, dimension (LDU2, N)
 *>         The first K columns of this matrix contain the non-deflated  *>         The first K columns of this matrix contain the non-deflated
Line 187 Line 186
 *>         type is any column which has been deflated.  *>         type is any column which has been deflated.
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in] Z  *> \param[in,out] Z
 *> \verbatim  *> \verbatim
 *>          Z is DOUBLE PRECISION array, dimension (K)  *>          Z is DOUBLE PRECISION array, dimension (K)
 *>         The first K elements of this array contain the components  *>         The first K elements of this array contain the components
Line 205 Line 204
 *  Authors:  *  Authors:
 *  ========  *  ========
 *  *
 *> \author Univ. of Tennessee   *> \author Univ. of Tennessee
 *> \author Univ. of California Berkeley   *> \author Univ. of California Berkeley
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.   *> \author NAG Ltd.
 *  *
 *> \date September 2012  *> \date June 2017
 *  *
 *> \ingroup auxOTHERauxiliary  *> \ingroup OTHERauxiliary
 *  *
 *> \par Contributors:  *> \par Contributors:
 *  ==================  *  ==================
Line 225 Line 224
      $                   LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z,       $                   LDU2, VT, LDVT, VT2, LDVT2, IDXC, CTOT, Z,
      $                   INFO )       $                   INFO )
 *  *
 *  -- LAPACK auxiliary routine (version 3.4.2) --  *  -- LAPACK auxiliary routine (version 3.7.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..--
 *     September 2012  *     June 2017
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       INTEGER            INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR,        INTEGER            INFO, K, LDQ, LDU, LDU2, LDVT, LDVT2, NL, NR,
Line 351 Line 350
          CALL DLASD4( K, J, DSIGMA, Z, U( 1, J ), RHO, D( J ),           CALL DLASD4( K, J, DSIGMA, Z, U( 1, J ), RHO, D( J ),
      $                VT( 1, J ), INFO )       $                VT( 1, J ), INFO )
 *  *
 *        If the zero finder fails, the computation is terminated.  *        If the zero finder fails, report the convergence failure.
 *  *
          IF( INFO.NE.0 ) THEN           IF( INFO.NE.0 ) THEN
             RETURN              RETURN
Removed from v.1.14  
changed lines
  Added in v.1.21

CVSweb interface <joel.bertrand@systella.fr>