C	PROANT
C	PROTEIN BINDING
C	ITERATION OF NUMBER
C	Y=SUM(<X*10**ARG(I)*VIKT(I)/(1+X*10**ARG(I))
C	+X*10**ARG(NK-1)*ARG(NK)/(1+X*10**ARG(NK)
C	I.E. ARG (NK)IS THE NUMBER IN THE RESTTERM
C	AND ARG(NK-1)THE KONSTANT FOR THE RESTERM
C	FUNCTION WILL ACCEPT ONLY TWO ARGUMENTS IE ONLY SECOND TERM
C	VIKT ARE INITILAZED TO 1 BUT CAN BE CHANGED BY NK=0
	FUNCTION FUNCT(ARG,X,Y)
	COMMON IFEL,IX,NK
	DIMENSION ARG(1)
	DIMENSION VIKT(6)
	DATA VIKT/6*1.0/
	Z2(U)=X*10.**U/(1+X*10.**U)
	IF (NK.LE.1)GOTO 100
	A=0
	NK1=NK-2
	IF (NK.EQ.2)GOTO 11
	DO 10 I=1,NK1
10	A=A+Z2(ARG(I))*VIKT(I)
11	A=A+ARG(NK)*Z2(ARG(NK-1))
	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(1H0,6F5.0)
	END
FA-BETA)
	IF(D2.EQ.0)GOTO 5
50	D3=(ALFA-FKA)*(BETA-FKA)
	IF(D3.EQ.0)GOTO 6
60	FUNCT=(FK21-ALFA)/D1*EXP(-E1)+(FK21-BETA)/D2*EXP(-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