1extern int dsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len);
2/*:ref: lsame_ 12 4 13 13 124 124 */
3/*:ref: xerbla_ 14 3 13 4 124 */
4/*:ref: dlamch_ 7 2 13 124 */
5/*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
6/*:ref: dlanst_ 7 5 13 4 7 7 124 */
7/*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
8/*:ref: dlaev2_ 14 7 7 7 7 7 7 7 7 */
9/*:ref: dlasr_ 14 12 13 13 13 4 4 7 7 7 4 124 124 124 */
10/*:ref: dlae2_ 14 5 7 7 7 7 7 */
11/*:ref: dlapy2_ 7 2 7 7 */
12/*:ref: dlartg_ 14 5 7 7 7 7 7 */
13/*:ref: dlasrt_ 14 5 13 4 7 4 124 */
14/*:ref: dswap_ 14 5 4 7 4 7 4 */
15