This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / peanut / frhinc.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:22:01  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.46  by  S.Giani
11 *-- Author :
12 *$ CREATE FRHINC.FOR
13 *COPY FRHINC
14 *
15 *=== frhinc ===========================================================*
16 *
17       FUNCTION FRHINC (R)
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22 *
23 #include "geant321/nucgeo.inc"
24 *
25 #include "geant321/nucstf.inc"
26 *
27       IF ( R .LE. RADIU0 ) THEN
28          FRHINC = RICORE (R)
29       ELSE IF ( R .LE. RADIU1 ) THEN
30          FRHINC = RISKIN (R)
31       ELSE IF ( R .LE. RADTOT ) THEN
32          FRHINC = RIHALO (R)
33       ELSE
34          FRHINC = RIHALO (RADTOT)
35       END IF
36       RETURN
37       END