ce2p.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	ce2p (aTrack)

Function/Subroutine Documentation

ce2p()

subroutine ce2p

(

type(track)

aTrack

)

Definition at line 5 of file ce2p.f.

Referenced by canihi(), cbrems(), ccohs(), ccompt(), cintedmes(), cintelambdac(), cknockon(), cmbrem(), cmkinc(), cmkinc2(), cmpair(), cmuinte(), cpair(), cphotoee(), cputenergyloss(), and csetknock().

      implicit none
!----      include 'Ztrack.h'
#include  "Ztrack.h"
      type(track)::atrack
!
      real*8 p
      p  = atrack%p%fm%p(4)**2 - atrack%p%mass**2
      if(p .lt. 0.) then
!         write(*,*) ' p=',p,' code =',aTrack.p.code
!            since |p| is order of  10^-12        
         p = 0.
      endif
      p = sqrt(p)
!      p  = sqrt( aTrack.p.fm.p(4)**2 - aTrack.p.mass**2 )
      atrack%p%fm%p(1) = p * atrack%vec%w%r(1)
      atrack%p%fm%p(2) = p * atrack%vec%w%r(2)
      atrack%p%fm%p(3) = p * atrack%vec%w%r(3)

Here is the caller graph for this function: