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

Go to the source code of this file.

Functions/Subroutines

subroutine ksplandau (b, c, x)
 

Function/Subroutine Documentation

◆ ksplandau()

subroutine ksplandau ( real*8  b,
real*8  c,
real*8  x 
)

Definition at line 42 of file ksplandau.f.

References d0, and ksgmrs().

42  implicit none
43  real*8 b, c, x
44 
45  real*8 y, z
46 
47 
48  call ksgmrs(-0.5d0, 2.d0, z)
49 
50  y = -log(z)
51  x = c*y + b
z
nodes z
Definition: cstdatmos0.fNew2.h:93
d0
block data cblkEvhnp ! currently usable models data RegMdls ad *special data *Cekaon d0
Definition: cblkEvhnp.h:5
y
latitude latitude this system is used *****************************************************************! type coord sequence union map real y
Definition: Zcoord.h:25
nrl_atmos::b
real(4), save b
Definition: cNRLAtmos.f:21
ksgmrs
subroutine ksgmrs(s, a, x)
Definition: ksgamd.f:73
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
c
dE dx *! Nuc Int sampling table c
Definition: cblkMuInt.h:130
Here is the call graph for this function: