
        integer rmax
	parameter( nmax=4096,rmax=2048)

