Fixed an error in the DHamilt function
Fixed an error in DHamilt function.  Started on adding intensity functions for fourfold <- fourfold transitions.