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
|
---
:name: csrscl
:md5sum: 2d5e6bc7ca9f51ad75c919ce98a07627
:category: :subroutine
:arguments:
- n:
:type: integer
:intent: input
- sa:
:type: real
:intent: input
- sx:
:type: complex
:intent: input/output
:dims:
- 1+(n-1)*abs(incx)
- incx:
:type: integer
:intent: input
:substitutions: {}
:fortran_help: " SUBROUTINE CSRSCL( N, SA, SX, INCX )\n\n\
* Purpose\n\
* =======\n\
*\n\
* CSRSCL multiplies an n-element complex vector x by the real scalar\n\
* 1/a. This is done without overflow or underflow as long as\n\
* the final result x/a does not overflow or underflow.\n\
*\n\n\
* Arguments\n\
* =========\n\
*\n\
* N (input) INTEGER\n\
* The number of components of the vector x.\n\
*\n\
* SA (input) REAL\n\
* The scalar a which is used to divide each component of x.\n\
* SA must be >= 0, or the subroutine will divide by zero.\n\
*\n\
* SX (input/output) COMPLEX array, dimension\n\
* (1+(N-1)*abs(INCX))\n\
* The n-element vector x.\n\
*\n\
* INCX (input) INTEGER\n\
* The increment between successive values of the vector SX.\n\
* > 0: SX(1) = X(1) and SX(1+(i-1)*INCX) = x(i), 1< i<= n\n\
*\n\n\
* =====================================================================\n\
*\n"
|
