leaswi.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file leaswi.F

C ********************************************************************

      SUBROUTINE leaswi(I,J)

C--       switch anticolour pointers for partons in rows I and J
C--       and colour pointers for the partons pointing back

      IMPLICIT NONE

C--   global variables
      INTEGER  nlupdm,nplbuf
      parameter(nlupdm=4000,nplbuf=5)
      common/lujets/n,k(nlupdm,5),p(nlupdm,nplbuf),v(nlupdm,5)
      INTEGER  n,k
      REAL  p,v
      SAVE /lujets/


C--       local variables
      INTEGER i,j,ki5,kj5

      ki5=k(i,5)
      kj5=k(j,5)
      k(ki5,4)=j
      k(kj5,4)=i
      k(i,5)=kj5
      k(j,5)=ki5         

      END