Diff for /rpl/lapack/lapack/dla_porpvgrw.f between versions 1.13 and 1.16

version 1.13, 2017/06/17 11:06:21 version 1.16, 2023/08/07 08:38:52
Line 85 Line 85
 *>     The leading dimension of the array AF.  LDAF >= max(1,N).  *>     The leading dimension of the array AF.  LDAF >= max(1,N).
 *> \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 98 Line 98
 *> \author Univ. of Colorado Denver  *> \author Univ. of Colorado Denver
 *> \author NAG Ltd.  *> \author NAG Ltd.
 *  *
 *> \date December 2016  
 *  
 *> \ingroup doublePOcomputational  *> \ingroup doublePOcomputational
 *  *
 *  =====================================================================  *  =====================================================================
       DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF,        DOUBLE PRECISION FUNCTION DLA_PORPVGRW( UPLO, NCOLS, A, LDA, AF,
      $                                        LDAF, WORK )       $                                        LDAF, 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 207 Line 204
       END IF        END IF
   
       DLA_PORPVGRW = RPVGRW        DLA_PORPVGRW = RPVGRW
   *
   *     End of DLA_PORPVGRW
   *
       END        END

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


CVSweb interface <joel.bertrand@systella.fr>