SUBROUTINE INUNIT
C	SET TEST2=NEW INPUT UNIT
	INTEGER TEST1,TEST2
	LOGICAL RSAC
	COMMON REALS(395),INTS(547)
	EQUIVALENCE (INTS(525),TEST1),(INTS(526),TEST2)
C	GET NEW INPUT UNIT
	TEST2 =4
	IF (TEST1.EQ.1) GO TO 10
	IF (RSAC(14)) TEST2=7
	IF (RSAC(13)) TEST2=5
10	RETURN
	END