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