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

Go to the source code of this file.

Functions/Subroutines

subroutine cxp2xaxsec (a, xsxp, xsxa)
 

Function/Subroutine Documentation

◆ cxp2xaxsec()

subroutine cxp2xaxsec ( real*8  a,
real*8  xsxp,
real*8  xsxa 
)

Definition at line 30 of file cxp2xAXsec.f.

Referenced by cinelx0(), ckminusaxsec(), ckplusaxsec(), cpbaraxsec(), cpiminusaxsec(), cpiplusaxsec(), cprotonaxsec(), and ctotx0().

30 !
31 ! a: real*8. input. Mass # of the target
32 ! xsxp: real*8. input. x-section of xp (mb)
33 ! xsxa: real*8. output. x-section of xA (mb)
34 !
35  implicit none
36  real*8 a, xsxp, xsxa
37  real(8):: cxabyxpxsec
38  xsxa = xsxp * cxabyxpxsec(xsxp, a)
real(4), save a
Definition: cNRLAtmos.f:20
real(8) function cxabyxpxsec(xpin, Ain)
Definition: cxAbyxpXsec.f:9
Here is the caller graph for this function: