SUBROUTINE GETNUM
C
C	WRITTEN BY MICHAEL BOORSTEIN
C
C	DATE 14-SEP-77
C
C	THIS SUBROUTINE FINDS FOUR RANDOM NUMBERS,WHERE THE FIRST
C	AND FOURTH RANDOM NUMBER MAY NOT BE THE SAME.
C
	IMPLICIT INTEGER(A-Z)
	COMMON/NMRECS/MAX(3)
	COMMON/NUMBER/NUM(4)
	DO 10 J=1,3
10	CALL RANDOM(1,MAX(J),NUM(J))
20	CALL RANDOM(1,MAX(1),NUM(4))
	IF(NUM(1).EQ.NUM(4))GOTO 20
	RETURN
	END