function gifwrite(inarray,map,filename)
delay=0.05;
numframes=size(inarray,4);
mov=immovie(inarray,map);
for n=1:1:numframes;
dt = mov(n).cdata;
[imind,cm]=rgb2ind(dt,256);
if n==1;
imwrite(imind,cm,filename,'gif','DelayTime',delay,'Loopcount',inf);
else
imwrite(imind,cm,filename,'gif','DelayTime',delay,'WriteMode','append');
end
end
