GEANT321/fluka/bklass.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1995/10/24 10:19:59  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 BKLASS.FOR
  13 *COPY BKLASS
  14 *
  15 *=== bklass ===========================================================*
  16 *
  17       SUBROUTINE BKLASS(I,J,K,I8,I10)
  18
  19 #include "geant321/dblprc.inc"
  20 #include "geant321/dimpar.inc"
  21 #include "geant321/iounit.inc"
  22 C*** I,J,K QUARK FLAVOURS U,D,S,C=1,2,3,4
  23 C*** AQ = -Q
  24 C*** I8,I10 BARYON INDICES
  25 #include "geant321/inpdat.inc"
  26       IF (I) 10,10,100
  27 C*** BARYON
  28 100   CONTINUE
  29       CALL INDEX2(J,K,IND)
  30       I8=IB08(I,IND)
  31       I10=IB10(I,IND)
  32          IF (I8.LE.0) I8=I10
  33       RETURN
  34 10    CONTINUE
  35 C*** ANTIBARYONS
  36       II=IABS(I)
  37       JJ=IABS(J)
  38       KK=IABS(K)
  39       CALL INDEX2(JJ,KK,IND)
  40       I8=IA08(II,IND)
  41       I10=IA10(II,IND)
  42          IF (I8.LE.0) I8=I10
  43       RETURN
  44       END