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