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)=1.0

		aafunc(2)=xx**4 

c     		aafunc(3)=xx**3
                         

	return

	end