Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fluka / index2.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:20:01  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 INDEX2.FOR
13 *COPY INDEX2
14 *
15 *=== index2 ===========================================================*
16 *
17       SUBROUTINE INDEX2(KA,KB,IND)
18  
19 #include "geant321/dblprc.inc"
20 #include "geant321/dimpar.inc"
21 #include "geant321/iounit.inc"
22       KP=KA*KB
23       KS=KA+KB
24       IF(KP.EQ.1)IND=1
25       IF(KP.EQ.2)IND=2
26       IF(KP.EQ.3)IND=3
27       IF(KP.EQ.4.AND.KS.EQ.5)IND=4
28       IF(KP.EQ.5)IND=5
29       IF(KP.EQ.6.AND.KS.EQ.7)IND=6
30       IF(KP.EQ.4.AND.KS.EQ.4)IND=7
31       IF(KP.EQ.6.AND.KS.EQ.5)IND=8
32       IF(KP.EQ.8)IND=9
33       IF(KP.EQ.10)IND=10
34       IF(KP.EQ.12.AND.KS.EQ.8)IND=11
35       IF(KP.EQ.9)IND=12
36       IF(KP.EQ.12.AND.KS.EQ.7)IND=13
37       IF(KP.EQ.15)IND=14
38       IF(KP.EQ.18)IND=15
39       IF(KP.EQ.16)IND=16
40       IF(KP.EQ.20)IND=17
41       IF(KP.EQ.24)IND=18
42       IF(KP.EQ.25)IND=19
43       IF(KP.EQ.30)IND=20
44       IF(KP.EQ.36)IND=21
45       RETURN
46       END