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


LA_GESVX


SUBROUTINE LA_GESVX ( A, B, X, AF=af, IPIV=ipiv, FACT=fact, & 

TRANS=trans,EQUED=equed, R=r, C=c,FERR=ferr, &
BERR=berr, RCOND=rcond, RPVGRW=rpvgrw, &
INFO=info )
type(wp), INTENT(INOUT) :: A(:,:), rhs
type(wp), INTENT(OUT) :: sol
type(wp), INTENT(INOUT), OPTIONAL :: AF(:,:)
INTEGER, INTENT(INOUT), OPTIONAL :: IPIV(:)
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: FACT, &
TRANS
CHARACTER(LEN=1), INTENT(INOUT), OPTIONAL :: EQUED
REAL(wp), INTENT(INOUT), OPTIONAL :: R(:), C(:)
REAL(wp), INTENT(OUT), OPTIONAL :: err, RCOND, RPVGRW
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