pro countlines,bat_tempa,nofiles,size_array size_array=fltarr(nofiles) for ifile=0,nofiles-1 do begin ;spawn,"wc -l<"+bat_tempa(ifile),nolines forward_function nlines nolines=nlines(bat_tempa(ifile)) ;nolines = LONG(nolines(0)) size_array(ifile)=nolines endfor return end