lecswi.F

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

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

      SUBROUTINE lecswi(I,J)

C--       switch colour pointers for partons in rows I and J 
C--       and anticolour 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,ki4,kj4

      ki4=k(i,4)
      kj4=k(j,4)
      k(ki4,5)=j
      k(kj4,5)=i
      k(i,4)=kj4
      k(j,4)=ki4

      END