sp_lrscale_i(3PI) Sun Interval Performance Library sp_lrscale_i(3PI)NAMEsp_lrscale_i - Two-sided diagonal scaling.
DESCRIPTION
A = D * A_transposed * D with D diagonal
The routine SP_LRSCALE_I performs two-sided scaling of a symmetric
packed interval matrix A by an interval diagonal matrix D. If N is
equal to zero, this routine returns immediately.
SYNOPSIS
SUBROUTINE SP_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+1)/2).
ARGUMENTS
D (input)
Array of DIMENSION (N).
Unchanged on exit.
A (input/output)
On entry, array of DIMENSION (N*(N+1)/2).
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 sp_lrscale_i(3PI)