cresetDirec.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cresetdirec (aTrack)

Function/Subroutine Documentation

cresetdirec()

subroutine cresetdirec

(

type(track)

aTrack

)

Definition at line 5 of file cresetDirec.f.

References cgetzenith(), and cpxyzp().

Referenced by cmove_c_stack(), cmoveptcl3(), and movetrack().

      implicit none

#include  "Ztrack.h"
      type(track)::atrack
!
      real*8 pabs

      call cpxyzp(atrack%p%fm, pabs)
      if(pabs .gt.  0) then
         atrack%vec%w%r(1) = atrack%p%fm%p(1)/pabs
         atrack%vec%w%r(2) = atrack%p%fm%p(2)/pabs
         atrack%vec%w%r(3) = atrack%p%fm%p(3)/pabs
      else
         atrack%vec%w%r(1) = 0.
         atrack%vec%w%r(2) = 0.
         atrack%vec%w%r(3) = 1.
      endif
      call cgetzenith(atrack, atrack%vec%coszenith)

Here is the call graph for this function:

Here is the caller graph for this function: