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