C NCLFORTSTART
	subroutine TSRGT (eps, n, A, it, C, Kp, Lp)
  	real*8 eps, po, t0
  	integer n, it
  	dimension A(n,n), C(n,n), Kp(n), Lp(n) 
C NCLEND
C NCLFORTSTART
	FUNCTION DMGT (eps, n, A)
    integer n
	real*8 eps, d0
	dimension A(n,n)
C NCLEND