File: KELVIN.FT of Disk: Disks/MyPDP/m8-backup-rka1-rkb1

(Source file text) 

---

	SUBROUTINE KELVIN(IMAX,A,B,TEMP)
	DIMENSION A(10)
	HELP =ALOG(B)
	HELP1=1./HELP
	SU =0
	K=1
	DO 101 I=1,IMAX
	SU = SU +HELP1*A(K)
	K=K+1
	HELP1=HELP1*HELP
101	CONTINUE
	TEMP=1./SU
	RETURN
	END

---