C	PROGRAM MIN.FT
C	-------------------
C
C
C
	FUNCTION MIN(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 MIN OF IA,IB.
C
	IF(IA-IB)101,101,100
C
C	IB
100	MIN=IB
	RETURN
C
C	IA
101	MIN=IA
	RETURN
	END
   