File: SCTEST.FT of Tape: Various/Disk-backup/dsk10
(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