c var1.inc
	COMMON /VAR1/RHO1(NI,NJ,NK),
     $		VX1(NI,NJ,NK),VY1(NI,NJ,NK),VZ1(NI,NJ,NK),C1(NI,NJ,NK),
     $       	BX1(NI,NJ,NK),BY1(NI,NJ,NK),BZ1(NI,NJ,NK),
     $		BI1(NIP1,NJ,NK),BJ1(NI,NJP1,NK),BK1(NI,NJ,NKP1)
	DIMENSION VAR1(NVAR0)
	EQUIVALENCE (VAR1,RHO1)