Implements events in Fortran