5 * Revision 1.1.1.1 1995/10/24 10:22:01 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.46 by S.Giani
15 *=== fpfrnc ===========================================================*
17 FUNCTION FPFRNC (RHO,I)
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
23 #include "geant321/nucgeo.inc"
25 #include "geant321/nucstf.inc"
27 IF ( RHO .GE. RHOCOR ) THEN
28 FPFRNC = PFCORE (RHO,I)
29 ELSE IF ( RHO .GE. RHOSKN ) THEN
30 FPFRNC = PFSKIN (RHO,I)
31 ELSE IF ( RHO .GT. 0.D+00 ) THEN
32 FPFRNC = PFHALO (RHO,I)