[u/mrichter/AliRoot.git] / GEANT321 / fluka / fprob.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1995/10/24 10:19:56  cernlib
* Geant
*
*
#include "geant321/pilot.h"
*CMZ :  3.21/02 29/03/94  15.41.42  by  S.Giani
*-- Author :
*$ CREATE FPROB.FOR
*COPY FPROB
*
*=== fprob ============================================================*
*
      FUNCTION FPROB (Z,A,U)
 
#include "geant321/dblprc.inc"
#include "geant321/dimpar.inc"
#include "geant321/iounit.inc"
*
*----------------------------------------------------------------------*
*                                                                      *
*  Fission PROBability:                                                *
*                                                                      *
*  Created  on  8 april 1993   by     Alfredo Ferrari & Paola Sala     *
*                                                INFN - Milan          *
*                                                                      *
*  Last change  on  09-apr-93  by  Alfredo Ferrari, INFN - Milan       *
*                                                                      *
*  This function is just a translation into Fluka of the same function *
*  of LAHET kindly provided by R.E. Prael                              *
*                                                                      *
*     Input variables:                                                 *
*                       Z = present nucleus atomic number              *
*                       A =    "       "     mass    "                 *
*                       U =    "       "    excitation energy (MeV)    *
*                                                                      *
*----------------------------------------------------------------------*
*
      FPROB = 0
      STOP 'FPROB'
*      RETURN
*=== End of function Fprob ============================================*
      END
Commit	Line	Data
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