function plotit(MIG,MOD,nxx,nz,dx,dz,dt,refl,ntime)
figure(1);MIG=MIG/max(max(abs(MIG)));
hold off
subplot(212)
colormap(jet)
ii=0;x=0;y=0;
for i=1:nxx;
for j=1:nz;
  if abs(MOD(i,j))>.001;ii=ii+1;x(ii)=i;y(ii)=j;end
end;
end
imagesc([1:nxx]*dx,[1:nz]*dz, MIG(1:nxx,1:nz)');
colorbar
axis([dx nxx*dx 0 nz*dz])
title('Poststack Migration Image');
ylabel('Depth (m)');
xlabel('X-offset (m)');
hold on;
plot(x*dx,y*dz,'*w')
hold off;
pause(1)
subplot(211)
colormap(gray)
imagesc([1:nxx]*dx, [1:ntime]*dt,refl(1:nxx,:)');
axis([dx nxx*dx 0 ntime/2*dt]);
%clim=[-.01 .022];imagesc([1:nxx]*dx, [1:ntime]*dt,refl(1:nxx,:)',clim);
colorbar
xlabel('Offset (m)')
ylabel('Time (s)')      
title('Poststack AGC Data in 1-Way Time');
pause(.3)
colormap(jet)

