PRO DWRITE,FILE,ARRAY,XARRAY
NPOINT = N_ELEMENTS(ARRAY)
OPENW,1,FILE+'.DAT',NPOINT*4
;PRINT,'NPOINT=',NPOINT
ASS=ASSOC(1,FLTARR(NPOINT))
ASS(0)=ARRAY
ASS(1)=XARRAY
CLOSE,1
RETURN
END
;