[BACK]Return to dlascl2.f CVS log [TXT] [DIR] Up to [local] / rpl / lapack / lapack
File:  [local] / rpl / lapack / lapack / dlascl2.f
Revision 1.4: download - view: text, annotated - select for diffs - revision graph
Tue Dec 21 13:53:32 2010 UTC (13 years, 4 months ago) by bertrand
Branches: MAIN
CVS tags: rpl-4_1_3, rpl-4_1_2, rpl-4_1_1, rpl-4_1_0, rpl-4_0_24, rpl-4_0_22, rpl-4_0_21, rpl-4_0_20, rpl-4_0, HEAD
Mise à jour de lapack vers la version 3.3.0.

    1:       SUBROUTINE DLASCL2 ( M, N, D, X, LDX )
    2: *
    3: *     -- LAPACK routine (version 3.2.1)                               --
    4: *     -- Contributed by James Demmel, Deaglan Halligan, Yozo Hida and --
    5: *     -- Jason Riedy of Univ. of California Berkeley.                 --
    6: *     -- April 2009                                                   --
    7: *
    8: *     -- LAPACK is a software package provided by Univ. of Tennessee, --
    9: *     -- Univ. of California Berkeley and NAG Ltd.                    --
   10: *
   11:       IMPLICIT NONE
   12: *     ..
   13: *     .. Scalar Arguments ..
   14:       INTEGER            M, N, LDX
   15: *     ..
   16: *     .. Array Arguments ..
   17:       DOUBLE PRECISION   D( * ), X( LDX, * )
   18: *     ..
   19: *
   20: *  Purpose
   21: *  =======
   22: *
   23: *  DLASCL2 performs a diagonal scaling on a vector:
   24: *    x <-- D * x
   25: *  where the diagonal matrix D is stored as a vector.
   26: *
   27: *  Eventually to be replaced by BLAS_dge_diag_scale in the new BLAS
   28: *  standard.
   29: *
   30: *  Arguments
   31: *  =========
   32: *
   33: *     M       (input) INTEGER
   34: *     The number of rows of D and X. M >= 0.
   35: *
   36: *     N       (input) INTEGER
   37: *     The number of columns of D and X. N >= 0.
   38: *
   39: *     D       (input) DOUBLE PRECISION array, length M
   40: *     Diagonal matrix D, stored as a vector of length M.
   41: *
   42: *     X       (input/output) DOUBLE PRECISION array, dimension (LDX,N)
   43: *     On entry, the vector X to be scaled by D.
   44: *     On exit, the scaled vector.
   45: *
   46: *     LDX     (input) INTEGER
   47: *     The leading dimension of the vector X. LDX >= 0.
   48: *
   49: *  =====================================================================
   50: *
   51: *     .. Local Scalars ..
   52:       INTEGER            I, J
   53: *     ..
   54: *     .. Executable Statements ..
   55: *
   56:       DO J = 1, N
   57:          DO I = 1, M
   58:             X( I, J ) = X( I, J ) * D( I )
   59:          END DO
   60:       END DO
   61: 
   62:       RETURN
   63:       END
CVSweb interface <joel.bertrand@systella.fr>