COSMOS v7.655
COSMOSv7655
(AirShowerMC)
cmBremF2.f
Go to the documentation of this file.
1
! compute v K2(2zeta) which is the sencod term of
2
! F in Brainerd and Petrosian's Eq(5). v is fractional energy
3
! of emitted gamma ray.
4
!
5
real*8
function
cmbremf2
(up, v)
6
implicit none
7
real*8
up
! input. upsilon
8
real*8
v
! input. faractional energy.
9
real*8
zeta2, ck23
10
11
zeta2 = v/(1.
d0
-v) /3.
d0
/up * 2.
d0
12
cmbremf2
= v * ck23(zeta2)*zeta2
13
end
d0
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition:
cblkEvhnp.h:5
cmbremf2
real *8 function cmbremf2(up, v)
Definition:
cmBremF2.f:6
Particle
Event
Elemag
Sync
cmBremF2.f
Generated by
1.8.13