      function testloop( xx )
      include 'sel.inc'

      write( 55, * ) idnevt, f7, imat, (dvvec(i), i=1,id7)

      testloop = 1.
      end
