cdedxInAir.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cdedxinair (aPtcl, rhoin, dedt, dedtF)

Function/Subroutine Documentation

cdedxinair()

subroutine cdedxinair	(	type(ptcl)	aPtcl,
		real*8	rhoin,
		real*8	dedt,
		real*8	dedtF
	)

Definition at line 49 of file cdedxInAir.f.

References cdedxe(), cdedxnone(), and kelec.

Referenced by cputenergyloss(), and xbgrun().

         implicit none

#include  "Zptcl.h"
#include  "Zcode.h"
#include  "Zelemagp.h"

         type(ptcl):: aptcl ! input paticle
         real*8  rhoin   !  input.  density 
         real*8  dedt    !  output. restriced energy  loss rate
         real*8  dedtf   !  output. full energy loss rate
!
         real*8 erg
         integer charge

!            next is moved to cbeginRun
!         if(first) then
!            call cdedxEleci(RecoilKineMinE, Knockon)
!            first = .false.
!         endif

         erg = aptcl%fm%p(4)
!
         if(aptcl%code .eq. kelec) then
            charge = aptcl%charge
            call cdedxe(aptcl, rhoin, dedt, dedtf)  ! in GeV/(g/cm2)
            dedt = dedt / 10.                ! to GeV/(kg/m2)
            dedtf = dedtf/10. 
         else
            call cdedxnone(aptcl, rhoin,  dedt, dedtf) ! in GeV/(g/cm2)
            dedt = dedt / 10.                ! in GeV/(kg/m2)
            dedtf = dedtf/10.
         endif

Here is the call graph for this function:

Here is the caller graph for this function: