5 * Revision 1.1.1.1 1995/10/24 10:21:06 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.40 by S.Giani
12 SUBROUTINE CASAX0(K,INT,NFL)
14 C *** CASCADE OF XI0 BAR ***
15 C *** NVE 17-JAN-1989 CERN GENEVA ***
17 C XI0 BAR UNDERGOES INTERACTION WITH NUCLEON WITHIN NUCLEUS.
18 C CHECK IF ENERGETICALLY POSSIBLE TO PRODUCE PIONS/KAONS.
19 C IF NOT, ASSUME NUCLEAR EXCITATION OCCURS, DEGRADE INPUT PARTICLE
20 C IN ENERGY AND NO OTHER PARTICLES ARE PRODUCED.
21 C IF REACTION IS POSSIBLE FIND CORRECT NUMBER OF PIONS/PROTONS/
22 C NEUTRONS PRODUCED USING AN INTERPOLATION TO MULTIPLICITY DATA.
23 C REPLACE SOME PIONS OR PROTONS/NEUTRONS BY KAONS OR STRANGE BARYONS
24 C ACCORDING TO AVERAGE MULTIPLICITY PER INELASTIC REACTIONS.
26 #include "geant321/s_prntfl.inc"
27 #include "geant321/s_kginit.inc"
29 C *** NOT YET FINISHED ==> TAKE XI0 CASCADE INSTEAD ***
31 C --- INITIALIZATION INDICATED BY KGINIT(23) ---
34 IF (NPRT(4)) PRINT 1000
35 1000 FORMAT(' *CASAX0* NOT WRITTEN YET ==> CASX0 CALLED INSTEAD')