This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gheisha / casax0.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:21:06  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.40  by  S.Giani
11 *-- Author :
12       SUBROUTINE CASAX0(K,INT,NFL)
13 C
14 C *** CASCADE OF XI0 BAR ***
15 C *** NVE 17-JAN-1989 CERN GENEVA ***
16 C
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.
25 C
26 #include "geant321/s_prntfl.inc"
27 #include "geant321/s_kginit.inc"
28 C
29 C *** NOT YET FINISHED ==> TAKE XI0 CASCADE INSTEAD ***
30 C
31 C --- INITIALIZATION INDICATED BY KGINIT(23) ---
32       KGINIT(23)=1
33 C
34       IF (NPRT(4)) PRINT 1000
35  1000 FORMAT(' *CASAX0* NOT WRITTEN YET ==> CASX0 CALLED INSTEAD')
36 C
37       CALL CASX0(K,INT,NFL)
38 C
39  9999 CONTINUE
40       END