5 * Revision 1.1.1.1 1995/10/24 10:22:00 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.46 by S.Giani
15 *=== fekfnc ===========================================================*
17 FUNCTION FEKFNC (PF,I)
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
23 #include "geant321/nucgeo.inc"
24 #include "geant321/nucdat.inc"
26 IF ( PFRCEN (I) - PF .LE. ANGLGB ) THEN
29 FEKFNC = SQRT ( AMNUSQ (I) + PF**2 ) - AMNUCL (I)