C	PROGRAM FMINMAX.FT
C	-------------------
C
C
C
	FUNCTION FMINMAX(A,B,IOPR)
C
C
C	P LEMKIN
C	NIH
C	BETHESDA, MD
C	
C
C	JULY 14, 1977
C
C	PURPOSE
C	-------
C	BASED ON IOPR COMPUTE:
C		IOPR	FUNCTION
C		---	-------
C		1	FLOATING MAX OF (A,B)
C		2	FLOATING MIN OF (A,B)
C
C	[1] DISPATCH
	IF(IOPR-1)30,20,30
C
C
C	[2] COMPUTE MAX:
20	IF(A-B)200,201,201
C
C	B
200	FMINMAX=B
	RETURN
C
C	A
201	FMINMAX=A
	RETURN
C
C
C	[3] COMPUTE MIN
30	IF(A-B)201,200,200
C
	END