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