tb_midm_i(3PI) Sun Interval Performance Library tb_midm_i(3PI)NAMEtb_midm_i - Midpoint matrix of an interval matrix.
DESCRIPTION
C = (INF(A)+SUP(A))/2
The routine TB_MIDM_I finds the real matrix C such that
Cij = (INF(Aij)+SUP(Aij))/2 for all triangular band interval matrix A
entries. The routine returns immediately if N is equal to zero or P is
less than zero.
SYNOPSIS
SUBROUTINE TB_MIDM_I( A, C [, UPLO] [, DIAG] )
INTERVAL, INTENT(IN) :: A(:,:)
REAL, INTENT(OUT) :: C(:,:)
TYPE(blas_uplo_type), INTENT(IN), OPTIONAL :: UPLO
TYPE(blas_diag_type), INTENT(IN), OPTIONAL :: DIAG
where
A and C have shape (P+1,N) where P = band width.
ARGUMENTS
A (input)
Array of DIMENSION (P+1,N) where P = band width.
Unchanged on exit.
C (output)
Array of DIMENSION (P+1,N) where P = band width.
On exit, contains MID(Aij) for all A entries.
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 C is unallocated array
blas_error_shape
shape(A) /= shape(C)
6 Mar 2009 tb_midm_i(3PI)