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