Example Event code

The following sample routine is called for each event.

  subroutine analyze_event

  implicit none

  include 'parcommon.inc'
  include 'testcommon.inc'
  include 'eventcommon.inc'

  integer*4 ierr
c OTHER DECLARATIONS

c GET THE EVENT

c DO EVENT ANALYSIS

  ierr = thtstexeb('hms') ! Exec tests

  ierr = thtstinsb('hms') ! Incr scalers

  ierr = thhstexeb('hms') ! Fill histograms

  return
  end