discrete gutenberg richter implementation