PYTHIA/pythia/rkhlpk.F

   1
   2 *==================================================================
   3
   4       SUBROUTINE RKHLPK(NUM,LGL1,LGL2,LLV,LL1,LL2)
   5       IMPLICIT INTEGER(A-Z)
   6       SAVE
   7       DIMENSION CONFIG(32,6)
   8       DATA INIT/0/
   9       IF(INIT.EQ.0) THEN
  10         INIT=1
  11         MUM=0
  12         DO 140 GL1=1,-1,-2
  13           DO 130 GL2=1,-1,-2
  14             DO 120 LV=1,-1,-2
  15               DO 110 L1=1,-1,-2
  16                 DO 100 L2=1,-1,-2
  17                   MUM=MUM+1
  18                   CONFIG(MUM,1)=GL1
  19                   CONFIG(MUM,2)=GL2
  20                   CONFIG(MUM,3)=LV
  21                   CONFIG(MUM,4)=L1
  22                   CONFIG(MUM,5)=L2
  23   100           CONTINUE
  24   110         CONTINUE
  25   120       CONTINUE
  26   130     CONTINUE
  27   140   CONTINUE
  28       ENDIF
  29       LGL1=CONFIG(NUM,1)
  30       LGL2=CONFIG(NUM,2)
  31       LLV =CONFIG(NUM,3)
  32       LL1 =CONFIG(NUM,4)
  33       LL2 =CONFIG(NUM,5)
  34       END