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

(Source file text) 

---

10	IERR=200
	IRANGE=1
	MODE=1
	TARGET=-5.0
	READ(0,1100) TARGET
	DO 20 I=1,100
20	OUT=SCINP(MODE,IRANGE,IERR,TARGET)
	WRITE(0,1000) MODE,IRANGE,IERR,TARGET,OUT
	GOTO 10
1000	FORMAT(X,3I5,2F12.6)
1100	FORMAT(F12.6)
	END

---