Diff for /rpl/lapack/lapack/zla_syrpvgrw.f between versions 1.13 and 1.17

version 1.13, 2017/06/17 10:54:18 version 1.17, 2023/08/07 08:39:28
Line 102 Line 102
 *>     as determined by ZSYTRF.  *>     as determined by ZSYTRF.
 *> \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 115 Line 115
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  
 *  
 *> \ingroup complex16SYcomputational  *> \ingroup complex16SYcomputational
 *  *
 *  =====================================================================  *  =====================================================================
       DOUBLE PRECISION FUNCTION ZLA_SYRPVGRW( UPLO, N, INFO, A, LDA, AF,        DOUBLE PRECISION FUNCTION ZLA_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 328 Line 325
       END IF        END IF
   
       ZLA_SYRPVGRW = RPVGRW        ZLA_SYRPVGRW = RPVGRW
   *
   *     End of ZLA_SYRPVGRW
   *
       END        END

Removed from v.1.13  
changed lines
  Added in v.1.17


CVSweb interface <joel.bertrand@systella.fr>