c	file tsp.for
c	prog to check s/r DISTBEAR & LATLON
C
10	CONTINUE
	print*,' Enter lat1,lon1,lat2,lon2  ---  4f5.0'
	READ(5,500) FLAT1,FLON1,FLAT2,FLON2
500	format(4f5.0)
	if(flat1+flat2.eq.0.) stop 'normal exit'
	call distbear(flat1,flon1,flat2,flon2,dist,bear)
	type*,' RANGE & BEARING ',dist,bear
	go to 10
	end