* $Id$
        REAL PATT
	COMMON/HIMAIN2/KATT(200000,4),PATT(200000,4)
	SAVE  /HIMAIN2/