Diff for /rpl/lapack/lapack/dla_syrpvgrw.f between versions 1.14 and 1.16

version 1.14, 2018/05/29 07:17:55 version 1.16, 2023/08/07 08:38:52
Line 101 Line 101
 *>     as determined by DSYTRF.  *>     as determined by DSYTRF.
 *> \endverbatim  *> \endverbatim
 *>  *>
 *> \param[in] WORK  *> \param[out] WORK
 *> \verbatim  *> \verbatim
 *>          WORK is DOUBLE PRECISION array, dimension (2*N)  *>          WORK is DOUBLE PRECISION array, dimension (2*N)
 *> \endverbatim  *> \endverbatim
Line 114 Line 114
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  
 *  
 *> \ingroup doubleSYcomputational  *> \ingroup doubleSYcomputational
 *  *
 *  =====================================================================  *  =====================================================================
       DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF,        DOUBLE PRECISION FUNCTION DLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF,
      $                                        LDAF, IPIV, WORK )       $                                        LDAF, IPIV, WORK )
 *  *
 *  -- LAPACK computational routine (version 3.7.0) --  *  -- LAPACK computational routine --
 *  -- 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..--
 *     December 2016  
 *  *
 *     .. Scalar Arguments ..  *     .. Scalar Arguments ..
       CHARACTER*1        UPLO        CHARACTER*1        UPLO
Line 317 Line 314
       END IF        END IF
   
       DLA_SYRPVGRW = RPVGRW        DLA_SYRPVGRW = RPVGRW
   *
   *     End of DLA_SYRPVGRW
   *
       END        END

Removed from v.1.14  
changed lines
  Added in v.1.16


CVSweb interface <joel.bertrand@systella.fr>