C	PROGRAM MAX.FT
C	-------------------
C
C
C
	FUNCTION MAX(IA,IB)
C
C
C	P LEMKIN
C	NIH
C	BETHESDA, MD
C	
C
C	NOV 4, 1976
C
C	PURPOSE
C	-------
C	COMPUTE THE MAX OF IA,IB.
C
	IF(IA-IB)100,101,101
C
C	IB
100	MAX=IB
	RETURN
C
C	IA
101	MAX=IA
	RETURN
	END
   