tp_disjm_i(3PI) Sun Interval Performance Library tp_disjm_i(3PI)NAMEtp_disjm_i - If two interval matrices are dijoint.
DESCRIPTION
TRUE if A IS_DISJOINT with B
The function TP_DISJM_I checks if two triangular packed interval
matrices A and B are disjoint. A IS_DISJOINT with B if and only if Ai
IS_DISJOINT with Bi for some entry of A and B. Matrices A and B have
the same storage format. The routine returns .FALSE. if N is equal to
zero.
SYNOPSIS
LOGICAL FUNCTION TP_DISJM_I( A, B [, UPLO] [, DIAG] )
INTERVAL, INTENT(IN) :: A(:), B(:)
TYPE(blas_uplo_type), INTENT(IN), OPTIONAL :: UPLO
TYPE(blas_diag_type), INTENT(IN), OPTIONAL :: DIAG
where
A and B have shape (N*(N+1)/2).
ARGUMENTS
A (input)
Array of DIMENSION (N*(N+1)/2).
Unchanged on exit.
B (input)
Array of DIMENSION (N*(N+1)/2).
Unchanged on exit.
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.
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_disjm_i(3PI)