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

Go to the source code of this file.

Functions/Subroutines

subroutine cdedxeleci (w0in, knck)
 

Function/Subroutine Documentation

◆ cdedxeleci()

subroutine cdedxeleci ( real*8  w0in,
logical  knck 
)

Definition at line 2 of file cdedxEleci.f.

References d0, w0, and wlg0.

Referenced by cbeginrun().

2  implicit none
3 ! ***********
4 #include "ZdedxAir.h"
5  real*8 w0in ! input.
6 ! kinetic energy of recoil electron in GeV. k.e>w is not
7 ! included as energy loss so that it should be treated by
8 ! producing the recoil electron actually.
9 ! if w0in is < KEminObs/10 or so,
10 ! it should be adjusted to be KEminObs/10 or so.
11 !
12  logical knck ! input. obsolete now
13 
14 !
15  jdef = 1
16 
17  w0=w0in
18  w0inmev = w0 *1000.0d0
19  knckon=knck
20 ! log(w*1000.)
21  wlg0=log(w0) + 6.907d0
common ZdedxAir w0
Definition: ZdedxAir.h:2
common ZdedxAir * wlg0
Definition: ZdedxAir.h:2
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
Here is the caller graph for this function: