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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:20:39  cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_HADFLG_INC
#define CERNLIB_GEANT321_HADFLG_INC
*
*
* hadflg.inc
*
*
*=== hadflg ===========================================================*
*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Created on 13 september 1991 by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*     Last change on  1-dec-91     by    Alfredo Ferrari               *
*                                                                      *
*     Included in the following routines:                              *
*                                                                      *
*                                         Calumo                       *
*                                         Datesh                       *
*                                         Eventv                       *
*                                         Ferhav                       *
*                                         Hadriv                       *
*                                         Rchanv                       *
*                                                                      *
*                    Ielflg = Flag to control the elastic channel      *
*                             in Hadriv:                               *
*                             -1: elastic channel reduced according    *
*                                 to a rough Pauli blocking factor     *
*                              0: elastic channel fully accounted for  *
*                             +1: elastic channel suppressed           *
*                    Icxflg = Flag to control the charge exchange      *
*                             channel in Hadriv:                       *
*                             -1: ch. ex. channel reduced according    *
*                                 to a rough Pauli blocking factor     *
*                              0: ch. ex. channel fully accounted for  *
*                             +1: ch. ex. channel suppressed           *
*             Innure(1,1,k) = Projectile index for the Hadriv reaction *
*                             k (first entrance channel)               *
*             Innure(2,1,k) = Target index for the Hadriv reaction     *
*                             k (first entrance channel)               *
*             Innure(1,2,k) = Projectile index for the Hadriv reaction *
*                             k (second entrance channel, if any)      *
*             Innure(2,2,k) = Target index for the Hadriv reaction     *
*                             k (second entrance channel, if any)      *
*                             It holds:                                *
*                        Nure (Innure(1,j,k),(Innure(2,j,k)/8+1)) = k  *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( PPAMXB = 0.6       D+00 )
      PARAMETER ( PAUMXB = 2.D+00 * 0.8 D+00 )
      PARAMETER ( PPAMXM = 0.6       D+00 )
      PARAMETER ( PAUMXM = 2.D+00 * 0.4 D+00 )
*
      COMMON / FKHADF / IELFLG, ICXFLG, IKCHXG (16), INNURE (2,2,16),
     &                  IOLDHD
 

#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_HADFLG_INC
	10	#define CERNLIB_GEANT321_HADFLG_INC
	11	*
	12	*
	13	* hadflg.inc
	14	*
	15	*
	16	=== hadflg ===========================================================
	17	*
	18	*
	19	----------------------------------------------------------------------
	20	* *
	21	* Created on 13 september 1991 by Alfredo Ferrari & Paola Sala *
	22	* Infn - Milan *
	23	* *
	24	* Last change on 1-dec-91 by Alfredo Ferrari *
	25	* *
	26	* Included in the following routines: *
	27	* *
	28	* Calumo *
	29	* Datesh *
	30	* Eventv *
	31	* Ferhav *
	32	* Hadriv *
	33	* Rchanv *
	34	* *
	35	* Ielflg = Flag to control the elastic channel *
	36	* in Hadriv: *
	37	* -1: elastic channel reduced according *
	38	* to a rough Pauli blocking factor *
	39	* 0: elastic channel fully accounted for *
	40	* +1: elastic channel suppressed *
	41	* Icxflg = Flag to control the charge exchange *
	42	* channel in Hadriv: *
	43	* -1: ch. ex. channel reduced according *
	44	* to a rough Pauli blocking factor *
	45	* 0: ch. ex. channel fully accounted for *
	46	* +1: ch. ex. channel suppressed *
	47	* Innure(1,1,k) = Projectile index for the Hadriv reaction *
	48	* k (first entrance channel) *
	49	* Innure(2,1,k) = Target index for the Hadriv reaction *
	50	* k (first entrance channel) *
	51	* Innure(1,2,k) = Projectile index for the Hadriv reaction *
	52	* k (second entrance channel, if any) *
	53	* Innure(2,2,k) = Target index for the Hadriv reaction *
	54	* k (second entrance channel, if any) *
	55	* It holds: *
	56	* Nure (Innure(1,j,k),(Innure(2,j,k)/8+1)) = k *
	57	* *
	58	----------------------------------------------------------------------
	59	*
	60	PARAMETER ( PPAMXB = 0.6 D+00 )
	61	PARAMETER ( PAUMXB = 2.D+00 * 0.8 D+00 )
	62	PARAMETER ( PPAMXM = 0.6 D+00 )
	63	PARAMETER ( PAUMXM = 2.D+00 * 0.4 D+00 )
	64	*
65	COMMON / FKHADF / IELFLG, ICXFLG, IKCHXG (16), INNURE (2,2,16),
66	& IOLDHD
67
68
69	#endif