FUNCTION MAX(IX1,IX2)
C BESTIMMT MAXIMUM(IX1,IX2)
C FORTRAN II
	IF(IX1-IX2)1000,1000,1001
1000	MAX=IX2
	RETURN
1001	MAX=IX1
	RETURN
	END