version 1.6, 2010/12/21 13:51:27
|
version 1.7, 2011/07/22 07:38:03
|
Line 18
|
Line 18
|
* where alpha is a scalar, B is an m by n matrix, A is a unit, or |
* where alpha is a scalar, B is an m by n matrix, A is a unit, or |
* non-unit, upper or lower triangular matrix and op( A ) is one of |
* non-unit, upper or lower triangular matrix and op( A ) is one of |
* |
* |
* op( A ) = A or op( A ) = A' or op( A ) = conjg( A' ). |
* op( A ) = A or op( A ) = A**T or op( A ) = A**H. |
* |
* |
* Arguments |
* Arguments |
* ========== |
* ========== |
Line 49
|
Line 49
|
* |
* |
* TRANSA = 'N' or 'n' op( A ) = A. |
* TRANSA = 'N' or 'n' op( A ) = A. |
* |
* |
* TRANSA = 'T' or 't' op( A ) = A'. |
* TRANSA = 'T' or 't' op( A ) = A**T. |
* |
* |
* TRANSA = 'C' or 'c' op( A ) = conjg( A' ). |
* TRANSA = 'C' or 'c' op( A ) = A**H. |
* |
* |
* Unchanged on exit. |
* Unchanged on exit. |
* |
* |
Line 237
|
Line 237
|
END IF |
END IF |
ELSE |
ELSE |
* |
* |
* Form B := alpha*A'*B or B := alpha*conjg( A' )*B. |
* Form B := alpha*A**T*B or B := alpha*A**H*B. |
* |
* |
IF (UPPER) THEN |
IF (UPPER) THEN |
DO 120 J = 1,N |
DO 120 J = 1,N |
Line 317
|
Line 317
|
END IF |
END IF |
ELSE |
ELSE |
* |
* |
* Form B := alpha*B*A' or B := alpha*B*conjg( A' ). |
* Form B := alpha*B*A**T or B := alpha*B*A**H. |
* |
* |
IF (UPPER) THEN |
IF (UPPER) THEN |
DO 280 K = 1,N |
DO 280 K = 1,N |