[u/mrichter/AliRoot.git] / DPMJET / flukapro / (FINUC)

*$ CREATE FINUC.ADD
*COPY FINUC
*
*=== finuc ============================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Include file: Finuc (new version of old Finuc of FLUKA86)        *
*                                                                      *
*     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
*     !!!!     S E E   A L S O   I N C L U D E   F I L E     !!!!      *
*     !!!!                 F I N U C 2                       !!!!      *
*     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      *
*                                                                      *
*     Created on  20 january 1996  by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on 26-jul-97     by    Alfredo Ferrari               *
*                                                                      *
*     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          *
*        np        = number of secondaries                             *
*       kpart (ip) = type of the secondary ip                          *
*         cxr (ip) = direction cosine of the secondary ip              *
*                    with respect to x-axis                            *
*         cyr (ip) = direction cosine of the secondary ip              *
*                    with respect to y-axis                            *
*         czr (ip) = direction cosine of the secondary ip              *
*                    with respect to z-axis                            *
*      cxrpol (ip) = direction cosine of the secondary ip polarization *
*                    with respect to x-axis                            *
*      cyrpol (ip) = direction cosine of the secondary ip polarization *
*                    with respect to y-axis                            *
*      czrpol (ip) = direction cosine of the secondary ip polarization *
*                    with respect to z-axis                            *
*         tki (ip) = kinetic energy of secondary ip                    *
*         plr (ip) = momentum of the secondary ip                      *
*         wei (ip) = weight of the secondary ip                        *
*      agesec (ip) = "age" of the secondary ip with respect to the     *
*                    interaction time                                  *
*        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 (not yet operational)                     *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER (MXP=999)
*
      COMMON / FINUC / CXR    (MXP), CYR    (MXP), CZR    (MXP),
     &                 CXRPOL (MXP), CYRPOL (MXP), CZRPOL (MXP),
     &                 TKI    (MXP), PLR    (MXP), WEI    (MXP),
     &                 AGESEC (MXP), TV, TVCMS, TVRECL, TVHEAV, TVBIND,
     &                 NP0, NP, KPART  (MXP)
Commit	Line	Data
d30b8254	1	*$ CREATE FINUC.ADD
	2	*COPY FINUC
	3	*
	4	=== finuc ============================================================
	5	*
	6	----------------------------------------------------------------------
	7	* *
	8	* Include file: Finuc (new version of old Finuc of FLUKA86) *
	9	* *
	10	* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *
	11	* !!!! S E E A L S O I N C L U D E F I L E !!!! *
	12	* !!!! F I N U C 2 !!!! *
	13	* !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! *
	14	* *
	15	* Created on 20 january 1996 by Alfredo Ferrari & Paola Sala *
	16	* Infn - Milan *
	17	* *
	18	* Last change on 26-jul-97 by Alfredo Ferrari *
	19	* *
	20	* included in the following subroutines or functions: not updated *
	21	* *
	22	* description of the common block(s) and variable(s) *
	23	* *
	24	* /finuc/ is the storage for secondaries created in event *
	25	* np = number of secondaries *
	26	* kpart (ip) = type of the secondary ip *
	27	* cxr (ip) = direction cosine of the secondary ip *
	28	* with respect to x-axis *
	29	* cyr (ip) = direction cosine of the secondary ip *
	30	* with respect to y-axis *
	31	* czr (ip) = direction cosine of the secondary ip *
	32	* with respect to z-axis *
	33	* cxrpol (ip) = direction cosine of the secondary ip polarization *
	34	* with respect to x-axis *
	35	* cyrpol (ip) = direction cosine of the secondary ip polarization *
	36	* with respect to y-axis *
	37	* czrpol (ip) = direction cosine of the secondary ip polarization *
	38	* with respect to z-axis *
	39	* tki (ip) = kinetic energy of secondary ip *
	40	* plr (ip) = momentum of the secondary ip *
	41	* wei (ip) = weight of the secondary ip *
	42	* agesec (ip) = "age" of the secondary ip with respect to the *
	43	* interaction time *
	44	* tv = excitation energy *
	45	* tvcms = actual excitation energy of the residual nucleus *
	46	* tvrecl = recoil kinetic energy of the residual nucleus *
	47	* tvheav = recoil kinetic energies of heavy (2-H, 3-H, 3-He, *
	48	* 4-He) fragments after evaporation *
	49	* tvbind = approximate energy wasted in nuclear binding *
	50	* effects (not yet operational) *
	51	* *
	52	----------------------------------------------------------------------
	53	*
	54	PARAMETER (MXP=999)
	55	*
	56	COMMON / FINUC / CXR (MXP), CYR (MXP), CZR (MXP),
	57	& CXRPOL (MXP), CYRPOL (MXP), CZRPOL (MXP),
	58	& TKI (MXP), PLR (MXP), WEI (MXP),
	59	& AGESEC (MXP), TV, TVCMS, TVRECL, TVHEAV, TVBIND,
	60	& NP0, NP, KPART (MXP)
	61