home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / MatLab / GETVAL.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  266 b   |  19 lines
  1.       SUBROUTINE GETVAL (S)
  2.       IMPLICIT NONE
  3. C
  4. C FORM NUMERICAL VALUE
  5. C
  6.       DOUBLE PRECISION S
  7. C
  8.       INCLUDE MATLAB$KOM:COM.KOM
  9. C
  10. C
  11.       S = 0.0D0
  12. 10    CONTINUE
  13.       IF (CHAR.GT.9) RETURN
  14.       S = 10.0D0*S+CHAR
  15.       CALL GETCH
  16.       GO TO 10
  17. C
  18.       END
  19.