SUBROUTINE LA_SYSV / LA_HESV( A, B, UPLO=uplo, IPIV=ipiv, INFO=info )
type(wp), INTENT(INOUT) :: A(:,:), rhs
CHARACTER(LEN=1), INTENT(IN), OPTIONAL :: UPLO
INTEGER, INTENT(OUT), OPTIONAL :: IPIV(:)
INTEGER, INTENT(OUT), OPTIONAL :: INFO
where
type ::= REAL COMPLEX
wp ::= KIND(1.0) KIND(1.0D0)
rhs ::= B(:,:) B(:)