subroutine print_excitInfo(excitInfo)
type(ExcitationInformation_t), intent(in) :: excitInfo
print *, "Excitation Information: "
print *, "Typ: ", excitInfo%typ, trim(excit_names(excitInfo%typ)%str)
print *, "i,j,k,l:"
print *, excitInfo%i, excitInfo%j,excitInfo%k,excitInfo%l
print *, "fullStart,secondStart,firstEnd,fullEnd:"
print *, excitInfo%fullStart, excitInfo%secondStart, &
excitInfo%firstEnd, excitInfo%fullEnd
print *, "gen1,gen2,currentGen "
print *, excitInfo%gen1, excitInfo%gen2, excitInfo%currentGen
print *, "firstGen,lastGen: "
print *, excitInfo%firstGen, excitInfo%lastGen
print *, "valid? ", excitInfo%valid
print *, "spin_change?", excitInfo%spin_change
print *, "orders:", excitInfo%order, excitInfo%order1
print *, "excit-level: ", excitInfo%excitLvl
end subroutine print_excitInfo