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

Diff for /rpl/lapack/lapack/dlasd6.f between versions 1.16 and 1.17

version 1.16, 2014/01/27 09:28:23 version 1.17, 2015/11/26 11:44:18
Line 164 Line 164
 *>         row.  *>         row.
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[out] IDXQ  *> \param[in,out] IDXQ
 *> \verbatim  *> \verbatim
 *>          IDXQ is INTEGER array, dimension ( N )  *>          IDXQ is INTEGER array, dimension ( N )
 *>         This contains the permutation which will reintegrate the  *>         This contains the permutation which will reintegrate the
Line 298 Line 298
 *> \author Univ. of Colorado Denver   *> \author Univ. of Colorado Denver 
 *> \author NAG Ltd.   *> \author NAG Ltd. 
 *  *
 *> \date September 2012  *> \date November 2015
 *  *
 *> \ingroup auxOTHERauxiliary  *> \ingroup auxOTHERauxiliary
 *  *
Line 314 Line 314
      $                   LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK,       $                   LDGNUM, POLES, DIFL, DIFR, Z, K, C, S, WORK,
      $                   IWORK, INFO )       $                   IWORK, INFO )
 *  *
 *  -- LAPACK auxiliary routine (version 3.4.2) --  *  -- LAPACK auxiliary routine (version 3.6.0) --
 *  -- 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  *     November 2015
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       INTEGER            GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL,        INTEGER            GIVPTR, ICOMPQ, INFO, K, LDGCOL, LDGNUM, NL,
Line 414 Line 414
       CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM,        CALL DLASD8( ICOMPQ, K, D, Z, VF, VL, DIFL, DIFR, LDGNUM,
      $             WORK( ISIGMA ), WORK( IW ), INFO )       $             WORK( ISIGMA ), WORK( IW ), INFO )
 *  *
 *     Handle error returned  *     Report the possible convergence failure.
 *  *
       IF( INFO.NE.0 ) THEN        IF( INFO.NE.0 ) THEN
          CALL XERBLA( 'DLASD8', -INFO )  
          RETURN           RETURN
       END IF        END IF
 *  *
Removed from v.1.16  
changed lines
  Added in v.1.17

CVSweb interface <joel.bertrand@systella.fr>