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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
@@ -380,7 +380,6 @@ L20:
static logical nota, notb;
static complex temp;
static logical conja, conjb;
- static integer ncola;
extern logical lsame_(char *, char *);
static integer nrowa, nrowb;
extern /* Subroutine */ int xerbla_(char *, integer *);
@@ -514,7 +513,7 @@ L20:
Set NOTA and NOTB as true if A and B respectively are not
conjugated or transposed, set CONJA and CONJB as true if A and
B respectively are to be transposed but not conjugated and set
- NROWA, NCOLA and NROWB as the number of rows and columns of A
+ NROWA and NROWB as the number of rows and columns of A
and the number of rows of B respectively.
*/
@@ -536,10 +535,8 @@ L20:
conjb = lsame_(transb, "C");
if (nota) {
nrowa = *m;
- ncola = *k;
} else {
nrowa = *k;
- ncola = *m;
}
if (notb) {
nrowb = *k;
@@ -6850,7 +6847,6 @@ L60:
static integer i__, j, l, info;
static logical nota, notb;
static doublereal temp;
- static integer ncola;
extern logical lsame_(char *, char *);
static integer nrowa, nrowb;
extern /* Subroutine */ int xerbla_(char *, integer *);
@@ -6982,7 +6978,7 @@ L60:
Set NOTA and NOTB as true if A and B respectively are not
- transposed and set NROWA, NCOLA and NROWB as the number of rows
+ transposed and set NROWA and NROWB as the number of rows
and columns of A and the number of rows of B respectively.
*/
@@ -7002,10 +6998,8 @@ L60:
notb = lsame_(transb, "N");
if (nota) {
nrowa = *m;
- ncola = *k;
} else {
nrowa = *k;
- ncola = *m;
}
if (notb) {
nrowb = *k;
@@ -11454,7 +11448,6 @@ L60:
static integer i__, j, l, info;
static logical nota, notb;
static real temp;
- static integer ncola;
extern logical lsame_(char *, char *);
static integer nrowa, nrowb;
extern /* Subroutine */ int xerbla_(char *, integer *);
@@ -11586,7 +11579,7 @@ L60:
Set NOTA and NOTB as true if A and B respectively are not
- transposed and set NROWA, NCOLA and NROWB as the number of rows
+ transposed and set NROWA and NROWB as the number of rows
and columns of A and the number of rows of B respectively.
*/
@@ -11606,10 +11599,8 @@ L60:
notb = lsame_(transb, "N");
if (nota) {
nrowa = *m;
- ncola = *k;
} else {
nrowa = *k;
- ncola = *m;
}
if (notb) {
nrowb = *k;
@@ -15667,7 +15658,6 @@ L20:
static logical nota, notb;
static doublecomplex temp;
static logical conja, conjb;
- static integer ncola;
extern logical lsame_(char *, char *);
static integer nrowa, nrowb;
extern /* Subroutine */ int xerbla_(char *, integer *);
@@ -15801,7 +15791,7 @@ L20:
Set NOTA and NOTB as true if A and B respectively are not
conjugated or transposed, set CONJA and CONJB as true if A and
B respectively are to be transposed but not conjugated and set
- NROWA, NCOLA and NROWB as the number of rows and columns of A
+ NROWA and NROWB as the number of rows and columns of A
and the number of rows of B respectively.
*/
@@ -15823,10 +15813,8 @@ L20:
conjb = lsame_(transb, "C");
if (nota) {
nrowa = *m;
- ncola = *k;
} else {
nrowa = *k;
- ncola = *m;
}
if (notb) {
nrowb = *k;
|
