IZE="+1">Purpose</FONT></B>
<PRE>
  To compute the matrix product U' * U or L * L', where U and L are
  upper and lower triangular matrices, respectively, stored in the
  corresponding upper or lower triangular part of the array A.

  If UPLO = 'U' then the upper triangle of the result is stored,
  overwriting the matrix U in A.
  If UPLO = 'L' then the lower triangle of the result is stored,
  overwriting the matrix L in A.

</PRE>
<A name="Specification"><B><FONT SIZE="+1">Specification</FONT></B></A>
<PR