105 integer a_dim1, a_offset, i__1, i__2, i__3;
112 int zscal_(
integer *,
doublecomplex *,
doublecomplex *,
integer *), zlarf_(
char *,
integer *,
integer *,
doublecomplex *,
integer *,
doublecomplex *,
doublecomplex *,
integer *,
doublecomplex *), xerbla_(
char *,
integer *), zlacgv_(
integer *,
doublecomplex *,
integer *);
134 a_offset = 1 + a_dim1;
148 else if (*k < 0 || *k > *m)
152 else if (*lda < max(1,*m))
159 xerbla_(
"ZUNGL2", &i__1);
180 i__3 = l + j * a_dim1;
185 if (j > *k && j <= *m)
187 i__2 = j + j * a_dim1;
202 zlacgv_(&i__1, &a[i__ + (i__ + 1) * a_dim1], lda);
205 i__1 = i__ + i__ * a_dim1;
210 d_cnjg(&z__1, &tau[i__]);
211 zlarf_(
"Right", &i__1, &i__2, &a[i__ + i__ * a_dim1], lda, & z__1, &a[i__ + 1 + i__ * a_dim1], lda, &work[1]);
215 z__1.
r = -tau[i__2].
r;
216 z__1.
i = -tau[i__2].
i;
217 zscal_(&i__1, &z__1, &a[i__ + (i__ + 1) * a_dim1], lda);
219 zlacgv_(&i__1, &a[i__ + (i__ + 1) * a_dim1], lda);
221 i__1 = i__ + i__ * a_dim1;
222 d_cnjg(&z__2, &tau[i__]);
223 z__1.
r = 1. - z__2.
r;
224 z__1.
i = 0. - z__2.
i;
233 i__2 = i__ + l * a_dim1;
doublereal r
Definition: FLA_f2c.h:33
doublereal i
Definition: FLA_f2c.h:33
int integer
Definition: FLA_f2c.h:25