GEANT321/fluka/fprob.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 FPROB.FOR
  13 *COPY FPROB
  14 *
  15 *=== fprob ============================================================*
  16 *
  17       FUNCTION FPROB (Z,A,U)
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 *
  23 *----------------------------------------------------------------------*
  24 *                                                                      *
  25 *  Fission PROBability:                                                *
  26 *                                                                      *
  27 *  Created  on  8 april 1993   by     Alfredo Ferrari & Paola Sala     *
  28 *                                                INFN - Milan          *
  29 *                                                                      *
  30 *  Last change  on  09-apr-93  by  Alfredo Ferrari, INFN - Milan       *
  31 *                                                                      *
  32 *  This function is just a translation into Fluka of the same function *
  33 *  of LAHET kindly provided by R.E. Prael                              *
  34 *                                                                      *
  35 *     Input variables:                                                 *
  36 *                       Z = present nucleus atomic number              *
  37 *                       A =    "       "     mass    "                 *
  38 *                       U =    "       "    excitation energy (MeV)    *
  39 *                                                                      *
  40 *----------------------------------------------------------------------*
  41 *
  42       FPROB = 0
  43       STOP 'FPROB'
  44 *      RETURN
  45 *=== End of function Fprob ============================================*
  46       END