tpmv_i(3PI) Sun Interval Performance Library tpmv_i(3PI)NAMEtpmv_i - Interval triangular matrix vector product.
DESCRIPTION
X = ALPHA * A * X or X = ALPHA * A_TRANSPOSED * X
The routine TPMV_I multiplies an interval vector X by a triangular
packed interval matrix A or its transpose, scales the result, and
copies resulting interval vector in the vector operand X. The routine
returns immediately if N is equal to zero.
SYNOPSIS
SUBROUTINE TPMV_I( A, X [, UPLO] [, TRANSA] [, DIAG] [, ALPHA] )
INTERVAL, INTENT(IN) :: A(:)
INTERVAL, INTENT(INOUT) :: X(:)
TYPE(blas_uplo_type), INTENT(IN), OPTIONAL :: UPLO
TYPE(blas_trans_type), INTENT(IN), OPTIONAL :: TRANSA
TYPE(blas_diag_type), INTENT(IN), OPTIONAL :: DIAG
INTERVAL, INTENT(IN), OPTIONAL :: ALPHA
where
X has shape (N),
TP has shape (N*(N+1)/2).
ARGUMENTS
A (input)
Array of DIMENSION (N*(N+1)/2).
Unchanged on exit.
X (input/output)
On entry, array of DIMENSION N.
On exit, if TRANSA = blas_no_trans:
X = ALPHA * A * X
If TRANSA /= blas_no_trans:
X = ALPHA * A_TRANSPOSED * X
UPLO(input)
Scalar element.
Specifies if the matrix operand is an upper or
lower tringular part of the matrix.
Possible values:
UPLO = blas_upper (default)
UPLO = blas_lower
Unchanged on exit.
TRANSA (input)
Scalar element.
Specifies the matrix A transpose.
Possible values:
TRANSA = blas_no_trans (default)
TRANSA = blas_trans
Unchanged on exit.
DIAG (input)
Scalar element.
Specifies whether or not the matrix operand
has unit diagonal entries.
Possible values:
DIAG = blas_non_unit_diag (default)
DIAG = blas_unit_diag
Unchanged on exit.
ALPHA (input)
On entry, ALPHA specifies the scalar ALPHA.
Default value is ALPHA = [1,1].
Unchanged on exit.
ERRORS
blas_error_alloc
A or X is unallocated array
blas_error_shape
A or X has unappropriate shape
6 Mar 2009 tpmv_i(3PI)