FUNCTION FMAX(X1,X2)
C BESTIMMT DIE GROESSTE DER ZAHLEN X1,X2
C FORTRAN II
	IF(X1-X2)1000,1000,1001
1000	FMAX=X2
	RETURN
1001	FMAX=X1
	RETURN
	END