	PARAMETER SIZE_LOW_LIFE = 4
	BYTE all_low_life(SIZE_LOW_LIFE)
	INTEGER*4 seed
	COMMON / Low_life / seed
	EQUIVALENCE (all_low_life,seed)
