This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / fluka / fisfra.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 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