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

Go to the source code of this file.

Functions/Subroutines

subroutine csptxy (a, nt)
 

Function/Subroutine Documentation

◆ csptxy()

subroutine csptxy ( type(ptcl), dimension(nt)  a,
integer  nt 
)

Definition at line 9 of file csptxy.f.

References kcossn().

Referenced by ccylps(), and cslp().

9 ! a(nt): type ptcl. Input. At this moment, pt is assumed
10 ! to be in a(i).fm.p(3) (=ptz) position.
11 !
12  implicit none
13 
14 #include "Zptcl.h"
15 !
16  integer nt
17  type(ptcl):: a(nt)
18 !
19  integer i
20  real*8 cs, sn, pt
21 !
22  do i=1, nt
23 ! sample cos and sin of random azimuthal angle
24  call kcossn(cs,sn)
25  pt = a(i)%fm%p(3)
26 ! store ptx,pty
27  a(i)%fm%p(1) = pt * cs
28  a(i)%fm%p(2) = pt * sn
29  enddo
i
nodes i
Definition: cstdatmos0.fNew2.h:93
pt
! 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 t endmap map ! pt before pz is set real pt
Definition: Zptcl.h:21
kcossn
subroutine kcossn(cs, sn)
Definition: kcossn.f:13
nrl_atmos::a
real(4), save a
Definition: cNRLAtmos.f:20
ptcl
Definition: Zptcl.h:75
Here is the call graph for this function:
Here is the caller graph for this function: