File PROANT.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

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

Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with. I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation.

PDP-8 Home Page PDP-8 Site Map PDP-8 Site Search