* $Id$
        REAL PATT
	COMMON/HIMAIN2/KATT(200000,4),PATT(200000,4), VATT(200000,4)
#ifndef BLANKET_SAVE
	SAVE  /HIMAIN2/
#endif