function [TGX]=TIME(R,nx,nz,nt,dx,dz,dt,c,sx,W,nd2)
%
% Compute Traveltime Table
%
x=[1:nx];z=[1:nz];[X,Z]=meshgrid(x,z);
zz=(dz*Z).^2;X=(dx*X);             % Compute X & Z Matrices
D=zeros(nx,nt);cnst=1/c/dt;        %Define Constants
TGX=zeros(nx,nz,nx);

for gx=1:nx;                       %Loop Over Traces
xx=dx*gx-X;xx=xx.*xx;
TGX(:,:,gx)=round(sqrt(xx+zz)*cnst+1);gx
end;


