function readform_arr, file

x=readform(file)
x = strcompress(strtrim(x,2))
Nx = n_elements(x)

tmp = where(byte(x[0]) eq '20'xb, count)

Ny = count + 1

y = strarr(Ny, Nx)
for j=0, Nx-1 do y[*,j] = str_sep(x[j], ' ')

return, double(transpose(y))


end