LA_GBSVX

SUBROUTINE LA_GBSVX( AB, B, X, KL=kl, AFB=afb, 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) :: AB(:,:), rhs 

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


INTEGER, INTENT(IN), OPTIONAL :: KL 

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


INTEGER, INTENT(INOUT), OPTIONAL :: IPIV(:) 


CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: TRANS, FACT 


CHARACTER(LEN=1), INTENT(INOUT), OPTIONAL :: EQUED 


REAL(wp), INTENT(INOUT), OPTIONAL :: C(:), R(:) 


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