| |
| | [No title] |
 | | 1) call rmatin(nm,mmb,n,mb,st,sthold,1) c c c if tql1 path (label 80) is taken then tql2 path (label 70) c must also be taken in order that the measure of performance be c meaningful. |
 | | 0) m = error - 1 call tinvit(nm,n,st(1,2),st(1,1),e2,m,w,ind,z,error,rv1,rv2, x rv3,rv4,rv6) write(iwrite,99) error go to 130 c c rst1w1z using tsturm c 90 write(iwrite,91) 91 format(43h1some of the eigenvalues and corresponding, x 53heigenvectors of the real symmetric tridiagonal matrix / x 47h follow. |
 | | 4*n) m = error - 4*n - 1 go to 150 c c rst1w1z using bisect and tinvit c 95 write(iwrite,96) 96 format(43h1some of the eigenvalues and corresponding, x 53heigenvectors of the real symmetric tridiagonal matrix / x 47h follow. |
| www.netlib.org /eispack/ex/rsteispk.f (849 words) |
|