File: SCTEST.FT of Tape: Sources/Multi8/m8-mprog-f
(Source file text)
10 IERR=10 IRANGE=1 MODE=2 TARGET=1. C READ(0,1100) TARGET OUT=SCINP(MODE,IRANGE,IERR,TARGET) WRITE(0,1000) IERR,OUT 1000 FORMAT(X,I5,F12.6) 1100 FORMAT(F12.6) GOTO 10 END