File: QUAT.FT of Disk: Disks/MyPDP/m8-2-rka1-rkb1

(Source file text) 

---

C	TESTPROGRAMM FUER DVINP UND SCINP
	K=0
	IRASC=1
	MODESC=2
	MODE=1+8
	IRANGE=4+1
	INPUT =0
C1	WRITE(4,2500)
C	IOUT = DINP(1,1,IERRDI,INPUT)
C	IF (IOUT.EQ.0) GOTO 1
	WRITE(4,2600)
	XEFF=0
30	IVAL=9999
	TARGET= 0.25*FLOAT(K)
	IERR=10
	OUT = SCINP(MODESC,IRASC,IERR,TARGET)
	CALL DVINP(MODE,IRANGE,IERR,IVAL)
	XEFF= OUT+TARGET
	X=FLOAT(IVAL)
	WRITE(4,1000) K,TARGET,OUT,XEFF,X
1000	FORMAT(2X,I5,E14.4,6H  OUT=,3E16.6)
	WRITE(5,1100) K,OUT,XEFF,X
1100    FORMAT(2X,I5,3E16.6)
	K=K+1
	IF(TARGET - 5.6) 30,20,20
2500	FORMAT(1H+,T80,'')
2600	FORMAT(X,' ALL OK')
20	STOP
	END

---