Bugfix in AliPoints2Memory
[u/mrichter/AliRoot.git] / GEANT321 / fluka / index2.F
CommitLineData
fe4da5cc 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