[u/mrichter/AliRoot.git] / GEANT321 / geant321 / finuc2.inc

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:39  cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_FINUC2_INC
#define CERNLIB_GEANT321_FINUC2_INC
*
*
* finuc2.inc
*
*
*=== finuc2 ===========================================================*
*
*----------------------------------------------------------------------*
*     Last change on 5 april 1990 by   Alfredo Ferrari, INFN - Milan   *
*     include file: finuc2 copy                  created 26/11/86 by pa*
*     note: if changed change finuc copy also                          *
*     changes: none                                                    *
*     included in the following subroutines or functions: not updated  *
*                                                                      *
*     description of the common block(s) and variable(s)               *
*                                                                      *
*     /finuc/ is the storage for secondaries created in event          *
*        irn       = number of secondaries                             *
*        itrn(ip)  = type of the secondary ip                          *
*        cxrn(ip)  = direction cosine of the secondary ip              *
*                    with respect to x-axis                            *
*        cyrn(ip)  = direction cosine of the secondary ip              *
*                    with respect to y-axis                            *
*        czrn(ip)  = direction cosine of the secondary ip              *
*                    with respect to z-axis                            *
*        elr(ip)   = kinetic (or total) energy of secondary ip         *
*        plr(ip)   = momentum of the secondary ip                      *
*        wei(ip)   = weight of the secondary ip                        *
*        tv        = excitation energy                                 *
*        tvcms     = actual excitation energy of the residual nucleus  *
*        tvrecl    = recoil kinetic energy of the residual nucleus     *
*        tvheav    = recoil kinetic energies of heavy (2-H, 3-H, 3-He, *
*                    4-He) fragments after evaporation                 *
*        tvbind    = approximate energy wasted in nuclear binding      *
*                    effects
*----------------------------------------------------------------------*
*
      PARAMETER (MXP=999)
      COMMON / FKFINU / CXRN (MXP), CYRN (MXP), CZRN (MXP), ELR (MXP),
     &                 PLR  (MXP), WEI  (MXP), TV, TVCMS, TVRECL,
     &                 TVHEAV, TVBIND, NP0, IRN, ITRN (MXP)
 

#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:20:39 cernlib
	6	* Geant
	7	*
	8	*
	9	#ifndef CERNLIB_GEANT321_FINUC2_INC
	10	#define CERNLIB_GEANT321_FINUC2_INC
	11	*
	12	*
	13	* finuc2.inc
	14	*
	15	*
	16	=== finuc2 ===========================================================
	17	*
	18	----------------------------------------------------------------------
	19	* Last change on 5 april 1990 by Alfredo Ferrari, INFN - Milan *
	20	* include file: finuc2 copy created 26/11/86 by pa*
	21	* note: if changed change finuc copy also *
	22	* changes: none *
	23	* included in the following subroutines or functions: not updated *
	24	* *
	25	* description of the common block(s) and variable(s) *
	26	* *
	27	* /finuc/ is the storage for secondaries created in event *
	28	* irn = number of secondaries *
	29	* itrn(ip) = type of the secondary ip *
	30	* cxrn(ip) = direction cosine of the secondary ip *
	31	* with respect to x-axis *
	32	* cyrn(ip) = direction cosine of the secondary ip *
	33	* with respect to y-axis *
	34	* czrn(ip) = direction cosine of the secondary ip *
	35	* with respect to z-axis *
	36	* elr(ip) = kinetic (or total) energy of secondary ip *
	37	* plr(ip) = momentum of the secondary ip *
	38	* wei(ip) = weight of the secondary ip *
	39	* tv = excitation energy *
	40	* tvcms = actual excitation energy of the residual nucleus *
	41	* tvrecl = recoil kinetic energy of the residual nucleus *
	42	* tvheav = recoil kinetic energies of heavy (2-H, 3-H, 3-He, *
	43	* 4-He) fragments after evaporation *
	44	* tvbind = approximate energy wasted in nuclear binding *
	45	* effects
	46	----------------------------------------------------------------------
	47	*
	48	PARAMETER (MXP=999)
	49	COMMON / FKFINU / CXRN (MXP), CYRN (MXP), CZRN (MXP), ELR (MXP),
	50	& PLR (MXP), WEI (MXP), TV, TVCMS, TVRECL,
	51	& TVHEAV, TVBIND, NP0, IRN, ITRN (MXP)
	52
	53
	54	#endif