Return to getval.f CVS log

Up to [Research Unix] / researchv10dc / cmd / matlab / src

Annotation of researchv10dc/cmd/matlab/src/getval.f, revision 1.1.1.1

1.1       root        1:       SUBROUTINE GETVAL(S)
                      2:       DOUBLE PRECISION S
                      3: C     FORM NUMERICAL VALUE
                      4:       INTEGER SYM,SYN(4),BUF(256),CHAR,FLP(2),FIN,FUN,LHS,RHS,RAN(2)
                      5:       COMMON /COM/ SYM,SYN,BUF,CHAR,FLP,FIN,FUN,LHS,RHS,RAN
                      6:       S = 0.0D0
                      7:    10 IF (CHAR .GT. 9) RETURN
                      8:       S = 10.0D0*S + CHAR
                      9:       CALL GETCH
                     10:       GO TO 10
                     11:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.