Projection of the hamiltonian onto Krylov subspace.

• 听 R_TYPE, allocatable :: h(:, :)听 听 听 听 !