Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fluka / fprob.F
CommitLineData
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 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