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     ! 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.