File: BASETE.FT of Disk: Disks/MyPDP/m8-1-rka1-rkb1

(Source file text) 

---

C	MEASURES BASETEMPERATURE
	SUBROUTINE BASET(IM,TO,MODE,IRANGE,IERR,C)

	SUM=0
	DO 200 I=1,IM
	CALL DVINP(MODE,IRANGE,IERR,IVAL)
	SUM=SUM+FLOAT(IVAL)*C
	DO 201 J=1,200
201	CONTINUE
200	CONTINUE
	TO=SUM/FLOAT(IM)

	RETURN
	END

---