removed lapack-3.5.0

2015-11-20 09:41:59 +01:00
parent 0d22551a6b
commit 64db4576e6
5436 changed files with 0 additions and 1500436 deletions
@@ -1,119 +0,0 @@
-*> \brief \b DLASCL2 performs diagonal scaling on a vector.
-*
-*  =========== DOCUMENTATION ===========
-*
-* Online html documentation available at 
-*            http://www.netlib.org/lapack/explore-html/ 
-*
-*> \htmlonly
-*> Download DLASCL2 + dependencies 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.tgz?format=tgz&filename=/lapack/lapack_routine/dlascl2.f"> 
-*> [TGZ]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.zip?format=zip&filename=/lapack/lapack_routine/dlascl2.f"> 
-*> [ZIP]</a> 
-*> <a href="http://www.netlib.org/cgi-bin/netlibfiles.txt?format=txt&filename=/lapack/lapack_routine/dlascl2.f"> 
-*> [TXT]</a>
-*> \endhtmlonly 
-*
-*  Definition:
-*  ===========
-*
-*       SUBROUTINE DLASCL2 ( M, N, D, X, LDX )
-* 
-*       .. Scalar Arguments ..
-*       INTEGER            M, N, LDX
-*       ..
-*       .. Array Arguments ..
-*       DOUBLE PRECISION   D( * ), X( LDX, * )
-*       ..
-*  
-*
-*> \par Purpose:
-*  =============
-*>
-*> \verbatim
-*>
-*> DLASCL2 performs a diagonal scaling on a vector:
-*>   x <-- D * x
-*> where the diagonal matrix D is stored as a vector.
-*>
-*> Eventually to be replaced by BLAS_dge_diag_scale in the new BLAS
-*> standard.
-*> \endverbatim
-*
-*  Arguments:
-*  ==========
-*
-*> \param[in] M
-*> \verbatim
-*>          M is INTEGER
-*>     The number of rows of D and X. M >= 0.
-*> \endverbatim
-*>
-*> \param[in] N
-*> \verbatim
-*>          N is INTEGER
-*>     The number of columns of D and X. N >= 0.
-*> \endverbatim
-*>
-*> \param[in] D
-*> \verbatim
-*>          D is DOUBLE PRECISION array, length M
-*>     Diagonal matrix D, stored as a vector of length M.
-*> \endverbatim
-*>
-*> \param[in,out] X
-*> \verbatim
-*>          X is DOUBLE PRECISION array, dimension (LDX,N)
-*>     On entry, the vector X to be scaled by D.
-*>     On exit, the scaled vector.
-*> \endverbatim
-*>
-*> \param[in] LDX
-*> \verbatim
-*>          LDX is INTEGER
-*>     The leading dimension of the vector X. LDX >= 0.
-*> \endverbatim
-*
-*  Authors:
-*  ========
-*
-*> \author Univ. of Tennessee 
-*> \author Univ. of California Berkeley 
-*> \author Univ. of Colorado Denver 
-*> \author NAG Ltd. 
-*
-*> \date September 2012
-*
-*> \ingroup doubleOTHERcomputational
-*
-*  =====================================================================
-      SUBROUTINE DLASCL2 ( M, N, D, X, LDX )
-*
-*  -- LAPACK computational routine (version 3.4.2) --
-*  -- LAPACK is a software package provided by Univ. of Tennessee,    --
-*  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-*     September 2012
-*
-*     .. Scalar Arguments ..
-      INTEGER            M, N, LDX
-*     ..
-*     .. Array Arguments ..
-      DOUBLE PRECISION   D( * ), X( LDX, * )
-*     ..
-*
-*  =====================================================================
-*
-*     .. Local Scalars ..
-      INTEGER            I, J
-*     ..
-*     .. Executable Statements ..
-*
-      DO J = 1, N
-         DO I = 1, M
-            X( I, J ) = X( I, J ) * D( I )
-         END DO
-      END DO
-
-      RETURN
-      END