* $Id$
        REAL X4
	COMMON /BESEL_HIJING/X4
	SAVE   /BESEL_HIJING/