fix to bug report 4331

git-svn-id: https://icl.cs.utk.edu/svn/lapack-dev/lapack/trunk@1463 8a072113-8704-0410-8d35-dd094bca7971