Go to the source code of this file.
◆ cgpxsec()
Definition at line 11 of file cgpXsec.f.
References cgpxs1().
Referenced by cgetphotopxs(), cghpath(), cinelx0(), and epgencolbyphoton().
26 elseif(energy .lt. 2.)
then 27 xs =
xs*
a*(1.02-.135*energy)
28 elseif(energy .lt. 1.e6 )
then 35 pw = (-0.00062749*loge + 0.004126)*loge +0.24338+0.6666
39 pw = 0.18*(energy/1.e6)**(-0.07) +0.6666
! constants thru Cosmos real ! if multiplied to deg radian Torad ! light velocity m sec ! infinty ! kg m2 *Togpcm2 g cm2 ! g cm2 *Tokgpm2 kg m2 ! cm *Tom m ! m *Tocm cm ! g cm3 *Tokgpm3 kg m3 ! kg m3 *Togpcm3 g cm3 ! sec *Tonsec nsec ! Tesla m ! Avogadro *A2deninv ! mfp *n * xs
subroutine cgpxs1(Eg, xs)