* $Id$
        REAL ATCO, ATXS
        COMMON/HIPYINT/MINT4,MINT5,ATCO(200,20),ATXS(0:200)
	SAVE  /HIPYINT/