      subroutine user_evt3
c
c user pass 3 event routine
c
      implicit none
c
c user code
c
      end

