where alpha is a real scalar, x is an n element vector and A is an
n by n hermitian matrix.
UPLO = 'U' or 'u' Only the upper triangular part of A is to be referenced.
UPLO = 'L' or 'l' Only the lower triangular part of A is to be referenced.
Unchanged on exit.
Level 2 Blas routine.
-- Written on 22-October-1986. Jack Dongarra, Argonne National Lab. Jeremy Du Croz, Nag Central Office. Sven Hammarling, Nag Central Office. Richard Hanson, Sandia National Labs.