COSMOS v7.655  COSMOSv7655
(AirShowerMC)
Functions/Subroutines
cmBremE.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine cmbreme (up, x)
 

Function/Subroutine Documentation

◆ cmbreme()

subroutine cmbreme ( real*8  up,
real*8  x 
)

Definition at line 2 of file cmBremE.f.

References cmbreme1(), cmbreme2(), d0, and rndc().

Referenced by cmbrem().

2 !
3 !
4  implicit none
5 !
6  real*8 up ! input. Upsilon value. = Ee/Me * B/Bcr
7 !
8  real*8 x ! output. sampled fractional gamma energy
9 
10  real*8 cmbremi1, cmbremi2, sum, u, xs1
11  integer nc
12 
13 ! select 1st term or 2nd term in Eq.(5) of Brainerd and Petrosian.
14 ! APJ, 320, 1987
15 !
16  xs1 = cmbremi1(up, 0.d0)
17  sum = xs1 + cmbremi2(up)
18  call rndc(u)
19  if(u .lt. xs1/sum) then
20 ! use first term
21  call cmbreme1(up, x)
22  else
23  call cmbreme2(up, x, nc)
24  endif
cmbremi1
real *8 function cmbremi1(upsilon, xc)
Definition: cmBremI1.f:19
up
block data include Zlatfit h c fitting region data data data data data d0 data data d0 data data h g *is for param c g data up(2, 1)/7.0d0/
rndc
subroutine rndc(u)
Definition: rnd.f:91
d0
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
cmbreme1
subroutine cmbreme1(up, x)
Definition: cmBremE1.f:2
cmbremi2
real *8 function cmbremi2(u)
Definition: cmBremI2.f:12
nc
real cut integer nc
Definition: Zprivate.h:1
cmbreme2
subroutine cmbreme2(up, v, nc)
Definition: cmBremE2.f:38
x
! structure defining a particle at production ! Basic idea of what is to be contained in ! the particle structue is that dynamical ones should be included those derivable from the particle code ! is not included ******************************************************type fmom momentum sequence union map real e endmap map real * x
Definition: Zptcl.h:21
Here is the call graph for this function:
Here is the caller graph for this function: