sy_lrscale_i(3PI) Sun Interval Performance Library sy_lrscale_i(3PI)NAMEsy_lrscale_i - Two-sided diagonal scaling.
DESCRIPTION
A = D * A_transposed * D with D diagonal
The routine SY_LRSCALE_I performs two-sided scaling of a symmetric
interval matrix A by an interval diagonal matrix D. If N is equal to
zero, this routine returns immediately.
SYNOPSIS
SUBROUTINE SY_LRSCALE_I( D, A [, UPLO] )
INTERVAL, INTENT(IN) :: D(:)
INTERVAL, INTENT(INOUT) :: A(:,:)
TYPE(blas_uplo_type), INTENT(IN), OPTIONAL :: UPLO
where
D has shape (N).
A has shape (N,N).
ARGUMENTS
D (input)
Array of DIMENSION (N).
Unchanged on exit.
A (input/output)
On entry, array of DIMENSION (N,N).
On exit, A = D * A_transposed * D
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.
ERRORS
blas_error_alloc
A or D is unallocated array
blas_error_shape
A or D has unappropriate shape
6 Mar 2009 sy_lrscale_i(3PI)