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