1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
|
---
:name: dlarscl2
:md5sum: ccf9a7110b886c2acac2362579620076
:category: :subroutine
:arguments:
- m:
:type: integer
:intent: input
- n:
:type: integer
:intent: input
- d:
:type: doublereal
:intent: input
:dims:
- m
- x:
:type: doublereal
:intent: input/output
:dims:
- ldx
- n
- ldx:
:type: integer
:intent: input
:substitutions: {}
:fortran_help: " SUBROUTINE DLARSCL2 ( M, N, D, X, LDX )\n\n\
* Purpose\n\
* =======\n\
*\n\
* DLARSCL2 performs a reciprocal diagonal scaling on an vector:\n\
* x <-- inv(D) * x\n\
* where the diagonal matrix D is stored as a vector.\n\
*\n\
* Eventually to be replaced by BLAS_dge_diag_scale in the new BLAS\n\
* standard.\n\
*\n\n\
* Arguments\n\
* =========\n\
*\n\
* M (input) INTEGER\n\
* The number of rows of D and X. M >= 0.\n\
*\n\
* N (input) INTEGER\n\
* The number of columns of D and X. N >= 0.\n\
*\n\
* D (input) DOUBLE PRECISION array, dimension (M)\n\
* Diagonal matrix D, stored as a vector of length M.\n\
*\n\
* X (input/output) DOUBLE PRECISION array, dimension (LDX,N)\n\
* On entry, the vector X to be scaled by D.\n\
* On exit, the scaled vector.\n\
*\n\
* LDX (input) INTEGER\n\
* The leading dimension of the vector X. LDX >= 0.\n\
*\n\n\
* =====================================================================\n\
*\n\
* .. Local Scalars ..\n INTEGER I, J\n\
* ..\n"
|