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


LA_PPSVX


SUBROUTINE LA_PPSVX( AP, B, X, UPLO=uplo, AFP=afp, & 

FACT=fact, EQUED=equed, S=s, FERR=ferr, &
BERR=berr, RCOND=rcond, INFO=info )
type(wp), INTENT(INOUT) :: AP(:), rhs
type(wp), INTENT(OUT) :: sol
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: UPLO
type(wp), INTENT(INOUT), OPTIONAL :: AFP(:)
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