File: MT1.FT of Tape: Sources/Multi8/m8-mprog-f

(Source file text) 

---

C	PROGRAM MT1
	COMMON/DATA/NP,F(2047)
	COMMON/PARA/DK,HANG,HHI,HLO,PF,PS,PT,TM,TV,PERMAS,ES,AKL,AKV
	COMMON/TITLE/ADENT,DITOMO,IRUN
C
	IRANGE=1
	CALL INIT1
	RH=HHI
	DO 10 I=1,NP
	MASK=64
	CALL DOUT(1,MASK,IERRDO,0)
	IERRSC=1000
	TARGET=RH
	CALL SCINP(3,IRANGE,IERRSC,TARGET)
	F(I)=FLOAT(DVINP(1+8,1+4,IERRDV,IDUMMY))/1000.
	CALL DOUT(1,MASK,IERRDO,64)
	CALL DVINP(1+8,1+4,IERRDV,IDUMMY)
	RH=RH-DK
10	CONTINUE
	END

---