File: DVTEST.FT of Tape: Sources/Multi8/m-ra1-f1-15-6-81

(Source file text) 

---

	MODE=1+8
	IRANGE=1+4
10	CALL DVINP(MODE,IRANGE,IERR,IVAL)
	WRITE(0,1000) MODE,IRANGE,IERR,IVAL
1000	FORMAT(X,4I8)
	GOTO 10
	END

---