c var.inc
	COMMON /VAR/lstep,time,RHO(NI,NJ,NK),
     $		VX(NI,NJ,NK),VY(NI,NJ,NK),VZ(NI,NJ,NK),C(NI,NJ,NK),
     $       	BX(NI,NJ,NK),BY(NI,NJ,NK),BZ(NI,NJ,NK),
     $		BI(NIP1,NJ,NK),BJ(NI,NJP1,NK),BK(NI,NJ,NKP1)
	DIMENSION VAR(NVAR0),vartot(nvartot),varall(nvarall)
	EQUIVALENCE (VAR,RHO),(vartot,rho),(varall,lstep)
	DIMENSION VARBASE(NVARBASE)
	EQUIVALENCE (VARBASE,RHO)