5 * Revision 1.1.1.1 1995/10/24 10:21:02 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.39 by S.Giani
12 SUBROUTINE CASFRG(NUCFLG,INT,NFL)
14 C *** CASCADE OF HEAVY FRAGMENTS ***
15 C *** NVE 11-MAY-1988 CERN GENEVA ***
17 C ORIGIN : H.FESEFELDT (02-DEC-1986)
19 C --- NUCFLG IS A FLAG TO DENOTE THE NUCREC ACTION ---
20 C NUCFLG = 0 ==> NO ACTION TAKEN BY NUCREC
21 C 1 ==> ACTION TAKEN BY NUCREC
24 IF (NOPT .NE. 0) GO TO 9999