openw,1,'assoc.fil'
f=assoc(1,fltarr(10))
null=fltarr(10)
for i=0,9 do f(i)=null
close,1

print,'First updating pass'
openu,1,'assoc.fil'
f=assoc(1,fltarr(10))
for i=0,9 do begin
    a=f(i)
    print,i,a,format='(i1,10f6.1)'
    out=findgen(10)+10*i
    print,i,out,format='(i1,10f6.1)'
    f(i)=out
    endfor
close,1

print,'Second updating pass'
openu,1,'assoc.fil'
f=assoc(1,fltarr(10))
for i=0,9 do begin
    a=f(i)
    print,i,a,format='(i1,10f6.1)'
    out=findgen(10)+10*i+100
    print,i,out,format='(i1,10f6.1)'
    f(i)=out
    endfor
close,1

end