Aim: Project the energy of an array of events onto an image.
The routine declaration is:
subroutine projectEventsEnergy(evt, patabove, image)
! evt : Array of event structure
! patabove : Geometry of event outside central pixel (from getpixelInE2)
! image : Image upon which to project
type(sas_evt), dimension(:), intent(in) :: evt
integer(kind=int16), dimension(-1:1,-1:1,0:edu_npat-1), &
intent(in) :: patabove
integer(kind=int32), dimension(-2:,-2:), intent(inout) :: image