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 ;