[u/mrichter/AliRoot.git] / GEANT321 / fluka / evvini.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:19:56  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.42  by  S.Giani
*-- Author :
*$ CREATE EVVINI.FOR
*COPY EVVINI
*
*=== evvini ===========================================================*
*
      SUBROUTINE EVVINI (WHAT,SDUM)
 
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
*
*----------------------------------------------------------------------*
*                                                                      *
*     Version march 1990   by          Alfredo Ferrari, INFN-Milan     *
*                                                                      *
*     Last change  on  20-apr-92   by  Alfredo Ferrari, INFN-Milan     *
*     This subroutine initialises the quark model subroutines and the  *
*     evaporation module (Evap5 from Hetc-Kfa).                        *
*                                                                      *
*     input variables:                                                 *
*        what has currently no meaning                                 *
*        sdum = material name of a heavy ion beam                      *
*                                                                      *
*     output variables: none                                           *
*                                                                      *
*     Common blocks:                                                   *
*                                                                      *
*     /print/ printing control for the nucevt package                  *
*     /inpdat/ parameters for the nucevt package                       *
*                                                                      *
*----------------------------------------------------------------------*
*
#include "geant321/inpdat2.inc"
#include "geant321/parevt.inc"
      CHARACTER*8 SDUM
      DIMENSION WHAT(6)
      COMMON/FKPRIN/IPRI,INIT
      IF (.NOT.LEVPRT) LDEEXG=.FALSE.
      CALL DATAR3
      CALL HADDEN
      CALL RCHANV
      CALL CHANWT
      ONEDUM = ONEONE
      ZERDUM = ZERZER
      NUD = NUDISV ( ONEDUM, 1, ZERDUM, ZERDUM, DPOWER, ZERDUM )
      CALL BERTTP
      CALL INCINI
      IPRI=0
      INIT=0
      LTBAMJ=0
      ASBAMJ = 0.5D+00
      B8BAMJ = 0.4D+00
      RETURN
      END
Commit	Line	Data
fe4da5cc	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