This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / block / flkdt1.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:19:35  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 BLKDT1.FOR
13 *COPY BLKDT1
14 *
15 *=== blkdt1 ===========================================================*
16 *==                                                                    *
17       SUBROUTINE FLKDT1
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 *----------------------------------------------------------------------*
23 *     Version May 81                 Pertti Aarnio                     *
24 *                                    Helsinki University of            *
25 *                                    Technology, Finland               *
26 *     Last change  17  march  92  by Alfredo Ferrari                   *
27 *                                                                      *
28 *                                                                      *
29 *     This is a block data subroutine of Fluka86, which should contain *
30 *     the common blocks, which can and should be initialised before    *
31 *     the run.                                                         *
32 *                                                                      *
33 *     Note that most of the default values for input parameters are    *
34 *     set here.                                                        *
35 *----------------------------------------------------------------------*
36 * The commons are INCLUDEd from Fluka87 Maclib                         *
37 *                 ---> Now from Flukadd Maclib  (A. Fasso' 1989)       *
38 *----------------------------------------------------------------------*
39 #include "geant321/paprop.inc"
40 *
41 *----------------------------------------------------------------------*
42 *
43       CHARACTER*8 GENPA1(30), BTYPE1(39)
44       LOGICAL LHADR1(39), LPRBD1, LPRBI1
45       DIMENSION ISCOR1(10), IJDIS1(39)
46 * /Paprop/                                                             *
47       DATA BTYPE1/'PROTON  ' , 'APROTON ' , 'ELECTRON' ,
48      1            'POSITRON' , 'NEUTRIE ' , 'ANEUTRIE' ,
49      2            'PHOTON  ' , 'NEUTRON ' , 'ANEUTRON' ,
50      3            'MUON+   ' , 'MUON-   ' , 'KAONLONG' ,
51      4            'PION+   ' , 'PION-   ' , 'KAON+   ' ,
52      5            'KAON-   ' , 'LAMBDA  ' , 'ALAMBDA ' ,
53      6            'KAONSHRT' , 'SIGMA-  ' , 'SIGMA+  ' ,
54      7            'SIGMAZER' , 'PIZERO  ' , 'KAONZERO' ,
55      8            'AKAONZER' , 'RESERVED' , 'BLANK   ' ,
56      9            'BLANK   ' , 'BLANK   ' , 'HEAVYION' ,
57      A            'ASIGMA- ' , 'ASIGMAZE' , 'ASIGMA+ ' ,
58      B            'XSIZERO ' , 'AXSIZERO' , 'XSI-    ' ,
59      C            'AXSI+   ' , 'OMEGA-  ' , 'AOMEGA+ ' /
60       DATA ISCOR1 / 201, 9*0 /
61       DATA GENPA1 / 'ALL-PART', 'ALL-CHAR', 'ALL-NEUT', 'ALL-NEGA',
62      &  'ALL-POSI', 'NUCLEONS', 'NUC&PI+-', 'ENERGY  ', 'PIONS+- ',
63      &  'BEAMPART', 'EM-ENRGY', 19*'BLANK   ' /
64       DATA IJDIS1 / 4*0,2*1,33*0 /
65       DATA LHADR1 / 2 *.TRUE., 5 * .FALSE., 2 * .TRUE., 2 * .FALSE.,
66      &              28 * .TRUE. /
67       DATA LPRBD1, LPRBI1 / 2*.FALSE. /
68 *
69       DO 10 J=1,39
70          BTYPE(J)=BTYPE1(J)
71          IJDISC(J)=IJDIS1(J)
72          LHADRO(J)=LHADR1(J)
73   10  CONTINUE
74       DO 20 J=1,30
75          GENPAR(J)=GENPA1(J)
76    20 CONTINUE
77       DO 30 J=1,10
78          ISCORE(J)=ISCOR1(J)
79    30 CONTINUE
80       LPRBSD = LPRBD1
81       LPRBSI = LPRBI1
82 *=                                               end*block.blkdt1      *
83       END