1*35973Sbostic C 2*35973Sbostic COMMON /XSRCH/ XMIN,XMAX,XDOWN,XUP, 3*35973Sbostic & XNORTH,XSOUTH,XENTER,XEXIT,XEAST,XWEST 4