File ORAL1.FT (FORTRAN source file)

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

CC	ORAL 1
C	THIS PROGRAM DETERMINES KA,KE,DOS/VC(=DVC) & DT
C	FOR THE ONE COMPARTMENT MODEL.
C	DT=0 WHEN NO LOG TIME EXISTS.
C
C	NORMAL USE AS ANY LESQ FUNCTION.
C	4 CONSTANTS  
	FUNCTION FUNCT(ARG,X,CP)
	DIMENSION ARG(1)
	REAL KA,KE
	COMMON IFEL,IX,NK
	KA=ARG(1)
	KE=ARG(2)
	DVC=ARG(3)
	T=X-ARG(4)
	E1=KE*T
	E2=KA*T
	IF (E1.GT.80.OR.E1.LE.0)IFEL=1
	IF (E2.GT.80.OR.E2.LE.0)IFEL=2
	IF (KA.EQ.KE)IFEL=3
	IF (IFEL.NE.0)RETURN
	FUNCT=CP-KA*DVC*(EXP(-E1)-EXP(-E2))/(KA-KE)
	RETURN
	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