      SUBROUTINE SEIGV1(A,KA,N,W,Z,T,IERR)
      DIMENSION A(KA,N),W(N),Z(KA,N),T(N)
      CALL TRED2(KA,N,A,W,T,Z)
      CALL IMTQL2(KA,N,W,T,Z,IERR)
      RETURN
      END
