real*8 spin(3,5000)
	real*8 C(0:200,0:50)
	real*8 dt,tequil
	integer n
	integer tmax,rmax,norigin,iseed,ninitial
	parameter (tequil = 50.0) ! time used for equilibration of a conf.
	common /lattice/spin
	common /correl/C,dt
	common /params/ n,iseed,tmax,rmax,norigin,ninitial
*	n - the number of spins
*	tmax -  maximum time
*	rmax - maximum spin distance for autocorr. function
*	norigin - number of time origins
*	ninitial - number of initial conditions