1 2 3 4 5 6 7 8 9 10 11 12 13
PRO strings2file,strs,file Nstrs=n_elements(strs) openw,unit,file,/get_lun FOR i=0L,Nstrs-1 DO BEGIN printf,unit,strs(i) ENDFOR close,unit free_lun,unit END
adding librairies...