Adding missing routine in repository

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