integer*4 exit_status
	common/final_status/exit_status
	save /final_status/