subroutine write_labeled_curve ( unit, npts, xdata, ydata, 
     &		linetype, xtext, ytext, dnode)
C
C*******************************************************************************
C
C       Copyright (C) 1993, California Institute of Technology.  U.S.
C       Government Sponsorhip under NASA Contract NAS7-918 is
C       acknowledged.
C
C*******************************************************************************
C
C	writes a curve to an ezplot file and labels it
C	the parameters are the same as in write_curve and write_label
C
	integer unit, npts, linetype
        character*(*) dnode
	real xdata(npts), ydata(npts)
	real xtxt, ytxt, xtext
	character*25 text
        namelist /zline/xtxt, ytxt, text

        xtxt = xtext
        ytxt = ytext
        text = dnode
	write( unit, zline)       

        call write_curve(unit, npts, xdata, ydata, linetype)

	return
	end