* $Id$
        REAL PP, PT
	COMMON/HISTRNG/NFP(300,15),PP(300,15),NFT(300,15),PT(300,15)
#ifndef BLANKET_SAVE
	SAVE  /HISTRNG/
#endif