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


LA_PTSVX 


SUBROUTINE LA_PTSVX( D, E, B, X, DF=df, EF=ef, FACT=fact, & 


FERR=ferr, BERR=berr,RCOND=rcond, INFO=info ) 


REAL(wp), INTENT(IN) :: D(:) 

type(wp), INTENT(IN) :: E(:), rhs 

type(wp), INTENT(OUT) :: sol 


REAL(wp), INTENT(INOUT), OPTIONAL :: DF(:) 

type(wp), INTENT(INOUT), OPTIONAL :: EF(:) 


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