This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / fluka / hypero.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:00  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.44  by  S.Giani
11 *-- Author :
12 *$ CREATE HYPERO.FOR
13 *COPY HYPERO
14 *
15 *=== hypero ===========================================================*
16 *
17       SUBROUTINE HYPERO(IT,ITNUCR,SICO,PLABCO)
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22       COMMON /FKABLT/ AM(330),ICH(110),IBAR(110),K(220)
23 *     DIMENSION SICOR(30)
24       DIMENSION IHATRS(30),INUTRS(30)
25       DATA IHATRS/16*30,25,24,30,16,15,25,8*30/
26 C
27 C--------------------------------------------------
28 C*** ATTENSION, IN CASE OF IT=SIG+=21 NO STRANGENES-CONS.,DIFFER.1UNIT
29 C--------------------------------------------------
30       DATA INUTRS/16*30,8,2,30,8,1,8,8*30/
31       ITNUCR=INUTRS(IT)
32       ITHACR=IHATRS(IT)
33       PLABCO=1.D0
34       ITHATR=ITHACR
35       IF (ITNUCR.GE.30) ITHATR=IT
36       IF (ITNUCR.GE.30) ITNUCR=IT
37       SICO=1.D0
38       IF (ITHATR.LT.30) SICO=42.D0/39.D0
39       IF (IT.EQ.21) SICO=42.D0/40.D0
40       IF (ITHATR.LT.30) PLABCO=AM(IT)/(AM(ITNUCR)+1.D-10)
41       IT=ITHATR
42       RETURN
43       END