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