E>
      SUBROUTINE MB01XD( UPLO, N, A, LDA, INFO )
C     .. Scalar Arguments ..
      CHARACTER          UPLO
      INTEGER            INFO, LDA, N
C     .. Array Arguments ..
      DOUBLE PRECISION   A( LDA, * )

</PRE>
<A name="Arguments"><B><FONT SIZE="+1">Arguments</FONT></B></A>
<P>

<B>Mode Parameters</B>
<PRE>
  UPLO    CHARACTER*1
          Specifies which triangle (U or L) is given in the array A,
          as follows:
          = 'U':  the upper triangular part U is given;
          = 'L':  the l