LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ cgemlq()

subroutine cgemlq ( character  side,
character  trans,
integer  m,
integer  n,
integer  k,
complex, dimension( lda, * )  a,
integer  lda,
complex, dimension( * )  t,
integer  tsize,
complex, dimension( ldc, * )  c,
integer  ldc,
complex, dimension( * )  work,
integer  lwork,
integer  info 
)

CGEMLQ

Purpose:
     CGEMLQ overwrites the general real M-by-N matrix C with

                      SIDE = 'L'     SIDE = 'R'
      TRANS = 'N':      Q * C          C * Q
      TRANS = 'C':      Q**H * C       C * Q**H
      where Q is a complex unitary matrix defined as the product
      of blocked elementary reflectors computed by short wide
      LQ factorization (CGELQ)
Parameters
[in]SIDE
          SIDE is CHARACTER*1
          = 'L': apply Q or Q**H from the Left;
          = 'R': apply Q or Q**H from the Right.
[in]TRANS
          TRANS is CHARACTER*1
          = 'N':  No transpose, apply Q;
          = 'C':  Conjugate transpose, apply Q**H.
[in]M
          M is INTEGER
          The number of rows of the matrix A.  M >=0.
[in]N
          N is INTEGER
          The number of columns of the matrix C. N >= 0.
[in]K
          K is INTEGER
          The number of elementary reflectors whose product defines
          the matrix Q.
          If SIDE = 'L', M >= K >= 0;
          if SIDE = 'R', N >= K >= 0.
[in]A
          A is COMPLEX array, dimension
                               (LDA,M) if SIDE = 'L',
                               (LDA,N) if SIDE = 'R'
          Part of the data structure to represent Q as returned by CGELQ.
[in]LDA
          LDA is INTEGER
          The leading dimension of the array A. LDA >= max(1,K).
[in]T
          T is COMPLEX array, dimension (MAX(5,TSIZE)).
          Part of the data structure to represent Q as returned by CGELQ.
[in]TSIZE
          TSIZE is INTEGER
          The dimension of the array T. TSIZE >= 5.
[in,out]C
          C is COMPLEX array, dimension (LDC,N)
          On entry, the M-by-N matrix C.
          On exit, C is overwritten by Q*C or Q**H*C or C*Q**H or C*Q.
[in]LDC
          LDC is INTEGER
          The leading dimension of the array C. LDC >= max(1,M).
[out]WORK
         (workspace) COMPLEX array, dimension (MAX(1,LWORK))
[in]LWORK
          LWORK is INTEGER
          The dimension of the array WORK.
          If LWORK = -1, then a workspace query is assumed. The routine
          only calculates the size of the WORK array, returns this
          value as WORK(1), and no error message related to WORK
          is issued by XERBLA.
[out]INFO
          INFO is INTEGER
          = 0:  successful exit
          < 0:  if INFO = -i, the i-th argument had an illegal value
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Further Details
 These details are particular for this LAPACK implementation. Users should not
 take them for granted. These details may change in the future, and are not likely
 true for another LAPACK implementation. These details are relevant if one wants
 to try to understand the code. They are not part of the interface.

 In this version,

          T(2): row block size (MB)
          T(3): column block size (NB)
          T(6:TSIZE): data structure needed for Q, computed by
                           CLASWQR or CGELQT

  Depending on the matrix dimensions M and N, and row and column
  block sizes MB and NB returned by ILAENV, CGELQ will use either
  CLASWLQ (if the matrix is wide-and-short) or CGELQT to compute
  the LQ factorization.
  This version of CGEMLQ will use either CLAMSWLQ or CGEMLQT to
  multiply matrix Q by another matrix.
  Further Details in CLAMSWLQ or CGEMLQT.

Definition at line 170 of file cgemlq.f.

172*
173* -- LAPACK computational routine --
174* -- LAPACK is a software package provided by Univ. of Tennessee, --
175* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
176*
177* .. Scalar Arguments ..
178 CHARACTER SIDE, TRANS
179 INTEGER INFO, LDA, M, N, K, TSIZE, LWORK, LDC
180* ..
181* .. Array Arguments ..
182 COMPLEX A( LDA, * ), T( * ), C( LDC, * ), WORK( * )
183* ..
184*
185* =====================================================================
186*
187* ..
188* .. Local Scalars ..
189 LOGICAL LEFT, RIGHT, TRAN, NOTRAN, LQUERY
190 INTEGER MB, NB, LW, NBLCKS, MN
191* ..
192* .. External Functions ..
193 LOGICAL LSAME
194 EXTERNAL lsame
195* ..
196* .. External Subroutines ..
197 EXTERNAL clamswlq, cgemlqt, xerbla
198* ..
199* .. Intrinsic Functions ..
200 INTRINSIC int, max, min, mod
201* ..
202* .. Executable Statements ..
203*
204* Test the input arguments
205*
206 lquery = lwork.EQ.-1
207 notran = lsame( trans, 'N' )
208 tran = lsame( trans, 'C' )
209 left = lsame( side, 'L' )
210 right = lsame( side, 'R' )
211*
212 mb = int( t( 2 ) )
213 nb = int( t( 3 ) )
214 IF( left ) THEN
215 lw = n * mb
216 mn = m
217 ELSE
218 lw = m * mb
219 mn = n
220 END IF
221*
222 IF( ( nb.GT.k ) .AND. ( mn.GT.k ) ) THEN
223 IF( mod( mn - k, nb - k ) .EQ. 0 ) THEN
224 nblcks = ( mn - k ) / ( nb - k )
225 ELSE
226 nblcks = ( mn - k ) / ( nb - k ) + 1
227 END IF
228 ELSE
229 nblcks = 1
230 END IF
231*
232 info = 0
233 IF( .NOT.left .AND. .NOT.right ) THEN
234 info = -1
235 ELSE IF( .NOT.tran .AND. .NOT.notran ) THEN
236 info = -2
237 ELSE IF( m.LT.0 ) THEN
238 info = -3
239 ELSE IF( n.LT.0 ) THEN
240 info = -4
241 ELSE IF( k.LT.0 .OR. k.GT.mn ) THEN
242 info = -5
243 ELSE IF( lda.LT.max( 1, k ) ) THEN
244 info = -7
245 ELSE IF( tsize.LT.5 ) THEN
246 info = -9
247 ELSE IF( ldc.LT.max( 1, m ) ) THEN
248 info = -11
249 ELSE IF( ( lwork.LT.max( 1, lw ) ) .AND. ( .NOT.lquery ) ) THEN
250 info = -13
251 END IF
252*
253 IF( info.EQ.0 ) THEN
254 work( 1 ) = real( lw )
255 END IF
256*
257 IF( info.NE.0 ) THEN
258 CALL xerbla( 'CGEMLQ', -info )
259 RETURN
260 ELSE IF( lquery ) THEN
261 RETURN
262 END IF
263*
264* Quick return if possible
265*
266 IF( min( m, n, k ).EQ.0 ) THEN
267 RETURN
268 END IF
269*
270 IF( ( left .AND. m.LE.k ) .OR. ( right .AND. n.LE.k )
271 $ .OR. ( nb.LE.k ) .OR. ( nb.GE.max( m, n, k ) ) ) THEN
272 CALL cgemlqt( side, trans, m, n, k, mb, a, lda,
273 $ t( 6 ), mb, c, ldc, work, info )
274 ELSE
275 CALL clamswlq( side, trans, m, n, k, mb, nb, a, lda, t( 6 ),
276 $ mb, c, ldc, work, lwork, info )
277 END IF
278*
279 work( 1 ) = real( lw )
280*
281 RETURN
282*
283* End of CGEMLQ
284*
subroutine xerbla(srname, info)
Definition cblat2.f:3285
subroutine cgemlqt(side, trans, m, n, k, mb, v, ldv, t, ldt, c, ldc, work, info)
CGEMLQT
Definition cgemlqt.f:153
subroutine clamswlq(side, trans, m, n, k, mb, nb, a, lda, t, ldt, c, ldc, work, lwork, info)
CLAMSWLQ
Definition clamswlq.f:197
logical function lsame(ca, cb)
LSAME
Definition lsame.f:48
Here is the call graph for this function:
Here is the caller graph for this function: