* $Id$
	REAL PDR
	COMMON/HIJJET4/NDR,IADR(900,2),KFDR(900),PDR(900,5)
#ifndef BLANKET_SAVE
	SAVE  /HIJJET4/
#endif