next up previous contents index
Next: Purpose Up: Symmetric Indefinite Linear Systems Previous: Example 2 (from Program   Contents   Index


LA_SPSVX / LA_HPSVX


SUBROUTINE LA_SPSVX / LA_HPSVX( AP, B, X, UPLO=uplo, AFP=afp, & 

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