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