next up previous contents index
Next: Purpose Up: Symmetric/Hermitian Positive Definite Linear Previous: Example 2 (from Program   Contents   Index


LA_POSVX


SUBROUTINE LA_POSVX( A, B, X, UPLO=uplo, AF=af, FACT=fact, & 

EQUED=equed,S=s, FERR=ferr, BERR=berr, &
RCOND=rcond, INFO=info )
type(wp), INTENT(INOUT) :: A(:,:), rhs
type(wp), INTENT(OUT) :: sol
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: UPLO
type(wp), INTENT(INOUT), OPTIONAL :: AF(:,:)
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: FACT
CHARACTER(LEN=1), INTENT(INOUT), OPTIONAL :: EQUED
REAL(wp), INTENT(INOUT), OPTIONAL :: S(:)
REAL(wp), INTENT(OUT), OPTIONAL :: err
REAL(wp), INTENT(OUT), OPTIONAL :: RCOND
INTEGER, INTENT(OUT), OPTIONAL :: INFO
where
type ::= REAL $\mid$ COMPLEX
wp ::= KIND(1.0) $\mid$ KIND(1.0D0)
rhs ::= B(:,:) $\mid$ B(:)
sol ::= X(:,:) $\mid$ X(:)
err ::= FERR(:), BERR(:) $\mid$ FERR, BERR




Susan Blackford 2001-08-19