* $Id$
        REAL HIDAT0, HIDAT
        COMMON/HIJDAT/HIDAT0(10,10),HIDAT(10)
	SAVE  /HIJDAT/