commetns in hamiltonian.F90