[u/mrichter/AliRoot.git] / GEANT321 / block / flkdt5.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:19:36  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.45  by  S.Giani
*-- Author :
*$ CREATE BLKDT5.FOR
*COPY BLKDT5
*
*=== blkdt5 ===========================================================*
*==                                                                    *
      SUBROUTINE FLKDT5
 
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
      CHARACTER*8 ZKNM51(90),ZKNM61(54),ANAMZ1(16),ZKNM41(9)
      DIMENSION AMZ1(16),GAZ1(16),TAUZ1(16),ICHZ1(16),IBARZ1(16),
     & K1Z1(16),K2Z1(16),WTZ1(153),NZK11(153),NZK21(153),NZK31(153)
*
      CHARACTER*8 ZKNAM5,ZKNAM6,ANAMZ,ZKNAM4
      COMMON /FKADHP/ AMZ(16),GAZ(16),TAUZ(16),ICHZ(16),IBARZ(16),
     &       K1Z(16),K2Z(16),WTZ(153),II22,NZK1(153),NZK2(153),NZK3(153)
      COMMON /FKADHN/ ANAMZ(16),ZKNAM4(9),ZKNAM5(90),ZKNAM6(54)
*     Particle masses in GeV                                           *
      DATA AMZ1/ 3*2.2D0, 0.9576D0, 3*1.887D0, 2.4D0, 2.03D0, 2*1.43D0,
     &          2*1.7D0, 3*0.D0/
*     Resonance width Gamma in GeV                                     *
      DATA GAZ1/ 3*.2D0, .1D0, 4*.2D0, .18D0, 2*.2D0, 2*.15D0, 3*0.D0 /
*     Mean life time in seconds                                        *
      DATA TAUZ1 / 16*0.D0 /
*     Charge of particles and resonances                               *
      DATA ICHZ1/ 0, 1, 3*0, 1, -1, 0, 1, -1, 0, 0, 1 , 3*0 /
*     Baryonic charge                                                  *
      DATA IBARZ1/ 2, 7*0, 1, -1, -1, 1, 1, 3*0 /
*     First number of decay channels used for resonances               *
*     and decaying particles                                           *
      DATA K1Z1/ 308,310,313,317,322,365,393,421,425,434,440,446,449,
     &          3*460/
*     Last number of decay channels used for resonances                *
*     and decaying particles                                           *
      DATA K2Z1/ 309,312,316,321,364,392,420,424,433,439,445,448,451,
     &          3*460/
*     Weight of decay channel                                          *
      DATA WTZ1/ .17D0, .83D0, 2*.33D0, .34D0, .17D0, 2*.33D0, .17D0,
     & .01D0, .13D0, .36D0, .27D0, .23D0, .0014D0, .0029D0, .0014D0,
     & .0029D0, 4*.0007D0, .0517D0, .0718D0, .0144D0, .0431D0, .0359D0,
     & .0718D0, .0014D0, .0273D0, .0014D0, .0431D0, 2*.0129D0, .0259D0,
     & .0517D0, .0359D0, .0014D0, 2*.0144D0, .0129D0, .0014D0, .0259D0,
     & .0359D0, .0072D0, .0474D0, .0948D0, .0259D0, .0072D0, .0144D0,
     & .0287D0, .0431D0, .0144D0, .0287D0, .0474D0, .0144D0, .0075D0,
     & .0057D0, .0019D0, .0038D0, .0095D0, 2*.0014D0, .0191D0, .0572D0,
     & .1430D0, 2*.0029D0, 5*.0477D0, .0019D0, .0191D0, .0686D0,.0172D0,
     & .0095D0, .1888D0, .0172D0, .0191D0, .0381D0, 2*.0571D0, .0190D0,
     & .0057D0, .0019D0, .0038D0, .0095D0, .0014D0, .0014D0, .0191D0,
     & .0572D0, .1430D0, 2*.0029D0, 5*.0477D0, .0019D0, .0191D0,.0686D0,
     & .0172D0, .0095D0, .1888D0, .0172D0, .0191D0, .0381D0, 2*.0571D0,
     & .0190D0, 4*.25D0, 2*.2D0, .12D0, .1D0, .07D0, .07D0, .14D0,
     & 2*.05D0, .4D0, .2D0, .125D0, 2*.075D0, .125D0, .4D0, .075D0,
     & .125D0, .2D0, .125D0, .075D0, .3D0, .05D0, .65D0, .3D0, .05D0,
     & .65D0, 9*1.D0 /
*     Particle numbers in decay channel                                *
      DATA NZK11/ 8, 1, 2, 9, 1, 2, 9, 2, 9, 7, 13, 31, 15, 24, 23, 13,
     & 23, 13, 2*23, 14, 13, 23, 31, 98, 2*33, 32, 23, 14, 13, 35, 2*23,
     & 14, 13, 33, 23, 98, 31, 23, 14, 13, 35, 2*33, 32, 23, 35, 33, 32,
     & 98, 5*35, 4*13, 23, 13, 98, 32, 33, 23, 13, 23, 13, 14, 13, 32,
     & 13, 98, 23, 13, 2*32, 13, 33, 32, 98, 2*35, 4*14, 23, 14, 98,
     & 2*34, 23, 14, 23, 2*14, 13, 34, 14, 98, 23, 14, 2*34, 14, 33, 32,
     & 98, 2*35, 104, 61, 105, 62, 1, 17, 21, 17, 22, 2*21, 22, 21, 2,
     & 67, 68, 69, 2, 2*9, 68, 69, 70, 2, 9, 2*24, 15, 2*25, 16, 9*0/
      DATA NZK21/ 2*8, 1, 8, 9, 2*8, 2*1, 7, 14, 13, 16, 25, 23, 14, 23,
     & 14, 31, 33, 32, 34, 35, 31, 23, 31, 33, 34, 31, 32, 34, 31, 33,
     & 32, 2*33, 35, 31, 33, 31, 33, 32, 34, 35, 31, 33, 34, 35, 31,
     & 4*33, 32, 3*35,  2*23, 13, 31, 32, 33, 13, 31, 32, 2*31, 32, 33,
     & 32, 32, 35, 31, 2*32, 33, 31, 33, 35, 33, 3*32, 35, 2*23, 14,
     & 31, 34, 33, 14, 31, 33, 2*31, 34, 32, 33, 34, 35, 31, 2*34, 33,
     & 31, 33, 35, 33, 2*34, 33, 35, 1, 2, 8, 9, 25, 13, 35, 2*32, 33,
     & 31, 13, 23, 31, 13, 23, 14, 79, 80, 31, 13, 23, 14, 78, 79, 8,
     & 1, 8, 1, 8, 1, 9*0 /
      DATA NZK31/ 23, 14, 2*13, 23, 13, 2*23, 14, 0, 7, 14, 4*0, 2*23,
     & 10*0, 33, 2*31, 0, 33, 34, 32, 34, 0, 35, 0, 31, 3*35, 0, 3*31,
     & 35, 31, 33, 34, 31, 33, 34, 31, 33, 35, 0, 23, 14, 6*0, 32, 3*33,
     & 32, 34, 0, 35, 0, 2*35, 2*31, 35, 32, 34, 31, 33, 32, 0, 23, 13,
     & 6*0, 34, 2*33, 34, 33, 34, 0, 35, 0,2*35, 2*31, 35, 2*34, 31,
     & 2*34, 25*0, 23, 2*14, 23, 2*13, 9*0 /
*     Particle  names                                                  *
      DATA ANAMZ1 /'NNPI', 'ANPPI', 'ANNPI', ' ETS  ',' PAP  ',' PAN  ',
     & 'APN', 'DEO   ', 'S+2030', 'AN*-14', 'AN*014','KONPI ','AKOPPI',
     & 3*'BLANK' /
*     Name of decay channel                                            *
      DATA ZKNM41/'NNPI0','PNPI-','APPPI+','ANNPI+','ANPPI0','APNPI+',
     & 'ANNPI0','APPPI0','ANPPI-'/
      DATA ZKNM51/' GAGA ','P+P-GA','ETP+P-','K+K-  ','K0AK0 ',
     & ' POPO ',' P+P- ','POPOPO','P+P0P-','P0ET  ','&0R0  ','P-R+  ',
     & 'P+R-  ','POOM  ',' ETET ','ETSP0 ','R0ET  ',' R0R0 ','R+R-  ',
     & 'P0ETR0','P-ETR+','P+ETR-',' OMET ','P0R0R0','P0R+R-','P-R+R0',
     & 'P+R-R0','R0OM  ','P0ETOM','ETSR0 ','ETETET','P0R0OM','P-R+OM',
     & 'P+R-OM','OMOM  ','R0ETET','R0R0ET','R+R-ET','P0OMOM','OMETET',
     & 'R0R0R0','R+R0R-','ETSRET','OMR0R0','OMR+R-','OMOMET','OMOMR0',
     & 'OMOMOM',
     & ' P+PO ','P+POPO','P+P+P-','P+ET  ','P0R+  ','P+R0  ','ETSP+ ',
     & 'R+ET  ',' R0R+ ','POETR+','P+ETR0','POR+R-','P+R0R0','P-R+R+',
     & 'P+R-R+','R+OM  ','P+ETOM','ETSR+ ','POR+OM','P+R0OM','R+ETET',
     & 'R+R0ET','P+OMOM','R0R0R+','R+R+R-','ETSR+E','OMR+R0','OMOMR+',
     & 'P-PO  ','P-POPO','P-P-P+','P-ET  ','POR-  ','P-R0  ','ETSP- ',
     & 'R-ET  ','R-R0  ','POETR-','P-ETR0','POR-R0','P-R+R-','P-R0R0'/
      DATA ZKNM61/'P+R-R-','R-OM  ','P-ETOM','ETSR- ','POR-OM','P-R0OM',
     & 'R-ETET','R-R0ET','P-OMOM','R0R0R-','R+R-R-','ETSR-E','OMR0R-',
     & 'OMOMR-', 'PAN-14','APN+14','NAN014','ANN014','PAKO  ','LPI+  ',
     & 'SI+OM','LAMRO+','SI0RO+','SI+RO0','SI+ETA','SI0PI+','SI+PI0',
     & 'APETA ','AN=P+ ','AN-PO ','ANOPO ','APRHOO','ANRHO-','ANETA ',
     & 'AN-P+ ','AN0PO ','AN+P- ','APRHO+','ANRHO0',
     & 'KONPIO','KOPPI-','K+NPI-','AKOPPO','AKONP+','K-PPI+',
     & 9*'BLANK'/
*
      DO 10 J=1,16
         AMZ(J)=AMZ1(J)
         GAZ(J)=GAZ1(J)
         TAUZ(J)=TAUZ1(J)
         ICHZ(J)=ICHZ1(J)
         IBARZ(J)=IBARZ1(J)
         K1Z(J)=K1Z1(J)
         K2Z(J)=K2Z1(J)
         ANAMZ(J)=ANAMZ1(J)
  10  CONTINUE
      DO 20 J=1,153
         WTZ(J)=WTZ1(J)
         NZK1(J)=NZK11(J)
         NZK2(J)=NZK21(J)
         NZK3(J)=NZK31(J)
  20  CONTINUE
      DO 30 J=1,9
         ZKNAM4(J)=ZKNM41(J)
  30  CONTINUE
      DO 40 J=1,90
         ZKNAM5(J)=ZKNM51(J)
  40  CONTINUE
      DO 50 J=1,54
         ZKNAM6(J)=ZKNM61(J)
  50  CONTINUE
 
*=                                               end*block.blkdt5      *
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1995/10/24 10:19:36 cernlib
	6	* Geant
	7	*
	8	*
	9	#include "geant321/pilot.h"
	10	*CMZ : 3.21/02 29/03/94 15.41.45 by S.Giani
	11	*-- Author :
	12	*$ CREATE BLKDT5.FOR
	13	*COPY BLKDT5
	14	*
	15	=== blkdt5 ===========================================================
	16	==
	17	SUBROUTINE FLKDT5
	18
	19	#include "geant321/dblprc.inc"
	20	#include "geant321/dimpar.inc"
	21	#include "geant321/iounit.inc"
	22	CHARACTER*8 ZKNM51(90),ZKNM61(54),ANAMZ1(16),ZKNM41(9)
	23	DIMENSION AMZ1(16),GAZ1(16),TAUZ1(16),ICHZ1(16),IBARZ1(16),
	24	& K1Z1(16),K2Z1(16),WTZ1(153),NZK11(153),NZK21(153),NZK31(153)
	25	*
	26	CHARACTER*8 ZKNAM5,ZKNAM6,ANAMZ,ZKNAM4
	27	COMMON /FKADHP/ AMZ(16),GAZ(16),TAUZ(16),ICHZ(16),IBARZ(16),
	28	& K1Z(16),K2Z(16),WTZ(153),II22,NZK1(153),NZK2(153),NZK3(153)
	29	COMMON /FKADHN/ ANAMZ(16),ZKNAM4(9),ZKNAM5(90),ZKNAM6(54)
	30	* Particle masses in GeV *
	31	DATA AMZ1/ 32.2D0, 0.9576D0, 31.887D0, 2.4D0, 2.03D0, 2*1.43D0,
	32	& 21.7D0, 30.D0/
	33	* Resonance width Gamma in GeV *
	34	DATA GAZ1/ 3.2D0, .1D0, 4.2D0, .18D0, 2.2D0, 2.15D0, 3*0.D0 /
	35	* Mean life time in seconds *
	36	DATA TAUZ1 / 16*0.D0 /
	37	* Charge of particles and resonances *
	38	DATA ICHZ1/ 0, 1, 30, 1, -1, 0, 1, -1, 0, 0, 1 , 30 /
	39	* Baryonic charge *
	40	DATA IBARZ1/ 2, 70, 1, -1, -1, 1, 1, 30 /
	41	* First number of decay channels used for resonances *
	42	* and decaying particles *
	43	DATA K1Z1/ 308,310,313,317,322,365,393,421,425,434,440,446,449,
	44	& 3*460/
	45	* Last number of decay channels used for resonances *
	46	* and decaying particles *
	47	DATA K2Z1/ 309,312,316,321,364,392,420,424,433,439,445,448,451,
	48	& 3*460/
	49	* Weight of decay channel *
	50	DATA WTZ1/ .17D0, .83D0, 2.33D0, .34D0, .17D0, 2.33D0, .17D0,
	51	& .01D0, .13D0, .36D0, .27D0, .23D0, .0014D0, .0029D0, .0014D0,
	52	& .0029D0, 4*.0007D0, .0517D0, .0718D0, .0144D0, .0431D0, .0359D0,
	53	& .0718D0, .0014D0, .0273D0, .0014D0, .0431D0, 2*.0129D0, .0259D0,
	54	& .0517D0, .0359D0, .0014D0, 2*.0144D0, .0129D0, .0014D0, .0259D0,
	55	& .0359D0, .0072D0, .0474D0, .0948D0, .0259D0, .0072D0, .0144D0,
	56	& .0287D0, .0431D0, .0144D0, .0287D0, .0474D0, .0144D0, .0075D0,
	57	& .0057D0, .0019D0, .0038D0, .0095D0, 2*.0014D0, .0191D0, .0572D0,
	58	& .1430D0, 2.0029D0, 5.0477D0, .0019D0, .0191D0, .0686D0,.0172D0,
	59	& .0095D0, .1888D0, .0172D0, .0191D0, .0381D0, 2*.0571D0, .0190D0,
	60	& .0057D0, .0019D0, .0038D0, .0095D0, .0014D0, .0014D0, .0191D0,
	61	& .0572D0, .1430D0, 2.0029D0, 5.0477D0, .0019D0, .0191D0,.0686D0,
	62	& .0172D0, .0095D0, .1888D0, .0172D0, .0191D0, .0381D0, 2*.0571D0,
	63	& .0190D0, 4.25D0, 2.2D0, .12D0, .1D0, .07D0, .07D0, .14D0,
	64	& 2.05D0, .4D0, .2D0, .125D0, 2.075D0, .125D0, .4D0, .075D0,
65	& .125D0, .2D0, .125D0, .075D0, .3D0, .05D0, .65D0, .3D0, .05D0,
66	& .65D0, 9*1.D0 /
67	* Particle numbers in decay channel *
68	DATA NZK11/ 8, 1, 2, 9, 1, 2, 9, 2, 9, 7, 13, 31, 15, 24, 23, 13,
69	& 23, 13, 223, 14, 13, 23, 31, 98, 233, 32, 23, 14, 13, 35, 2*23,
70	& 14, 13, 33, 23, 98, 31, 23, 14, 13, 35, 2*33, 32, 23, 35, 33, 32,
71	& 98, 535, 413, 23, 13, 98, 32, 33, 23, 13, 23, 13, 14, 13, 32,
72	& 13, 98, 23, 13, 232, 13, 33, 32, 98, 235, 4*14, 23, 14, 98,
73	& 234, 23, 14, 23, 214, 13, 34, 14, 98, 23, 14, 2*34, 14, 33, 32,
74	& 98, 235, 104, 61, 105, 62, 1, 17, 21, 17, 22, 221, 22, 21, 2,
75	& 67, 68, 69, 2, 29, 68, 69, 70, 2, 9, 224, 15, 225, 16, 90/
76	DATA NZK21/ 28, 1, 8, 9, 28, 2*1, 7, 14, 13, 16, 25, 23, 14, 23,
77	& 14, 31, 33, 32, 34, 35, 31, 23, 31, 33, 34, 31, 32, 34, 31, 33,
78	& 32, 2*33, 35, 31, 33, 31, 33, 32, 34, 35, 31, 33, 34, 35, 31,
79	& 433, 32, 335, 223, 13, 31, 32, 33, 13, 31, 32, 231, 32, 33,
80	& 32, 32, 35, 31, 232, 33, 31, 33, 35, 33, 332, 35, 2*23, 14,
81	& 31, 34, 33, 14, 31, 33, 231, 34, 32, 33, 34, 35, 31, 234, 33,
82	& 31, 33, 35, 33, 234, 33, 35, 1, 2, 8, 9, 25, 13, 35, 232, 33,
83	& 31, 13, 23, 31, 13, 23, 14, 79, 80, 31, 13, 23, 14, 78, 79, 8,
84	& 1, 8, 1, 8, 1, 9*0 /
85	DATA NZK31/ 23, 14, 213, 23, 13, 223, 14, 0, 7, 14, 40, 223,
86	& 100, 33, 231, 0, 33, 34, 32, 34, 0, 35, 0, 31, 335, 0, 331,
87	& 35, 31, 33, 34, 31, 33, 34, 31, 33, 35, 0, 23, 14, 60, 32, 333,
88	& 32, 34, 0, 35, 0, 235, 231, 35, 32, 34, 31, 33, 32, 0, 23, 13,
89	& 60, 34, 233, 34, 33, 34, 0, 35, 0,235, 231, 35, 2*34, 31,
90	& 234, 250, 23, 214, 23, 213, 9*0 /
91	* Particle names *
92	DATA ANAMZ1 /'NNPI', 'ANPPI', 'ANNPI', ' ETS ',' PAP ',' PAN ',
93	& 'APN', 'DEO ', 'S+2030', 'AN-14', 'AN014','KONPI ','AKOPPI',
94	& 3*'BLANK' /
95	* Name of decay channel *
96	DATA ZKNM41/'NNPI0','PNPI-','APPPI+','ANNPI+','ANPPI0','APNPI+',
97	& 'ANNPI0','APPPI0','ANPPI-'/
98	DATA ZKNM51/' GAGA ','P+P-GA','ETP+P-','K+K- ','K0AK0 ',
99	& ' POPO ',' P+P- ','POPOPO','P+P0P-','P0ET ','&0R0 ','P-R+ ',
100	& 'P+R- ','POOM ',' ETET ','ETSP0 ','R0ET ',' R0R0 ','R+R- ',
101	& 'P0ETR0','P-ETR+','P+ETR-',' OMET ','P0R0R0','P0R+R-','P-R+R0',
102	& 'P+R-R0','R0OM ','P0ETOM','ETSR0 ','ETETET','P0R0OM','P-R+OM',
103	& 'P+R-OM','OMOM ','R0ETET','R0R0ET','R+R-ET','P0OMOM','OMETET',
104	& 'R0R0R0','R+R0R-','ETSRET','OMR0R0','OMR+R-','OMOMET','OMOMR0',
105	& 'OMOMOM',
106	& ' P+PO ','P+POPO','P+P+P-','P+ET ','P0R+ ','P+R0 ','ETSP+ ',
107	& 'R+ET ',' R0R+ ','POETR+','P+ETR0','POR+R-','P+R0R0','P-R+R+',
108	& 'P+R-R+','R+OM ','P+ETOM','ETSR+ ','POR+OM','P+R0OM','R+ETET',
109	& 'R+R0ET','P+OMOM','R0R0R+','R+R+R-','ETSR+E','OMR+R0','OMOMR+',
110	& 'P-PO ','P-POPO','P-P-P+','P-ET ','POR- ','P-R0 ','ETSP- ',
111	& 'R-ET ','R-R0 ','POETR-','P-ETR0','POR-R0','P-R+R-','P-R0R0'/
112	DATA ZKNM61/'P+R-R-','R-OM ','P-ETOM','ETSR- ','POR-OM','P-R0OM',
113	& 'R-ETET','R-R0ET','P-OMOM','R0R0R-','R+R-R-','ETSR-E','OMR0R-',
114	& 'OMOMR-', 'PAN-14','APN+14','NAN014','ANN014','PAKO ','LPI+ ',
115	& 'SI+OM','LAMRO+','SI0RO+','SI+RO0','SI+ETA','SI0PI+','SI+PI0',
116	& 'APETA ','AN=P+ ','AN-PO ','ANOPO ','APRHOO','ANRHO-','ANETA ',
117	& 'AN-P+ ','AN0PO ','AN+P- ','APRHO+','ANRHO0',
118	& 'KONPIO','KOPPI-','K+NPI-','AKOPPO','AKONP+','K-PPI+',
119	& 9*'BLANK'/
120	*
121	DO 10 J=1,16
122	AMZ(J)=AMZ1(J)
123	GAZ(J)=GAZ1(J)
124	TAUZ(J)=TAUZ1(J)
125	ICHZ(J)=ICHZ1(J)
126	IBARZ(J)=IBARZ1(J)
127	K1Z(J)=K1Z1(J)
128	K2Z(J)=K2Z1(J)
129	ANAMZ(J)=ANAMZ1(J)
130	10 CONTINUE
131	DO 20 J=1,153
132	WTZ(J)=WTZ1(J)
133	NZK1(J)=NZK11(J)
134	NZK2(J)=NZK21(J)
135	NZK3(J)=NZK31(J)
136	20 CONTINUE
137	DO 30 J=1,9
138	ZKNAM4(J)=ZKNM41(J)
139	30 CONTINUE
140	DO 40 J=1,90
141	ZKNAM5(J)=ZKNM51(J)
142	40 CONTINUE
143	DO 50 J=1,54
144	ZKNAM6(J)=ZKNM61(J)
145	50 CONTINUE
146
147	= endblock.blkdt5 *
148	END