reanal.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	__reanal.f__
subroutine	cgethes (from)

Function/Subroutine Documentation

__reanal.f__()

program __reanal.f__

(

)

Definition at line 6 of file reanal.f.

References c, cerrormsg(), cgethes(), i, klena(), ksplit(), p, and true.

      integer num, i,  nr, firstev, lastev

Here is the call graph for this function:

cgethes()

subroutine cgethes

(

integer

from

)

Definition at line 64 of file reanal.f.

References o, and true.

      implicit none
#include "Zprivate.h"
      integer from

      integer  cumnum, irevent(2)
      common /cselev/ cumnum, irevent

!
      integer i
      read(from) np
      do i = 1, np
         read(from) o(i)
      enddo
!     ==========================================
!         do your analysis and if you want to
!         memorize the it for flesh, make 
!         Copy = .true.  Then, the event number
!         (or seed  and event number) is written on stdout.
!       You can use
!     o(i).xxx  where  xxx is
!
!       where: obsv. location
!       code, subcode, charge:  code=9 is Nucleus, A=subcode,Z=charge
!       atime: arrival time ns
!       erg:   energy GeV
!       mass:  mass in GeV
!       x,y:   in m
!       wx,wy,wx:  direction cos.
!       zenith:    cos of zenith angle.
!

      copy = .true.


!     ==========================================
      if(copy) then
          write(*,*) cumnum  
!            or 
!         write(*,*) irevent, cumnum
       endif