This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / fluka / evvini.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:19:56  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.42  by  S.Giani
11 *-- Author :
12 *$ CREATE EVVINI.FOR
13 *COPY EVVINI
14 *
15 *=== evvini ===========================================================*
16 *
17       SUBROUTINE EVVINI (WHAT,SDUM)
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 *
23 *----------------------------------------------------------------------*
24 *                                                                      *
25 *     Version march 1990   by          Alfredo Ferrari, INFN-Milan     *
26 *                                                                      *
27 *     Last change  on  20-apr-92   by  Alfredo Ferrari, INFN-Milan     *
28 *     This subroutine initialises the quark model subroutines and the  *
29 *     evaporation module (Evap5 from Hetc-Kfa).                        *
30 *                                                                      *
31 *     input variables:                                                 *
32 *        what has currently no meaning                                 *
33 *        sdum = material name of a heavy ion beam                      *
34 *                                                                      *
35 *     output variables: none                                           *
36 *                                                                      *
37 *     Common blocks:                                                   *
38 *                                                                      *
39 *     /print/ printing control for the nucevt package                  *
40 *     /inpdat/ parameters for the nucevt package                       *
41 *                                                                      *
42 *----------------------------------------------------------------------*
43 *
44 #include "geant321/inpdat2.inc"
45 #include "geant321/parevt.inc"
46       CHARACTER*8 SDUM
47       DIMENSION WHAT(6)
48       COMMON/FKPRIN/IPRI,INIT
49       IF (.NOT.LEVPRT) LDEEXG=.FALSE.
50       CALL DATAR3
51       CALL HADDEN
52       CALL RCHANV
53       CALL CHANWT
54       ONEDUM = ONEONE
55       ZERDUM = ZERZER
56       NUD = NUDISV ( ONEDUM, 1, ZERDUM, ZERDUM, DPOWER, ZERDUM )
57       CALL BERTTP
58       CALL INCINI
59       IPRI=0
60       INIT=0
61       LTBAMJ=0
62       ASBAMJ = 0.5D+00
63       B8BAMJ = 0.4D+00
64       RETURN
65       END