      subroutine user_evt1
c
c user pass 1 event routine
c
      implicit none
c
c user code
c
      end

