151 integer a_dim1, a_offset, c_dim1, c_offset, i__1, i__2, i__3;
156 integer i__, i1, i2, i3, ic, jc, mi, ni, nq;
160 extern logical lsame_(
char *,
char *);
162 int zlarf_(
char *,
integer *,
integer *,
doublecomplex *,
integer *,
doublecomplex *,
doublecomplex *,
integer *,
doublecomplex *), xerbla_(
char *,
integer *), zlacgv_(
integer *,
doublecomplex *,
integer *);
187 a_offset = 1 + a_dim1;
191 c_offset = 1 + c_dim1;
196 left = lsame_(side,
"L");
197 notran = lsame_(trans,
"N");
207 if (! left && ! lsame_(side,
"R"))
211 else if (! notran && ! lsame_(trans,
"C"))
223 else if (*k < 0 || *k > nq)
227 else if (*lda < max(1,*k))
231 else if (*ldc < max(1,*m))
238 xerbla_(
"ZUNML2", &i__1);
242 if (*m == 0 || *n == 0 || *k == 0)
246 if (left && notran || ! left && ! notran)
271 i__2 < 0 ? i__ >= i__1 : i__ <= i__1;
289 d_cnjg(&z__1, &tau[i__]);
296 taui.
r = tau[i__3].
r;
297 taui.
i = tau[i__3].
i;
302 zlacgv_(&i__3, &a[i__ + (i__ + 1) * a_dim1], lda);
304 i__3 = i__ + i__ * a_dim1;
307 i__3 = i__ + i__ * a_dim1;
310 zlarf_(side, &mi, &ni, &a[i__ + i__ * a_dim1], lda, &taui, &c__[ic + jc * c_dim1], ldc, &work[1]);
311 i__3 = i__ + i__ * a_dim1;
317 zlacgv_(&i__3, &a[i__ + (i__ + 1) * a_dim1], lda);
int integer
Definition: FLA_f2c.h:25
int logical
Definition: FLA_f2c.h:36
doublereal i
Definition: FLA_f2c.h:33
doublereal r
Definition: FLA_f2c.h:33