Directory of image this file is from
This file as a plain text file
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