5 * Revision 1.1.1.1 1995/10/24 10:21:59 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/04 23/02/95 14.46.01 by S.Giani
12 SUBROUTINE SECLF7(FSE,IFSE,EX,U,E)
13 C THIS ROUTINE SAMPLES AN EXIT ENERGY FROM
14 C A SIMPLE FISSION SPECTRUM
15 #include "geant321/minput.inc"
16 DIMENSION FSE(*),IFSE(*)
26 IF(E.LE.FSE(IP))GO TO 20
30 C DETERMINE THE INTERPOLATING SCHEME
31 CALL INTSCH(IFSE,I,IS,NR)
34 CALL INTERP(E,THETA,E1,FSE(IP-1),E2,FSE(IP+1),IS)
36 C INCIDENT ENERGY IS ABOVE THE LAST INCIDENT ENERGY GIVEN
37 C USE THE LAST DISTRIBUTION
40 C INCIDENT ENERGY IS BELOW THE FIRST INCIDENT ENERGY GIVEN
41 C USE THE FIRST DISTRIBUTION
43 C SELECT THE EXIT ENERGY FROM THE FISSION SPECTRUM
48 TAU=(-ALOG(S)/S)*(R1**2)
53 #if defined(CERNLIB_MDEBUG)
54 WRITE(IOUT,10000)EX,EMAX
55 10000 FORMAT(' MICAP: WARNING-EX,EMAX=',1P2E13.5,' IN SECLF7')