call tred2(nea+nel,nea+nel)
    call imtql2(nea+nel,nea+nel,ierr)
    在看一本书上的程序，两个子程序没有。。有谁知道这两程序是不是fortran的内部源程序。。整个程序就差这两个，不能运行。。。