parameter (MAXAVE=120)
	common/ave/ppsave(64,63,MAXAVE),nflag(MAXAVE),nsave,
     +    iseg(MAXAVE)