C	PROFIX
C	PROTEIN BINDING
C	FIX NUMBER
C	Y=SUM(<X*10**ARG(I)*VIKT(I)/(1+X*10**ARG(I))
C	+X*10**ARG(NK)*VIKT(NK)/(1+X*10**ARG(NK)
C	I.E. VIKT (NK)IS THE NUMBER IN THE RESTTERM
C	AND ARG(NK)THE KONSTANT FOR THE RESTERM
C	FUNCTION WILL ACCEPT ONLY 1 ARGUMENTS IE ONLY SECOND TERM
C	VIKT MUST BE INITIALIZED BY NK=0 OR AN ERROR<1>IS PRODUCED
	FUNCTION FUNCT(ARG,X,Y)
	COMMON IFEL,IX,NK
	DIMENSION ARG(1)
	DIMENSION VIKT(6)
	DATA VIKT/6*0.0/
	Z2(U)=X*10.**U/(1+X*10.**U)
	IF (NK.EQ.0)GOTO 100
	IF (VIKT(1).EQ.0)IFEL=1
	A=0
	NK1=NK-1
	IF (NK.EQ.1)GOTO 11
	DO 10 I=1,NK1
10	A=A+Z2(ARG(I))*VIKT(I)
11	A=A+VIKT(NK)*Z2(ARG(NK))
	FUNCT=Y-A
	RETURN
100	WRITE(0,1000)
	READ(4,2000)VIKT
	WRITE(3,3000)VIKT
	RETURN
1000	FORMAT(' WEIGHTS <F3.0>')
2000	FORMAT(6F3.0)
3000	FORMAT('0',6F5.0)
	END

	RETURN
1000	FORMAT(' WEIGHTS,NUMBER,BIND CONST <F4.0>:')
2000	FORMAT(12F4.0)
3000	FORMAT(1H0,12F8.2)
	END
E2)
     1+(FK21-FKA)/D3*EXP(-E3)
	FUNCT=FUNCT*DOSV*FKA
	FUNCT=Y-FUNCT
100	RETURN
6	IFEL=1
5	IFEL=1+IFEL
4	IFEL=IFEL+4
	RETURN
	END
Px46\NJ9"wX~|k\(/4J)a.)n(a.(n'a.'n&a.&n%a.%]kM
?_%Ri
k6]M