COSMOS v7.655  COSMOSv7655
(AirShowerMC)
cmuvmax2.f File Reference

Go to the source code of this file.

Functions/Subroutines

real *8 function cmuvmax2 (E)
 

Function/Subroutine Documentation

◆ cmuvmax2()

real*8 function cmuvmax2 ( real*8  E)

Definition at line 2 of file cmuvmax2.f.

References d0, and masmu.

2  implicit none
3 #include "Zcmuint.h"
4 #include "Zmass.h"
5 ! compute max fractional energy of muon brems gamma, or
6 ! virtual gamma at pair production by muon
7 ! This is the same one as cmuvmax in Util/Mu except for
8 ! Z3 is thru media and averaged one if not sigle atom
9 !
10  real*8 e ! input. muon total energy
11 
12  cmuvmax2 = 1.d0 - 3.d0/4.d0 *sqrt(exp(1.d0))*(masmu/e) *
13  * zeff3
14 
dE dx *! Nuc Int sampling table e
Definition: cblkMuInt.h:130
masmu
Definition: Zmass.h:5
real *8 function cmuvmax2(E)
Definition: cmuvmax2.f:2
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5