!       tests vmgtrk routine
        program trktest
        implicit none
        integer istat,mnet_connectf,mnet_disconnectf
        integer:: itol(10)
        real:: tol(10)
        istat=mnet_connectf('TEST')
        if(istat.ne.1) then
         print *,' no mnet connect ' ; stop
        else
         call vmgtrk('LIN HORZ CUR',1,10,tol,itol)
        endif 
	istat=mnet_disconnectf()
	stop
	end program