version 1.3, 2018/05/29 06:55:16
|
version 1.5, 2023/08/07 08:38:49
|
Line 110
|
Line 110
|
*> \param[in] LDV |
*> \param[in] LDV |
*> \verbatim |
*> \verbatim |
*> LDV is INTEGER |
*> LDV is INTEGER |
*> The leading dimension of the array V. LDV >= max(1,K). |
*> The leading dimension of the array V. LDV >= max(1,K). |
*> \endverbatim |
*> \endverbatim |
*> |
*> |
*> \param[in] T |
*> \param[in] T |
Line 160
|
Line 160
|
*> \author Univ. of Colorado Denver |
*> \author Univ. of Colorado Denver |
*> \author NAG Ltd. |
*> \author NAG Ltd. |
* |
* |
*> \date November 2017 |
|
* |
|
*> \ingroup doubleGEcomputational |
*> \ingroup doubleGEcomputational |
* |
* |
* ===================================================================== |
* ===================================================================== |
SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, |
SUBROUTINE DGEMLQT( SIDE, TRANS, M, N, K, MB, V, LDV, T, LDT, |
$ C, LDC, WORK, INFO ) |
$ C, LDC, WORK, INFO ) |
* |
* |
* -- LAPACK computational routine (version 3.8.0) -- |
* -- LAPACK computational routine -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- LAPACK is a software package provided by Univ. of Tennessee, -- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- |
* November 2017 |
|
* |
* |
* .. Scalar Arguments .. |
* .. Scalar Arguments .. |
CHARACTER SIDE, TRANS |
CHARACTER SIDE, TRANS |
Line 186
|
Line 183
|
* .. |
* .. |
* .. Local Scalars .. |
* .. Local Scalars .. |
LOGICAL LEFT, RIGHT, TRAN, NOTRAN |
LOGICAL LEFT, RIGHT, TRAN, NOTRAN |
INTEGER I, IB, LDWORK, KF |
INTEGER I, IB, LDWORK, KF, Q |
* .. |
* .. |
* .. External Functions .. |
* .. External Functions .. |
LOGICAL LSAME |
LOGICAL LSAME |
Line 210
|
Line 207
|
* |
* |
IF( LEFT ) THEN |
IF( LEFT ) THEN |
LDWORK = MAX( 1, N ) |
LDWORK = MAX( 1, N ) |
|
Q = M |
ELSE IF ( RIGHT ) THEN |
ELSE IF ( RIGHT ) THEN |
LDWORK = MAX( 1, M ) |
LDWORK = MAX( 1, M ) |
|
Q = N |
END IF |
END IF |
IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN |
IF( .NOT.LEFT .AND. .NOT.RIGHT ) THEN |
INFO = -1 |
INFO = -1 |
Line 221
|
Line 220
|
INFO = -3 |
INFO = -3 |
ELSE IF( N.LT.0 ) THEN |
ELSE IF( N.LT.0 ) THEN |
INFO = -4 |
INFO = -4 |
ELSE IF( K.LT.0) THEN |
ELSE IF( K.LT.0 .OR. K.GT.Q ) THEN |
INFO = -5 |
INFO = -5 |
ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN |
ELSE IF( MB.LT.1 .OR. (MB.GT.K .AND. K.GT.0)) THEN |
INFO = -6 |
INFO = -6 |