subroutine storecsv_px(i,j)
c-- this routine transfers the information on the colour structure
c-- for the W2jet_gvec matrix elements into elements (..,i,j) of p1p2
      implicit none
      include 'mmsqv_cs.f'
      integer i,j,k
      double precision p1p2(0:2,-1:1,-1:1)
      common/p1p2/p1p2
      
      do k=0,2
        p1p2(k,i,j)=mmsqv_cs(k,+1,+1)
      enddo
      
      return
      end