function get_floatarr_arr, arr
equalpos = strpos(arr[0], '=')
temp = strtrim(strmid(arr, equalpos+1))
nentries = n_elements(arr)
result = dblarr(3,nentries)
for i = 0L, nentries-1 do begin
   a = double(strsplit(temp[i]," ,", /extract))
   result[0:(N_elements(a)-1),i] = a
endfor
return, result

end