CC	METOR 2
C	THIS PROGRAM DETERMINES KA,KE,KF,KU & MUINF
C	FROM URINARY EXCRETION OF METABOLITES
C	FOR THE ONE COMPARTMENT MODEL; COMPENDIUM PAGE 84
C
C	NORMAL USE AS ANY LESQ FUNCTION
C	5 CONSTANTS
C
	FUNCTION FUNCT(ARG,X,MU)
	DIMENSION ARG(1)
	REAL KA,KE,KF,KU,MU,MUINF
	COMMON IFEL,IX,NK
	KA=ARG(1)
	KE=ARG(2)
	KF=ARG(3)
	KU=ARG(4)
	MUINF=ARG(5)
	T=X-ARG(6)
	E1=KA*T
	E2=KE*T
	E3=KU*T
	IF(E1.GT.80.OR.E1.LE.0)IFEL=1
	IF(E2.GT.80.OR.E2.LE.0)IFEL=2
	IF(E3.GT.80.OR.E3.LE.0)IFEL=3
	IF(KA.EQ.KE)IFEL=4
	IF(KU.EQ.KE)IFEL=5
	IF(KA.EQ.KU)IFEL=6
	IF(IFEL.NE.0)RETURN
	Y=KA*KF*(1-EXP(-E2))/((KA-KE)*(KU-KE))
	Y=Y-KE*KU*(1-EXP(-E1))/((KA-KE)*(KU-KA))
	Y=Y-KE*KA*(1-EXP(-E3))/((KU-KA)*(KU-KE))
	FUNC=MU-MUINF*Y
	RETURN
	END
FADD	Y
	FSTA	Y