INTEGER*2 FUNCTION IR(N)
	INTEGER*2 TOTLEN
	COMMON LPEREC,TOTLEN
	IR=TOTLEN*N-TOTLEN+1
	RETURN
	END