[u/mrichter/AliRoot.git] / GEANT321 / fluka / fisfra.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 FISFRA.FOR
*COPY FISFRA
*
*=== fisfra ===========================================================*
*
      SUBROUTINE FISFRA ( JA, JZ, U, EREC, UMO, GAMCM, ETACM )
 
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
*
*----------------------------------------------------------------------*
*                                                                      *
*  FISsion FRAgments emission:                                         *
*                                                                      *
*                                                                      *
*      Subroutine to pick post fission parameters for nucleus          *
*      JZ,JA excited to U and recoiling with Erec.                     *
*                                                                      *
*  Created  on  08 april 1993  by  A.Ferrari & P.Sala, INFN - Milan    *
*                                                                      *
*  Last change  on  14-apr-93  by  Alfredo Ferrari, INFN - Milan       *
*                                                                      *
*  This routine is just the FLUKA equivalent of the routines FISSED and*
*  FISDIS of LAHET, taken thanks to R.E.Prael                          *
*                                                                      *
*  Input variables:                                                    *
*     JA = Mass number of the fissioning nucleus                       *
*     JZ = Atomic number of the fissioning nucleus                     *
*     U  = Excitation energy (MeV) of the fissioning nucleus           *
*     Erec = Recoil kinetic energy (MeV) of the residual nucleus       *
*            The recoil direction is given by Coslf0 (i)               *
*     Umo  = invariant mass of the fissioning system (mass+excitation) *
*     Gamcm= CMS Lorentz boost "gamma"                                 *
*     Etacm= CMS Lorentz boost "eta"                                   *
*                                                                      *
*----------------------------------------------------------------------*
*
      STOP 'FISFRA'
*      RETURN
*=== Fisfra ===========================================================*
      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 FISFRA.FOR
	13	*COPY FISFRA
	14	*
	15	=== fisfra ===========================================================
	16	*
	17	SUBROUTINE FISFRA ( JA, JZ, U, EREC, UMO, GAMCM, ETACM )
	18
	19	#include "geant321/dblprc.inc"
	20	#include "geant321/dimpar.inc"
	21	#include "geant321/iounit.inc"
	22	*
	23	----------------------------------------------------------------------
	24	* *
	25	* FISsion FRAgments emission: *
	26	* *
	27	* *
	28	* Subroutine to pick post fission parameters for nucleus *
	29	* JZ,JA excited to U and recoiling with Erec. *
	30	* *
	31	* Created on 08 april 1993 by A.Ferrari & P.Sala, INFN - Milan *
	32	* *
	33	* Last change on 14-apr-93 by Alfredo Ferrari, INFN - Milan *
	34	* *
	35	* This routine is just the FLUKA equivalent of the routines FISSED and*
	36	* FISDIS of LAHET, taken thanks to R.E.Prael *
	37	* *
	38	* Input variables: *
	39	* JA = Mass number of the fissioning nucleus *
	40	* JZ = Atomic number of the fissioning nucleus *
	41	* U = Excitation energy (MeV) of the fissioning nucleus *
	42	* Erec = Recoil kinetic energy (MeV) of the residual nucleus *
	43	* The recoil direction is given by Coslf0 (i) *
	44	* Umo = invariant mass of the fissioning system (mass+excitation) *
	45	* Gamcm= CMS Lorentz boost "gamma" *
	46	* Etacm= CMS Lorentz boost "eta" *
	47	* *
	48	----------------------------------------------------------------------
	49	*
	50	STOP 'FISFRA'
	51	* RETURN
	52	=== Fisfra ===========================================================
	53	END