1extern int dseigt_(doublereal *rnorm, integer *n, doublereal *h__, integer *ldh, doublereal *eig, doublereal *bounds, doublereal *workl, integer *ierr);
2/* comlen debug_ 96 */
3/* comlen timing_ 124 */
4/*:ref: second_ 14 1 6 */
5/*:ref: dcopy_ 14 5 4 7 4 7 4 */
6/*:ref: dstqrb_ 14 6 4 7 7 7 7 4 */
7