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 nucldecode(ncode, z, n, a)
c
c Returning the charge (z), number of neutrons (n) and mass
c number (a) of a nucleus of code "ncode"
c "ncode" is assumed to be a valid code.
c The formulae used for decoding is:
c
c z = integer[ (ncode - M0) / M ]
c n = ncode - (M0 + aa) - (M - 1) z
c a = z + n
c
c M0, M and aa are constants adequately chosen.
c This method provides a biunivocal nuclei identification system,
c provided that (z - aa) .le. n .le. (M + z - aa).
c
c Written by: S. J. Sciutto, La Plata 1996, 2018.
c
c
c Arguments:
c =========
c
c ncode........... (input, integer) The nucleus code.
c z............... (output, integer) The charge of the nucleus.
c n............... (output, integer) The number of neutrons.
c a............... (output, integer) The mass number.
c
c
c<--->
|
These pages are maintained by Sergio J. Sciutto |
Back to AIRES library index |
| Back to AIRES home |