program driver
c This is a test driver for the contouring routine 'mbcntr' and the
c data access routine 'get5d'.
	dimension mtns(72,36), xmtns(73,37)
	
	icnt= 0

c Initialize the graphics interface stuff
	call opngks

c Read the data file.
	call get5d(mtns)
	call fixit(mtns, xmtns)

c Contour plot the 5 degree averaged orographic data. 
	call mbcntr(xmtns, 73., 37.)

c Close the graphics interface
	call clsgks

	stop
	end