integer b,n,ncf
	parameter (b = 9,n = b*b)
	integer spin(b,b)
	integer site(n,2)
	integer e,m,nmass,nvisit,nper
	integer*4 iseed
	integer perx(2*n),pery(2*n),nnx(4),nny(4)
	integer*4 nsave,nequil
	real*4 ms(500),cm(500),es(500),ce(500)
	real*8 p,r2
	real*4 ecum,e2cum,mcum,magcum,m2cum
	real*4 r2cum,mscum,ms2cum,nvcum,nv2cum
	common /lattice/spin,site
	common /data/e,m,ecum,e2cum,mcum,magcum,m2cum
	common /monte/ncf,iseed
	common/correl/nsave,nequil,ms,cm,es,ce
	common /extra/nvisit,nmass
	common /peri/perx,pery,nnx,nny,nper
	common /clster/r2cum,mscum,ms2cum,nvcum,nv2cum
	common /size/r2
	common /prob/p