105 integer a_dim1, a_offset, i__1, i__2, i__3;
112 int cscal_(
integer *,
complex *,
complex *,
integer *), clarf_(
char *,
integer *,
integer *,
complex *,
integer *,
complex *,
complex *,
integer *,
complex *), clacgv_(
integer *,
complex *,
integer *), xerbla_(
char *,
integer *);
134 a_offset = 1 + a_dim1;
148 else if (*k < 0 || *k > *m)
152 else if (*lda < max(1,*m))
159 xerbla_(
"CUNGL2", &i__1);
180 i__3 = l + j * a_dim1;
185 if (j > *k && j <= *m)
187 i__2 = j + j * a_dim1;
202 clacgv_(&i__1, &a[i__ + (i__ + 1) * a_dim1], lda);
205 i__1 = i__ + i__ * a_dim1;
210 r_cnjg(&q__1, &tau[i__]);
211 clarf_(
"Right", &i__1, &i__2, &a[i__ + i__ * a_dim1], lda, & q__1, &a[i__ + 1 + i__ * a_dim1], lda, &work[1]);
215 q__1.
r = -tau[i__2].
r;
216 q__1.
i = -tau[i__2].
i;
217 cscal_(&i__1, &q__1, &a[i__ + (i__ + 1) * a_dim1], lda);
219 clacgv_(&i__1, &a[i__ + (i__ + 1) * a_dim1], lda);
221 i__1 = i__ + i__ * a_dim1;
222 r_cnjg(&q__2, &tau[i__]);
223 q__1.
r = 1.f - q__2.
r;
224 q__1.
i = 0.f - q__2.
i;
233 i__2 = i__ + l * a_dim1;
real i
Definition: FLA_f2c.h:32
int integer
Definition: FLA_f2c.h:25
real r
Definition: FLA_f2c.h:32