* * $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 BLKDT7.FOR *COPY BLKDT7 * *=== blkdt7 ===========================================================* *== * SUBROUTINE FLKDT7 * #include "geant321/dblprc.inc" #include "geant321/dimpar.inc" #include "geant321/iounit.inc" * * Block data 7 (ex 2) * #include "geant321/decayc.inc" CHARACTER*8 ZKNAM1 DIMENSION ZKNAM1(IDMAX9),NZK1(IDMAX9,3),WT1(IDMAX9) * * * * Name of decay channel * * * DATA (ZKNAM1(I),I=1,87) / 'P', 'AP', 'E-', 'E+', 'NUE', 'ANUE', & 'GAM', 'PE-NUE', 'APEANU', 'EANUNU', 'E-NUAN', '3PI0', 'PI+-0', & 'PIMUNU', 'PIE-NU', 'MU+NUE', 'MU-NUE', 'MU+NUE', 'PI+PI0', & 'PI++-', 'PI+00', 'M+P0NU', 'E+P0NU', 'MU-NU', 'PI-0', 'PI+--', & 'PI-00', 'M-P0NU', 'E-P0NU', 'PPI-', 'NPI0', 'PE-NUE', 'PM-NUE', & 'APPI+', 'ANPI0', 'APE+NU', 'APM+NU', 'PI+PI-', 'PI0PI0', & 'NPI-', 'PPI0', 'NPI+', 'LAGA', 'GAGA', 'GAE+E-', 'GAGA', & 'GAGAP0', 'PI000', 'PI+-0', 'PI+-GA', 'PI+0', 'PI+-', 'PI00', & 'PI-0', 'PI+-0', 'PI+-', 'PI0GA', 'K+PI0', 'K0PI+', 'KOPI0', & 'K+PI-', 'K-PI0', 'AK0PI-', 'AK0PI0', 'K-PI+', 'K+PI0', 'K0PI+', & 'K0PI0', 'K+PI-', 'K-PI0', 'AK0PI-', 'AK0PI0', 'K-PI+', 'K+PI0', & 'K0PI+', 'K+89P0', 'K08PI+', 'K+RO77', 'K0RO+7', 'K+OM07', & 'K+E055', 'K0PI0', 'K+PI+', 'K089P0', 'K+8PI-', 'K0R077', & 'K+R-77'/ DATA (ZKNAM1(I),I=88,146)/ & 'K0OM07','K0E055','K-PI0 ','AK0PI-','K-89P0','AK08P-','K-R077', & 'AK0R-7','K-OM07','K-E055','AK0PI0','K-PI+ ','AK08P0','K-8PI+', & 'AK0R07','K-R+77','AK0OM7','AK0E05','LA0PI+','SI0PI+','SI+PI0', & 'LA0PI0','SI+PI-','SI-PI+','LA0PI-','SI0PI-','NEUAK0','PK- ', & 'SI+PI-','SI0PI0','SI-PI+','LA0ET0','S+1PI-','S-1PI+','SO1PI0', & 'NEUAK0','PK- ','LA0PI0','LA0OM0','LA0RO0','SI+RO-','SI-RO+', & 'SI0RO0','LA0ET0','SI0ET0','SI+PI-','SI-PI+','SI0PI0', & 'K0S ','K0L ','K0S ','K0L ', & 'P PI+ ','P PI0 ','N PI+ ','P PI- ','N PI0 ','N PI- ','P PI+ '/ * * * Designation N*@ means N*@1(1236) * * @1=# means ++, @1 = = means -- * * Designation P+/0/- means Pi+/Pi0/Pi- , respectively * * * DATA (ZKNAM1(I),I=147,251)/ & 'N*#PI0','N*+PI+','PRHO+ ','P PI0 ','N PI+ ','N*#PI-','N*+PI0', & 'N*0PI+','PRHO0 ','NRHO+ ','P PI- ','N PI0 ','N*+PI-','N*0PI0', & 'N*-PI+','PRHO- ','NRHO0 ','N PI- ','N*0PI-','N*-PI0','NRHO- ', & 'PETA0 ','N*#PI-','N*+PI0','N*0PI+','PRHO0 ','NRHO+ ','NETA0 ', & 'N*+PI-','N*0PI0','N*-PI+','PRHO- ','NRHO0 ','P PI0 ','N PI+ ', & 'N*#PI-','N*+PI0','N*0PI+','PRHO0 ','NRHO+ ','P PI- ','N PI0 ', & 'N*+PI-','N*0PI0','N*-PI+','PRHO- ','NRHO0 ','P PI0 ','N PI+ ', & 'PRHO0 ','NRHO+ ','LAMK+ ','S+ K0 ','S0 K+ ','PETA0 ','P PI- ', & 'N PI0 ','PRHO- ','NRHO0 ','LAMK0 ','S0 K0 ','S- K+ ','NETA/ ', & 'APPI- ','APPI0 ','ANPI- ','APPI+ ','ANPI0 ','ANPI+ ','APPI- ', & 'AN*=P0','AN*-P-','APRHO-','APPI0 ','ANPI- ','AN*=P+','AN*-P0', & 'AN*0P-','APRHO0','ANRHO-','APPI+ ','ANPI0 ','AN*-P+','AN*0P0', & 'AN*+P-','APRHO+','ANRHO0','ANPI+ ','AN*0P+','AN*+P0','ANRHO+', & 'APPI0 ','ANPI- ','AN*=P+','AN*-P0','AN*0P-','APRHO0','ANRHO-', & 'APPI+','ANPI0 ','AN*-P+','AN*0P0','AN*+P-','APRHO+','ANRHO0'/ DATA (ZKNAM1(I),I=252,330)/ & 'PN*014','NN*=14', & 'PI+0 ','PI+-','PI-0','P+0','N++','P+-','P00','N+0','N+-','N00', & 'P-0 ','N-0 ','P--', & 'PPPI0 ','PNPI+ ','PNPI0 ','PPPI- ','NNPI+ ','APPPI0','APNPI+', & 'ANNPI0','ANPPI-','APNPI0','APPPI-','ANNPI-','K+PPI0','K+NPI+', & 'K0PPI0','K-PPI0','K-NPI+','AKPPI-','AKNPI0','K+NPI0','K+PPI-', & 'K0PPI0','K0NPI+','K-NPI0','K-PPI-','AKNPI-', & 'PAK0 ','SI+PI0','SI0PI+','SI+ETA','S+1PI0','S01PI+','NEUK- ', & 'LA0PI-','SI-OM0','LA0RO-','SI0RO-','SI-RO0','SI-ET0','SI0PI-', & 'SI-0', 23*'BLANK'/ DATA (ZKNAM1(I),I=331,433)/ & 'EPI+- ','EPI00 ','GAPI+-','GAGA* ','K+- ','KLKS ','PI+-0 ', & 'EGA ','LPI0 ','LPI ','APPI0 ','ANPI- ','ALAGA ','ANPI ', & 'ALPI0 ','ALPI+ ','LAPI+ ','SI+PI0','SI0PI+','LAPI0 ','SI+PI-', & 'SI-PI+','LAPI- ','SI-PI0','SI0PI-','TE0PI0','TE-PI+','TE0PI-', & 'TE-PI0','TE0PI ','TE-PI ','LAK- ','ALPI- ','AS-PI0','AS0PI-', & 'ALPI0 ','AS+PI-','AS-PI+','ALPI+ ','AS+PI0','AS0PI+','AT0PI0', & 'AT+PI-','AT0PI+','AT+PI0','AT0PI ','AT+PI ','ALK+ ', & 'K-PI+ ','K-PI+0','K0PI+-','K0PI0 ','K-PI++','AK0PI+','K+PI--', & 'K0PI- ','K+PI- ','K+PI-0','AKPI-+','AK0PI0','ETAPIF','K++- ', & 'K+AK0 ','ETAPI-','K--+ ','K-K0 ','PI00 ','PI+- ','GAGA ', & 'D0PI0 ','D0GA ','D0PI+ ','D+PI0 ','DFGA ','AD0PI-','D-PI0 ', & 'D-GA ','AD0PI0','AD0GA ','F+GA ','F+GA ','F-GA ','F-GA ', & 'PSPI+-','PSPI00','PSETA ','E+E- ','MUE+- ','PI+-0 ','M+NN ', & 'E+NN ','RHO+NT','PI+ANT','K*+ANT','M-NN ','E-NN ','RHO-NT', & 'PI-NT ','K*-NT ','NUET ','ANUET ','NUEM ','ANUEM '/ DATA (ZKNAM1(I),I=434,540)/ & 'SI+ETA','SI+ET*','PAK0 ','TET0K+','SI*+ET','N*+AK0','N*++K-', & 'LAMRO+','SI0RO+','SI+RO0','SI+OME','PAK*0 ','N*+AK*','N*++K*', & 'SI+AK0','TET0PI','SI+AK*','TET0RO','SI0AK*','SI+K*-','TET0OM', & 'TET-RO','SI*0AK','C0+PI+','C0+PI0','C0+PI-','A+GAM ','A0GAM ', & 'TET0AK','TET0K*','OM-RO+','OM-PI+','C1++AK','A+PI+ ','C0+AK0', & 'A0PI+ ','A+AK0 ','T0PI+ ','ASI-ET','ASI-E*','APK0 ','ATET0K', & 'ASI*-E','AN*-K0','AN*--K','ALAMRO','ASI0RO','ASI-RO','ASI-OM', & 'APK*0 ','AN*-K*','AN*--K','ASI-K0','ATETPI','ASI-K*','ATETRO', & 'ASI0K*','ASI-K*','ATE0OM','ATE+RO','ASI*0K','AC-PI-','AC-PI0', & 'AC-PI+','AA-GAM','AA0GAM','ATET0K','ATE0K*','AOM+RO','AOM+PI', & 'AC1--K','AA-PI-','AC0-K0','AA0PI-','AA-K0 ','AT0PI-','C1++GA', & 'C1++GA','C10GAM','S+GAM ','S0GAM ','T0GAM ','XU++GA','XD+GAM', & 'XS+GAM','A+AKPI','T02PI+','C1++2K','AC1--G','AC1-GA','AC10GA', & 'AS-GAM','AS0GAM','AT0GAM','AXU--G','AXD-GA','AXS-GA','AA-KPI', & 'AT02PI','AC1--K','RH-PI+','RH+PI-','RH3PI0','RH0PI+','RH+PI0', & 'RH0PI-','RH-PI0'/ * * * Weight of decay channel * * * DATA (WT1(I),I=1,226)/11*1.D0,.21D0,.12D0,.27D0,.4D0,2*1.D0,.64D0, &.21D0,.06D0,.02D0,.03D0,.04D0,.64D0,.21D0,.06D0,.02D0,.03D0,.04D0, & .64D0,.36D0,2*0.D0,.64D0,.36D0,2*0.D0, .69D0, .31D0, 1.D0, .52D0, & .48D0,1.D0,.99D0,.01D0,.38D0,.03D0,.3D0,.24D0,.05D0,2*1.D0, 0.D0, & 1.D0,.9D0,.01D0,.09D0,.33D0,.67D0,.33D0,.67D0,.33D0,.67D0, .33D0, &.67D0,.33D0,.67D0,.33D0,.67D0,.33D0,.67D0,.33D0,.67D0,.19D0,.38D0, & .09D0,.2D0,.03D0,.04D0,.05D0,.02D0,.19D0,.38D0,.09D0,.2D0, .03D0, & .04D0,.05D0,.02D0,.19D0,.38D0,.09D0,.2D0,.03D0,.04D0,.05D0,.02D0, & .19D0,.38D0,.09D0,.2D0,.03D0,.04D0, .05D0, .02D0, .88D0, 2*.06D0, & .88D0,2*.06D0,.88D0,.12D0,2*.19D0,2*.16D0, .17D0, 3*.03D0, .04D0, & 2*.1D0,.2D0,.12D0,.1D0, 2*.04D0, .05D0, 2*.075D0, 2*.03D0, .04D0, & 4*.5D0,1.D0,.67D0,2*.33D0,.67D0, 1.D0, .25D0, .27D0, .18D0, .3D0, & .17D0,.08D0,.18D0,.03D0,.24D0,.2D0,.1D0,.08D0,.17D0,.24D0, .03D0, & .18D0,.1D0,.2D0,.25D0,.18D0,.27D0,.3D0,.4D0,.2D0, .125D0, .075D0, & .075D0,.125D0,.4D0,.075D0,.125D0,.2D0,.125D0,.075D0,.18D0, .37D0, &.13D0,.08D0,.04D0,.07D0,.13D0,.37D0,.18D0,.04D0,.08D0,.13D0,.13D0, & 2*.07D0,.13D0,.23D0,.47D0,.05D0,.02D0,.01D0, .02D0, .13D0, .07D0, &.47D0,.23D0,.05D0,.01D0,2*.02D0,1.D0,.67D0,.33D0,.33D0,.67D0,1.D0, & .25D0,.27D0,.18D0,.3D0,.17D0,.08D0,.18D0,.03D0,.24D0, .2D0, .1D0/ DATA (WT1(I),I=227,330) / .08D0, .17D0, .24D0, .03D0, .18D0, .1D0, & .2D0, .25D0, .18D0, .27D0, .3D0, .18D0, .37D0, .13D0,.08D0,.04D0, & .07D0, .13D0, .37D0, .18D0, .04D0, .08D0, 2*.13D0, .07D0, 2*.5D0, & 3*1.D0, .8D0, .2D0, .6D0, .3D0, .1D0, .6D0, .3D0, .1D0,.8D0,.2D0, & .33D0, .67D0, .66D0, 2*.17D0, .32D0, .17D0, .32D0, .19D0,2*.33D0, & .34D0, .3D0, .05D0, .65D0,.38D0, .12D0, .38D0, .12D0,.38D0,.12D0, & .38D0, .12D0, .3D0, .05D0, .65D0, .38D0, 2*.25D0, .02D0, 2*.05D0, & 2*.2D0, .12D0, .1D0, 2*.07D0, .14D0, 2*.05D0, 23*1.D0/ DATA (WT1(I),I=331,433) /.48D0, .24D0, .26D0, .02D0, .47D0, .35D0, & .15D0, .03D0, 2*1.D0, .52D0, .48D0, 4*1.D0, .9D0, 2*.05D0, .9D0, & 2*.05D0, .9D0, 2*.05D0, .33D0, 2*.67D0, .33D0, 2*.25D0, .5D0, & .9D0, 2*.05D0, .9D0, 2*.05D0, .9D0, 2*.05D0, .33D0, 2*.67D0, & .33D0, 2*.25D0, .5D0, .1D0, .5D0, .16D0, .24D0, .7D0, .3D0, .7D0, & .3D0, .1D0, .5D0, .16D0, .24D0, .3D0, .4D0, 2*.3D0, .4D0, .3D0, & .49D0, .49D0, .02D0, .55D0, .45D0, .68D0, .3D0, .02D0, .68D0, & .3D0, .02D0, .55D0, .45D0, .9D0, .1D0, .9D0, .1D0, .6D0, .3D0, & 3*.1D0, .8D0, 2*.28D0, .35D0, .07D0, .02D0, 2*.28D0, .35D0, & .07D0, .02D0, 4*1.D0 / DATA (WT1(I),I=434,540) / .02D0, .03D0, .07D0, 2*.02D0, .04D0, & .13D0, .07D0, 2*.06D0, .2D0, .14D0, .04D0, .1D0, .25D0, .03D0, & .3D0, .42D0, .22D0, .35D0, .19D0, .16D0, .08D0, 5*1.D0, .37D0, & .2D0, .36D0, .07D0, 6*.5D0, .02D0, .03D0, .07D0, 2*.02D0, .04D0, & .13D0, .07D0, 2*.06D0, .2D0, .14D0, .04D0, .1D0, .25D0, .03D0, & .3D0, .42D0, .22D0, .35D0, .19D0, .16D0, .08D0, 5*1.D0, .37D0, & .2D0, .36D0, .07D0, 6*.5D0, 9*1.D0, 2*.3D0, .4D0, 9*1.D0, 2*.3D0, & .4D0, 2*.33D0, .34D0, 4*.5D0 / * Particle numbers in decay channel * * * DATA (NZK1(I,1),I=1,378) / 1, 2, 3, 4, 5, 6, 7, 1, 2, 4, 3 ,23, & 3*13, 10, 11, 10, 3*13, 10, 4, 11, 3*14, 11, 3, 1, 8, 2*1, 2, 9, & 2*2, 13, 23, 8, 1, 8, 17, 3*7, 2*23, 4*13, 23, 14, 2*13, 23, 15, & 2*24, 15, 16, 2*25, 16, 15, 2*24, 15, 16, 25, 25, 16, 15, 24, 36, & 37, 15, 24, 2*15, 24, 15, 37, 36, 24, 15, 2*24, 16, 25, 38, 39, & 16, 25, 2*16, 25, 16, 39, 38, 25, 16, 2*25, 17, 22, 21, 17, 21, & 20, 17, 22, 8, 1, 21, 22, 20, 17, 48, 50, 49, 8, 1, 3*17, 21, 20, & 22, 17, 22, 21, 20, 22, 19, 12, 19, 12, 2*1, 8, 1, 2*8, 1, 53, & 54, 2*1, 8, 53, 54, 55, 1, 8, 1, 8, 54, 55, 56, 1, 2*8, 55, 56, & 8, 1, 53, 54, 55, 1, 2*8, 54, 55, 56, 1, 8, 1, 8, 53, 54, 55, 1, & 8, 1, 8, 54, 55, 56, 1, 8, 1, 8, 1, 8, 17, 21, 22, 2*1, 8, 1, 8, & 17, 22, 20, 8, 2*2, 9, 2, 2*9, 2, 67, 68, 2*2, 9, 67, 68, 69, 2, & 9, 2, 9, 68, 69, 70, 2, 2*9, 69, 70, 9, 2, 9, 67, 68, 69, 2, 9,2, & 9, 68, 69, 70, 2, 9, 1, 8, 2*13, 14, 1, 8, 2*1, 3*8, 1, 8, 5*1, & 8, 2*2, 2*9, 2*2, 9, 2*15, 24, 2*16, 2*25, 2*15, 2*24, 2*16, 25, & 1, 21, 22, 21, 48, 49, 8, 17, 20, 17, 22, 2*20, 22, 20, 23*0, & 2*31, 13, 7, 15, 12, 13, 31, 2*17, 2, 9, 18, 9, 2*18, 17, 21, 22, & 17, 21, 20, 17, 20, 22, 97, 98, 97, 98, 97, 98, 17, 18, 99, 100, & 18, 101, 99, 18, 101, 100, 102, 103, 102, 103, 102, 103, 18 / DATA (NZK1(I,1),I=379,540)/2*16, 2*24, 16, 25, 15, 24, 2*15, 2*25, & 31, 2*15, 31, 2*16, 23, 13, 7, 3*116, 2*117, 119, 2*118, 2*119, & 2*120, 2*121, 3*130, 4, 10, 13, 10, 4, 32, 13, 36, 11, 3, 34, 14, & 38, 133, 134, 135, 136, 2*21, 1, 97, 104, 54, 53, 17, 22, 2*21, & 1, 54, 53, 21, 97, 21, 97, 22, 21, 97, 98, 105, 3*137, 138, 139, & 2*97, 2*109, 140, 138, 137, 139, 138, 145, 2*99, 2, 102, 110, 68, & 67, 18, 100, 2*99, 2, 68, 67, 99, 102, 99, 102, 100, 99, 102,103, & 111, 3*149, 150, 151, 2*113, 2*115, 152, 150, 149, 151, 150, 157, & 140, 141, 142, 143, 144, 145, 146, 147, 148, 138, 145, 140, 152, & 153, 154, 155, 156, 157, 158, 159, 160, 150, 157, 152, 34, 32, & 2*33, 32, 33, 34 / DATA (NZK1(I,2),I=1,378) /7*0, 3, 4, 6, 5, 23, 14, 11, 3, 3*5, 23, & 13, 3*23, 5, 23, 13, 3*23, 14, 23, 3, 11, 13, 23, 4, 10, 14, 23, & 14, 23, 13, 2*7, 4, 2*7, 23, 2*14, 23, 14, 2*23, 2*14, 7, 23, 13, & 23, 14, 23, 14, 23, 13, 23, 13, 23, 14, 23, 14, 23, 13, 23, 13, & 23, 13, 33, 32, 35, 31, 23, 14, 23, 14, 33, 34, 35, 31, 23, 14, & 23, 14, 33, 34, 35, 31, 23, 13, 23, 13, 33, 32, 35, 31, 13, 13, & 2*23, 14, 13, 2*14, 25, 16, 14, 23, 13, 31, 14, 13, 23, 25, 16, & 23, 35, 33, 34, 32, 33, 2*31, 14, 13, 23, 4*0, 13, 23, 13, 14, & 23, 14, 13, 23, 13, 78, 23, 13, 14, 23, 13, 79, 78, 14, 23, 14, & 23, 13, 80, 79, 2*14, 23, 80, 31, 14, 23, 13, 79, 78, 31, 14, 23, & 13, 80, 79, 23, 13, 14, 23, 13, 79, 78, 14, 23, 14, 23, 13, 80, & 79, 23, 13, 33, 32, 15, 24, 15, 31, 14, 23, 34, 33, 2*24, 15, 31, & 14, 23, 14, 13, 23, 13, 14, 23, 14, 80, 23, 14, 13, 23, 14,79,80, & 13, 23, 13, 23, 14, 78, 79, 2*13, 23, 78, 23, 14, 13, 23, 14, 79, & 80, 13, 23, 13, 23, 14, 78, 79, 62, 61, 23, 14, 23, 2*13, 13, 23, & 2*13, 23, 3*14, 1, 2*8, 1, 8, 1, 2*8, 1, 8, 1, 8, 1, 8, 2*1, 8,1, & 2*8, 2*1, 2*8, 1, 8, 25, 23, 13, 31, 23, 13, 16, 14, 35, 2*34,33, & 31, 14, 23, 23*0, 13, 23, 14, 7, 16, 19, 14, 7, 23, 14, 23, 14,7, & 13, 23, 2*13, 23, 13, 23, 14, 13, 14, 23, 14, 23, 13, 14, 23, 14, & 23, 16, 14, 23, 14, 23, 14, 2*13, 23, 13, 23, 14,13,23,13,23,15 / DATA (NZK1(I,2),I=379,540) / 3*13, 23, 2*13, 5*14, 23, 13, 16, 25, & 14, 15, 24, 23, 14, 7, 23, 7, 13, 23, 7, 14, 23, 7, 23, 5*7, 13, & 23, 31, 3, 11, 14, 135, 5, 3*134, 136, 6, 3*133, 4*0, 31, 95, 25, & 15, 31, 95, 16, 2*32, 33, 35, 2*39, 38, 25, 13, 39, 32, 39, 38, & 35, 32, 39, 13, 23, 14, 2*7, 25, 37, 32, 13, 25, 13, 25, 13, 25, & 13, 31, 95, 24, 16, 31, 24, 15, 2*34, 33, 35, 2*37, 36, 24, 14, & 37, 34, 37, 36, 35, 34, 37, 14, 23, 13, 2*7, 24, 39, 34, 14, 24, & 14, 24, 14, 24, 14, 9*7, 25, 13, 25, 9*7, 24, 14, 24, 13, 14, 23, & 13, 23, 14, 23/ DATA (NZK1(I,3),I=1,378) /7*0, 5, 6, 5, 6, 2*23, 2*5, 4*0, 14, 23, & 2*5, 2*0, 14, 23, 2*5, 2*0, 2*5, 2*0, 2*5, 7*0, 3, 0, 7, 2*23, 7, & 4*0, 23, 201*0, 23, 13, 14, 2*23, 14, 3*23, 14, 23, 13, 23, 14, & 13, 23, 13, 23, 14, 23, 2*14, 23, 2*13, 23, 13, 14, 2*23, 14, 23, & 13, 23, 2*14, 38*0, 14, 23, 7, 3*0, 23, 41*0 / DATA (NZK1(I,3),I=379,540) / 0, 23, 14, 0, 13, 0, 14, 2*0, 23, 13, & 2*0, 15, 2*0, 16, 18*0, 14, 23, 3*0, 23, 2*134, 3*0, 2*133, 92*0, & 2*13, 25, 9*0, 2*14, 24, 7*0/ * DO 10 J=1,IDMAX9 ZKNAME(J)=ZKNAM1(J) WT(J)=WT1(J) DO 20 I=1,3 NZK(J,I)=NZK1(J,I) 20 CONTINUE 10 CONTINUE *= end.block.blkdt7 * END