subroutine funcs(xx,aafunc,mma) 

c	This subroutimne specifies the mma basis
c	functions used for programs geom.ftn and
c	test.ftn.

        integer mma

	real xx,aafunc(mma) 

                              
c	Specify basis functions
	
		aafunc(1)=xx

		aafunc(2)=xx**0.95 

c     		aafunc(3)=xx**3
                         

	return

	end

	
	subroutine length(xx,aa,bb,ll)  
                               
	integer bb

	real ll,xx,aa(bb),x1,a,b

	a=aa(1)

	b=aa(2)
	
	x1=xx

c2345678901234567890123456789012345678901234567890123456789012345678901

           ll=(-(a*Sqrt(1 + a**2)) + a*Sqrt(1 + (a + 2*b*x1)**2) + 
     -     2*b*x1*Sqrt(1 + (a + 2*b*x1)**2) - Log(a + Sqrt(1 + a**2)) + 
     -     Log(a + 2*b*x1 + Sqrt(1 + (a + 2*b*x1)**2)))/(4*b)
                                                                  

	return

	end