SUBROUTINE LA_GTSV( DL, D, DU, B, INFO=info ) type(wp), INTENT(INOUT) :: DL(:), D(:), DU(:), rhs INTEGER, INTENT(OUT), OPTIONAL :: INFO where type ::= REAL COMPLEX wp ::= KIND(1.0) KIND(1.0D0) rhs ::= B(:,:) B(:)