subroutine dpout(ne)
c------------------------------------------------------------------------
c
      include 'param_sz.h'
      include 'coordcom.h'
      include 'ncordscom.h'
      include 'syscom.h'
      include 'ucom.h'
c
c-----------------------------------------------------------------------
c*
      i=el(4,ne)
      open(unit=ndpout,file='dpout',access='sequential',
     *     status='new',form='formatted')
      write(ndpout,'(6(1x,e20.14),1x,e15.9)')((cord(i,j),i=1,6),
     *      weight(j),j=1,ngood)
      close(ndpout)
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*