FUNCTION get_array,headls,field,fp=fp,fl=fl
      
     fp1 = fp 
     tmp = ''
     n = n_elements(headls)
     IF n EQ 0 THEN RETURN," "
     sorted = STRARR(n)
     for i=0,n-1 do begin
       line = headls(i)
       
       ;tmp = STR_SEP(line,' ')
       ;ii = WHERE(tmp GT '')
       ;sorted(i) = tmp(ii(field))
       
       fn = STRPOS(line,' ')
       
       IF fn NE 12 THEN fp = fp1 + (fn-12); (fn-12) ????
   
       sorted(i) = STRMID(line,fp,fl)

     endfor

RETURN,sorted
END