Subroutine Eigen_Accumulated
Real :: tmp
Integer :: i,j
Do i=1, NEig
   tmp=0.
   Do j=1, i
      tmp=tmp+TriRieng(j)
   Enddo
   Eigens(i)=tmp
Enddo
End Subroutine Eigen_Accumulated