c
c Routine directly callable from C/C++ (it could be necessary to
c append an underscore, "_", to its name depending on the C/C++
c compiler used).
c
c
subroutine spaddpn(n, pcode, pener, csys, ldu, uxyz, pwt, irc)
c
c Adding a set of n primary particles.
c
c Written by: S. J. Sciutto, La Plata 1999, 2011.
c
c
c Arguments:
c =========
c
c n............... (input, integer) The number of primary particles
c to add.
c pcode........... (input, integer, array(n)) Particle codes (AIRES
c coding system).
c pener........... (input, double precision, array(n)) Particle
c kinetic energies (GeV).
c csys............ (input, integer) Parameter labelling the
c coordinate system used. 0 = AIRES coordinate
c system. 1 = Injection point-shower axis system.
c ldu............. (input, integer) Leading dimension of array
c uxyz.
c uxyz............ (input-output, double precision, array(ldu, n))
c Direction of motion of the respective primaries,
c with respect to the coordinate system selected
c by csys. The vectors uxyz(j, i), j = 1, 2, 3, do
c not need to be normalized. This array will
c be modified internally (normalization, and
c eventually coordinate transformation).
c pwt............. (input, double precision) Weight of particles.
c Must be equal or greater than one.
c irc............. (output, integer) Return code. 0 means normal
c return.
c
c
c<--->
|
These pages are maintained by Sergio J. Sciutto |
Back to AIRES library index |
| Back to AIRES home |