program test  


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c	This program interperates the output of "geom.ftn" 

	integer b
	parameter(b=2)

	real a(b),chi  
        real x,y,basis(b),lngth,l    
	


	open(unit=20,file='geom.out')
	open(unit=21,file='test.out')

	read(20,*) (a(j), j = 1,b),chi,lngth  

	x=0.0
        y=0.0 
        l=0.0

        do while (l .lt. lngth)  
                        
        	call funcs(x,basis)   

		y=0.0

			do 5 i=1,b

			y=y+a(i)*basis(i)  

   5			continue

		write(21,*) x,y

		x=x+0.1 

	call length(x,a,b,l)     

        enddo 

	close(20)
	close(21)


	stop

	end