* $Id$
        REAL EATT, BB
	COMMON/HIMAIN1/NATT,EATT,JATT,NT,NP,N0,N01,N10,N11,BB,NPART
#ifndef BLANKET_SAVE
	SAVE  /HIMAIN1/
#endif