C NCLFORTSTART
	FUNCTION DMGT (eps, n, A)
        integer n
	double precision eps, d0
	double precision A(n,n)
C NCLEND