cgetZenith.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	csetdircos (dc, aTrack)
subroutine	cgetzenith (aTrack, cosz)

Function/Subroutine Documentation

cgetzenith()

subroutine cgetzenith	(	type(track)	aTrack,
		real*8	cosz
	)

Definition at line 20 of file cgetZenith.f.

References d0.

Referenced by cmkinc2(), cmoveptcl1(), cputdeflection(), cresetdirec(), and csetdircos().

      implicit none

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

!
      cosz = - (atrack%vec%w%r(1) * atrack%pos%xyz%r(1) + 
     *          atrack%vec%w%r(2) * atrack%pos%xyz%r(2) + 
     *          atrack%vec%w%r(3) * atrack%pos%xyz%r(3))/
     *          atrack%pos%radiallen
      if(cosz .gt. 1.d0) then
         cosz = 1.d0
      elseif(cosz .lt. -1.d0) then
         cosz = -1.d0
      endif
           ! or
!     *     sqrt(aTrack.pos.xyz.r(1)**2 +
!     *          aTrack.pos.xyz.r(2)**2 +
!     *          aTrack.pos.xyz.r(3)**2)

Here is the caller graph for this function:

csetdircos()

subroutine csetdircos	(	type(coord)	dc,
		type(track)	aTrack
	)

Definition at line 4 of file cgetZenith.f.

References cgetzenith().

Referenced by canihi(), cbrems(), ccohs(), ccompt(), cknockon(), cmkinc(), cpair(), cphotoee(), and csetknock().

      implicit none

#include  "Ztrack.h"
      type(track)::atrack
      type(coord)::dc
!
#ifdef SUBSTREC      
      atrack%vec%w = dc
#else
      atrack%vec%w%r = dc%r
#endif
      call cgetzenith(atrack, atrack%vec%coszenith)

Here is the call graph for this function:

Here is the caller graph for this function: