PZUNMHR(l) | LAPACK routine (version 1.5) | PZUNMHR(l) |
NAME¶
PZUNMHR - overwrite the general complex M-by-N distributed matrix sub( C ) = C(IC:IC+M-1,JC:JC+N-1) with SIDE = 'L' SIDE = 'R' TRANS = 'N'SYNOPSIS¶
- SUBROUTINE PZUNMHR(
- SIDE, TRANS, M, N, ILO, IHI, A, IA, JA, DESCA, TAU, C, IC, JC, DESCC, WORK, LWORK, INFO )
- CHARACTER
- SIDE, TRANS
- INTEGER
- IA, IC, IHI, ILO, INFO, JA, JC, LWORK, M, N
- INTEGER
- DESCA( * ), DESCC( * )
- COMPLEX*16
- A( * ), C( * ), TAU( * ), WORK( * )
PURPOSE¶
PZUNMHR overwrites the general complex M-by-N distributed matrix sub( C ) = C(IC:IC+M-1,JC:JC+N-1) with TRANS = 'C': Q**H * sub( C ) sub( C ) * Q**HDTYPE_A = 1.
the BLACS process grid A is distribu-
ted over. The context itself is glo-
bal, but the handle (the integer
value) may vary.
array A.
array A.
the rows of the array.
the columns of the array.
row of the array A is distributed. CSRC_A (global) DESCA( CSRC_ ) The process column over which the
first column of the array A is
distributed.
array. LLD_A >= MAX(1,LOCr(M_A)).
LOCr( M ) = NUMROC( M, MB_A, MYROW, RSRC_A, NPROW ),
LOCc( N ) = NUMROC( N, NB_A, MYCOL, CSRC_A, NPCOL ). An upper bound for these quantities may be computed by:
LOCr( M ) <= ceil( ceil(M/MB_A)/NPROW )*MB_A
LOCc( N ) <= ceil( ceil(N/NB_A)/NPCOL )*NB_A
ARGUMENTS¶
- SIDE (global input) CHARACTER
- = 'L': apply Q or Q**H from the Left;
- TRANS (global input) CHARACTER
-
- M (global input) INTEGER
- The number of rows to be operated on i.e the number of rows of the distributed submatrix sub( C ). M >= 0.
- N (global input) INTEGER
- The number of columns to be operated on i.e the number of columns of the distributed submatrix sub( C ). N >= 0.
- ILO (global input) INTEGER
- IHI (global input) INTEGER ILO and IHI must have the same values as in the previous call of PZGEHRD. Q is equal to the unit matrix except in the distributed submatrix Q(ia+ilo:ia+ihi-1,ia+ilo:ja+ihi-1). If SIDE = 'L', 1 <= ILO <= IHI <= max(1,M); if SIDE = 'R', 1 <= ILO <= IHI <= max(1,N); ILO and IHI are relative indexes.
- A (local input) COMPLEX*16 pointer into the local memory
- to an array of dimension (LLD_A,LOCc(JA+M-1)) if SIDE='L', and (LLD_A,LOCc(JA+N-1)) if SIDE = 'R'. The vectors which define the elementary reflectors, as returned by PZGEHRD.
- IA (global input) INTEGER
- The row index in the global array A indicating the first row of sub( A ).
- JA (global input) INTEGER
- The column index in the global array A indicating the first column of sub( A ).
- DESCA (global and local input) INTEGER array of dimension DLEN_.
- The array descriptor for the distributed matrix A.
- TAU (local input) COMPLEX*16, array, dimension LOCc(JA+M-2)
- if SIDE = 'L', and LOCc(JA+N-2) if SIDE = 'R'. This array contains the scalar factors TAU(j) of the elementary reflectors H(j) as returned by PZGEHRD. TAU is tied to the distributed matrix A.
- C (local input/local output) COMPLEX*16 pointer into the
- local memory to an array of dimension (LLD_C,LOCc(JC+N-1)). On entry, the local pieces of the distributed matrix sub(C). On exit, sub( C ) is overwritten by Q*sub( C ) or Q'*sub( C ) or sub( C )*Q' or sub( C )*Q.
- IC (global input) INTEGER
- The row index in the global array C indicating the first row of sub( C ).
- JC (global input) INTEGER
- The column index in the global array C indicating the first column of sub( C ).
- DESCC (global and local input) INTEGER array of dimension DLEN_.
- The array descriptor for the distributed matrix C.
- WORK (local workspace/local output) COMPLEX*16 array,
- dimension (LWORK) On exit, WORK(1) returns the minimal and optimal LWORK.
- LWORK (local or global input) INTEGER
- The dimension of the array WORK. LWORK is local input and
must be at least
- INFO (global output) INTEGER
- = 0: successful exit
12 May 1997 | LAPACK version 1.5 |