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

Go to the source code of this file.

Functions/Subroutines

real *8 function catmosrho (x)
 

Function/Subroutine Documentation

◆ catmosrho()

real*8 function catmosrho ( real*8  x)

Definition at line 5 of file catmosrho.f.

Referenced by clen2thickex().

5  implicit none
6  real*8 x
7 
8 !---- include 'Zearth.h'
9 #include "Zearth.h"
10  real*8 cvh2den, zp
11  common /ccatmosrho/ coss, rs
12  real*8 coss, rs
13 !
14  real*8 cnewh
15 !
16 ! radius at x
17 
18  zp = cnewh(rs, coss, x) - eradius
19  catmosrho = cvh2den(zp)
catmosrho
real *8 function catmosrho(x)
Definition: catmosrho.f:5
cvh2den
real *8 function cvh2den(z)
Definition: ciniSegAtoms.f:54
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
cnewh
real *8 function cnewh(H, cost, L)
Definition: catmosutil.f:98
Here is the caller graph for this function: