find_grid_distances Subroutine

public subroutine find_grid_distances(xt, yt)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	xt
real,	intent(in)			::	yt