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