cfinTracking.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cfintracking

Function/Subroutine Documentation

cfintracking()

subroutine cfintracking

(

)

Definition at line 2 of file cfinTracking.f.

References false, and true.

Referenced by ceventloop(), and chookenevent().

      implicit none
#include "Ztrack.h"
#include "Ztrackp.h"
#include "Ztrackv.h"
#include "Zobs.h"
#include "Zobsp.h"
#include "Zobsv.h"

      integer i, ib, ie, is
      logical dvlpd

      if( (trace .gt. 0 .and. trace .lt. 60) .or. trace .gt. 100) then
         close(tracedev)    ! close default trace file  for 1 event.
      elseif(trace .gt. 60  .and. trace .lt. 100) then
         call cputcerenkove     ! cerenkov output trailer
      endif
!                                               for each event
!         get size weighted age
      dvlpd = .false.
      if(observeas) then
         if(upgoing) then   ! upgoing primary
            ib = noofassites
            ie = 1
            is = -1
         else
            ib = 1
            ie = noofassites
            is = 1
         endif
         do i = ib, ie, is
            if(asobssites(i)%esize .gt. 0.) then
               dvlpd = .true.
               asobssites(i)%age = asobssites(i)%age/asobssites(i)%esize
            elseif(dvlpd) then
               asobssites(i)%age = 5.0    ! died out.
            else
               asobssites(i)%age = 0.0   ! not yet developed
            endif
         enddo
      endif

Here is the caller graph for this function: