AIRES library reference: crospcode.

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
      function crospcode(pcode, splabel)
c
c     Function returning true if a given particle code corresponds to
c     a special particle, or false otherwise.
c
c     Written by: S. J. Sciutto, La Plata 1999, 2006, 2010.
c
c
c     Arguments:
c     =========
c
c     pcode........... (input, integer) The particle code, as returned
c                      by the compressed file routines (any coding
c                      system) or an internal AIRES code.
c     splabel......... (output, integer) Label associated to the
c                      special particle, or zero if the code does not
c                      corresponds to a special particle.
c
c     Return value: (logical) .true. if the code corresponds to a
c     ============  special particle.
c
c
c<--->

These pages are maintained by Sergio J. Sciutto	Back to AIRES library index
	Back to AIRES home