SUBROUTINE SUBR(J)
	J=J+1
	RETURN
	END