;
;  Uncompressed variables
;
function fint,j
	common coff,incr,ioff,time,voff 
	common cdat,x,y,z,nx,ny,nz,nw,ntmax,date0,time0 
	a=assoc(1,fltarr(nx,ny),ioff(j)+(incr-1)*voff+4l*(55+17*nz))
	return,a(0)
end
function var,i,j
	common coff,incr,ioff,time,voff 
	common cdat,x,y,z,nx,ny,nz,nw,ntmax,date0,time0 
	a=assoc(1,fltarr(nx,ny,nz),ioff(j)+i*voff)
	return,a(0)
end
function flnrho,i
	return,var(0,i)
end
function fux,i
	return,var(1,i)
end
function fuy,i
	return,var(2,i)
end
function fuz,i
	return,var(3,i)
end
function fee,i
	return,var(4,i)
end
function fbx,i
	return,var(5,i)
end
function fby,i
	return,var(6,i)
end
function fbz,i
	return,var(7,i)
end
function ftt,i
	return,var(8,i)
end