pro imout,name,image

s=size(image)
if s(0) ne 2 then begin
    print,'imout : Image variable is not two-dimensional'
    return
    endif
nx=s(1) & ny=s(2)
openw,unit,name,/get_lun
for j=0,ny-1 do writeu,unit,image(*,j)
close,unit
free_lun,unit
return
end