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
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
real *8 function cmbremf2(up, v)
Definition: cmBremF2.f:6