tp_copy_i(3PI) Sun Interval Performance Library tp_copy_i(3PI)NAMEtp_copy_i - Triangular packed interval matrix copy.
DESCRIPTION
B = COPY of A or B = COPY of A_transposed
The routine TP_COPY_I copies a triangular packed interval matrix A (or
its transpose) and stores the result in an interval matrix B. Matrices
A and B have the same storage format. The routine returns immediately
if N is equal to zero.
SYNOPSIS
SUBROUTINE TP_COPY_I( A, B [, UPLO] [, TRANSA] [, DIAG] )
INTERVAL, INTENT(IN) :: A(:)
INTERVAL, INTENT(OUT) :: B(:)
TYPE(blas_uplo_type), INTENT(IN), OPTIONAL :: UPLO
TYPE(blas_trans_type), INTENT(IN), OPTIONAL :: TRANSA
TYPE(blas_diag_type), INTENT(IN), OPTIONAL :: DIAG
where
A and B have shape (N*(N+1)/2).
ARGUMENTS
A (input)
On entry, A is array of DIMENSION (N*(N+1)/2).
Unchanged on exit.
B (output)
On entry, B is array of DIMENSION (N*(N+1)/2).
On exit, B is the copy of array A
(or its transpose).
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.
ERRORS
blas_error_alloc
A or B is unallocated array
blas_error_shape
shape(A) /= shape(B)
6 Mar 2009 tp_copy_i(3PI)