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