ge_diag_scale_i(3PI) Sun Interval Performance Library ge_diag_scale_i(3PI)NAMEge_diag_scale_i - Diagonal scaling an interval matrix.
DESCRIPTION
A = D * A or A = A * D with D diagonal
The routine GE_DAIG_SCALE_I scales a general interval matrix A on the
left side or the right side by a diagonal interval matrix D. If M or
N is equal to zero, this routine returns immediately.
SYNOPSIS
SUBROUTINE GE_DAIG_SCALE_I( D, A [, SIDE] )
INTERVAL, INTENT(IN) :: D(:)
INTERVAL, INTENT(INOUT) :: A(:,:)
TYPE(blas_side_type), INTENT(IN), OPTIONAL :: SIDE
where
D has shape (M) if SIDE = blas_left_side, or
(N) if SIDE = blas_right_side.
A has shape (M,N).
ARGUMENTS
D (input)
Array of DIMENSION (P).
P = M if SIDE = blas_left_side,
P = N if SIDE = blas_right_side.
Unchanged on exit.
A (input/output)
On entry, array of DIMENSION (M,N).
On exit, A = D * A if SIDE = blas_left_side or
A = A * D if SIDE = blas_right_side.
SIDE(input)
Scalar element. On entry, should be equal to
blas_side_type value, i.e. SIDE should take one
of the two values:
blas_left_side or blas_right_side.
Default value: blas_left_side
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 ge_diag_scale_i(3PI)